狂送100分（26）

[binbin2000]

气愤，软件都快写完了，忽然有新要求：不需要配odbc就能运行。
请写个简单例子，不需要配odbc操作数据库。

[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

[lihonggen0]

用ADO连接字符串就可以！

[脆皮大雪糕]

来晚了，但同意一楼的

[lihonggen0]

或者你在程序中建立DSN数据源：


http://support.microsoft.com/default.aspx?scid=http://support.microsoft.com:80/support/kb/articles/Q171/1/46.asp&NoWebContent=1

[lxcc]

推荐的方法：可以使用ADO控件生成连接语句！

[dandy1437]

直接利用ADO
但是建议做外部连接

[szj820]

建议用ADO，同意一楼的