vb访问sqlserver

当双击打开SQL Server Management Studio Express，出现如下登录界面

下图“服务器类型”这一栏中的“数据库引擎”是灰色的，但是对应的连接代码不可以省略不写。“数据库引擎”指的是vb访问sqlserver的接口，对应的是Provider=SQLOLEDB

数据服务器名称是ZKKN3G4JQ8RACWL，所以对应的Data Source= ZKKN3G4JQ8RACWL，由于是在本机登录，故可用点号代替它，即Data Source=.

下图中身份验证这一栏对应的是Integrated Security=SSPI，图中下方的用户名和密码都是灰色的，说明user ID和Password是不起作用的，可省略不写

点击上图的“选项”，点击“连接属性”

下图没有勾选的“加密连接(Y)”，对应的是Persist Security Info=False，由于它是默认的，所以也可不写

接着指明数据库名，如Initial Catalog=test。现在可以确定的vb连接语句：

conn.ConnectionString="Provider=SQLOLEDB;Initial Catalog=test;Integrated Security=SSPI;Data Source=." 

填好了上面的数据结构，现在可以new一个对象实体了，在vb6的“工程”->“引用”中添加“Microsoft activeX Data Objects 2.6 ”，即所说的“ADO”，这样Dim conn As New ADODB.Connection便可起作用

在sqlserver 2005中建立一下测试数据库test，现在可以测试vb访问sqlservers数据库

Private Sub Command1_Click()

Dim conn As New ADODB.Connection

conn.ConnectionString="Provider=SQLOLEDB;Initial Catalog=test;Integrated Security=SSPI;Data Source=."

conn.Open

If conn.State = 1 Then

MsgBox ("连接成功！")

Else

MsgBox ("连接失败！")

End If

Set conn = Nothing

End Sub

运行效果：