用ADO访问sql server如何建立连接

Question

'用ADO连接SqlServer的例子
Option Explicit
Dim conn As New ADODB.Connection
Dim rst As New ADODB.RecordsetPrivate Sub Form_Load()
'下面三行为一句程序，第三行中Data Source=suny  你要把它改成你机上的Sql server服务器的名称
conn.ConnectionString = _
"Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Northwind;Data Source=suny"
conn.Openrst.Open "employees", conn, 1, 3, adCmdTable
'此处用的是MSHFlex Grid并将它命名为Grid1
'下面这句比较关键，是把你用的控件和ADO中的Recordset对象联接起来
Set Grid1.DataSource = rstEnd Sub
Public Const CS = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db;Data Source=sj"
这句是付值语句,把字符串付给公共变量CS

Answer 1

同意davidwx(剑胆琴心) 
你说的例子是在给一个变量赋值，它就是连接字符串
用ado访问sql server只用把连接字符串改一下就行了
其他的就和ado访问access一样，你肯定会啦

Answer 2

'用ADO连接SqlServer的例子
Option Explicit
Dim conn As New ADODB.Connection
Dim rst As New ADODB.RecordsetPrivate Sub Form_Load()
'下面三行为一句程序，第三行中Data Source=suny  你要把它改成你机上的Sql server服务器的名称
conn.ConnectionString = "odbc;driver={sql server};dsn=???;database=???;uid=???;pwd=???;"
conn.Openrst.Open "表名", conn, 1, 3, adCmdTable
'此处用的是MSHFlex Grid并将它命名为Grid1
'下面这句比较关键，是把你用的控件和ADO中的Recordset对象联接起来
Set Grid1.DataSource = rstEnd Sub
Public Const CS = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db;Data Source=sj"
这句是付值语句,把字符串付给公共变量CS