怎样连到ODBC(SQL SERVER 2000数据源)

[lixiuchen]

以前只连到过ACCESS.连到SQL SERVER 的CONNECTSTRING是什么?

[borntime]

Provider=SQLOLEDB;Persist Security Info=False;Initial Catalog=數據庫名陳;Data Source=機器名稱"

[lihonggen0]

工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）

Dim CN As New ADODB.Connection '定义数据库的连接
Dim Rs As New ADODB.Recordset
CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=sa;"

CN.Open
Rs.CursorLocation = adUseClient
Rs.Open "select * from employees", CN, adOpenDynamic, adLockOptimistic


Set DataGrid1.DataSource = Rs