建议用ADO工程--->引用--->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
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
数据库以SQL Server 7为例,如果你使用DAO对象,那首先你必须加载DAO对象。然后:
Set ws=CreateWorkspace
Set db=ws.OpenDatabase("", dbDriverNoPrompt, False, _
"ODBC;Driver=SQL Server;UID=" & sUID & _
";PWD=" & sPWD & ";SERVER=" & sServer & _
";DATABASE=" & sDatabaseName )
这样,应用程序就以sUID身份密码为sPWD与指定的服务器sServer上的数据库sDatabaseName建立了连接。
如果你使用ADO对象,则可以按如下方法:
Dim cn As ADODB.Connection
cn.ConnectionString="DRIVER=SQL Server" & _
";SERVER=" & sServer & ";UID=" & _
sUID & ";PWD=" & sPWD & ";DATABASE=" & _
sDatabaseName
cn.Open
...
cn.Close
当然,前提是你已经引用了ADO对象(ADODB)。
怎么样,是不是省去了手工创建DSN的烦恼,用户可以轻松许多,你的程序也光彩不少吧。