VB访问sqlserver
❶ VB 如何使用ADODB控件链接sqlServer数据库
1、有向导可用，你在屏幕左侧看跟工具箱挨着的有个数据源管理，这里点新数据源，就可以向导连接。
2、那个Microsoft ActiveX Data Object缩写简称ADO，很好找，是有的，有空q我，给你发截图看。
3、数据绑定没有向导，也不需要，简单的设置一个datasource属性即可，不需要复杂的向导。
4、不是用ADO控件，而是用ADO.net程序集，要连接到 Microsoft SQL Server 7.0 或更高版本，请使用 SQL Server .NET Framework 数据提供程序的 SqlConnection 对象。 要连接到 OLE DB 数据源，或连接到 Microsoft SQL Server 6.x 或更低版本，请使用 OLE DB .NET Framework 数据提供程序的 OleDbConnection 对象。
5、应该是Adodc1.ConnectionString="xxxxxxxxx" 引号中为连接字符串，具体的语法建议你按F1看MSDN的帮助，很详细。
6、还有问题可以共同探讨，qq369220969
❷ vb怎么连接sql
在窗体上添加adodc控件
鼠标右键-adodc属性-在通用选项卡里，点生成，选for
SQL
Server驱动程序-下一步-连接选项卡里
1.输入服务器名称，2.使用Windows
NT
集成安全设置。3.选择一个数据库
点测试连接，看看是否成功。按确定
点记录源选项卡，命令类型选8，命令文本（SQL）写：select
*
from
table1
确定，就连接到SQL数据库的表table1了。
Private
Sub
Command1_Click()
If
Not
Adodc1.Recordset.EOF
Then
Text1.Text
=
Adodc1.Recordset.Fields("line1")
End
If
End
Sub
❸ vb连接数据库sqlserver的问题
其实不难的，既然你已经会用DATAGRID ADODC1绑定数据，下一不就好办了。
1、首先添加，判断是否重复出现(免掉)， adodc1.addnew
adodc1.rcoutset.fileds(0)="插入的数据"
.........
adodc1.update
exit sub
adodc1.rcoutset.recourtsource="recourtsource属性里面的语句"
adodc1.refresh
2.删除语句：
dim st,sql as
string
adodc1.rcoutset.recourtsource="recourtsource属性里面的语句"
st=adodc1.recoutset.fileds(0).value
sql="recourtsource属性里面的语句 where **='"st"'"
adodc1.delete
3.更新语句:
adodc1.rcoutset.fileds(0)="更新过的数据"
.........
adodc1.update
exit sub
adodc1.rcoutset.recourtsource="recourtsource属性里面的语句"
adodc1.refresh ‘那些数据来源可以是文本框等，你要自己想了，其实不难的。
4、假如都有判断是否唯一语句（避免插入删除异常时），
adodc1.rcoutset.recourtsource="recourtsource属性里面的语句 where 条件"
if adodc1.rcoutset.eof=false then
msgbox"出错"
exit sub
end if '这个条件插在他们的前面就可以判断了。
❹ vb6.0获取sqlserver存储过程的返回值
Dim Cnn As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim Cnn_c As New ADODB.Command
Dim cnn_p As ADODB.Parameter
Cnn.ConnectionString = ConnStr'连接字符串
With Cnn
'.Provider = "MSDASQL"
.CursorLocation = adUseClient
.Open
End With
Set Cnn_c.ActiveConnection = Cnn
With Cnn_c
.CommandType = adCmdStoredProc
.CommandText = "存储过程名"
End With
Set cnn_p = Cnn_c.CreateParameter("ReTurn", adInteger, adParamReturnValue)
Cnn_c.Parameters.Append cnn_p
‘这里添加其他参数
Set Rs = Cnn_c.Execute'执行
'Cnn_c.Parameters("ReTurn")这就是返回值
Rs.close
Cnn.Close
Set cnn_p = Nothing
Set Cnn_c = Nothing
Set Rs = Nothing
Set Cnn = Nothing