Question

使用ADO对象连接SQL数据库

首先应该注意的是 连接的数据库是SQL SERVER 而不是ACCESS
其次用的是ADO对象 而不是ADO控件

先给高手一个连接access的例子或者可以称为规范的东西

cn.open "provider=microsoft.jet.oledb.4.0;data source=" & app.path &"\data\message1.mdb;persist security info=false"
rs.open "select * from table1",cn,ad....,ad....(后面的两个参数忘了)

请高手可否给出连接SQL SERVER的详细代码。。。。最好是类似于上面的代码。。。。有追加分。。。。
3楼的大哥 那是不是ODBC连接数据库啊？

Answer 1

Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=SQLOLEDB.1;Password=密码;Persist Security Info=True;User ID=用户名;Initial Catalog=数据库名;Data Source=数据源名"
conn.CommandTimeout = 30
conn.CursorLocation = adUseClient

conn.Open

一般用上面的就行了，如果你的数据库没有密码，可以把Password那个去掉，用户名一般默认使用sa，当然你也可以使用自己建的用户名，数据库名就是你要连接的那个数据库的名称，数据源名就是你的数据库所在的名称，这个名称有可能是你的SQLserver 所在的主机名或IP地址

Answer 2

在模块声明ADO对象：
Public conn As New ADODB.Connection
Public RS As New ADODB.Recordset
在模块设置一个数据库链接过程：
Sub SHJK(conn)
conn.ConnectionTimeout = 10
conn.CursorLocation = adUseServer
conn.ConnectionString = "driver={SQL Server};server=服务器名称;uid=sa（登录名称，一般用sa);pwd=登录密码;database=SQL数据库名称"
conn.Open
End Sub

在窗体的事件中调用过程：
Call SHJK(conn)
打开记录集：
strSQL = "select * from 数据表 "
RS.Open strSQL, conn, 1, 1（注意：1，1是只读数据表）

Answer 3

连接个数据库.SQL ACCESS这两个的连接方法都是一样的.
只是把数据库名改一下就可以的.access后缀是.mdb.把这个也换成sql的后缀就可以啦.