vb连SQL数据库我用VB6.0链接S
1。在使用ADO之前，必须先利用VB菜单中的“工程/引用”来引用“Microsoft ActiveX Data Objects 2。0 Librabry”，
然后ADO对象群中的Connection、Recordset、Command、Fields等对象才会成为程序可以引用的对象。
2。在窗体上布置一个ADODC控件，然后单击鼠标右键，待出现快捷菜单时，从中选取“ADODC属性”命令。
3。这个时候会打开“属性页”对话框，在对话框中选取“使用连接字符串”选项，并单击“生成”按钮。
4。之后出现的是“数据连接属性”(Data Link Properties)设置窗口，按照下面步骤执行...全部
1。在使用ADO之前，必须先利用VB菜单中的“工程/引用”来引用“Microsoft ActiveX Data Objects 2。0 Librabry”，
然后ADO对象群中的Connection、Recordset、Command、Fields等对象才会成为程序可以引用的对象。
2。在窗体上布置一个ADODC控件，然后单击鼠标右键，待出现快捷菜单时，从中选取“ADODC属性”命令。
3。这个时候会打开“属性页”对话框，在对话框中选取“使用连接字符串”选项，并单击“生成”按钮。
4。之后出现的是“数据连接属性”(Data Link Properties)设置窗口，按照下面步骤执行：
〈1〉OLE DB提供者：想要连接的SQL Server，要选择Microsoft OLE DB Provider for SQL Server。
〈2〉输入Server名称：输入您安装SQL Server计算机的名称。
〈3〉输入UserName用户名称和Password用户密码：可以存取SQL Server的用户名称和密码。
〈4〉选取数据库：如果前面几个选项均输入正确的话，那么单击这个选项的下拉按钮，就可以列出SQL Server的所有数据库名称，再从中选取其中你的数据库名称。
如果单击这个下拉按钮之后没有看到任何数据库名称，那么即表示您前面几个步骤中输入的内容有错误。
最后点击确认。
5。在成功连接到SQL Server中您的“进销存管理”数据库后，就可以开始下一步连接数据表的操作了，具体步骤如下：
〈1〉假设您要打开的表是 “MSFlexGrid”， 则将ADODC控件的属性中的CommandType设置成“AdCmdTable”。
〈2〉将ADODC控件中的RecordSource属性设置成您的表名，例如
“MSFlexGrid”。
6。完成这些步骤后就可以连接到您想使用的数据表了，代码步骤如下
在引用中添加Microsoft ActiveX Data Objects 2。
X Library
代码如下:
Dim CN As New ADODB。Connection
Dim RS As New ADODB。Recordset
Dim strServerName, strUID, strPWD, strDataBase
Dim strConnect As String
'定义连接字符串
strServerName = 服务器名，或者服务器IP
strUID = 用户名
strPWD = 密码
strDataBase = 数据库名
strConnect = "Driver={SQL Server};Server=" & strServerName & ";UID=" & strUID & ";PWD=" & strPWD & ";DataBase=" & strDataBase
'连接到数据库
CN。
Open strConnect
Set RS = CN。Execute("SELECT * FROM 。。。。")
。收起
