如何用VB+SQL+ADO连接？

[cloveling]

我用如下代码出错

Dim CN As New ADODB.Connection
Dim Rs As New ADODB.Recordset
CN.ConnectionString = "Provider=sqloledb;Data Source=sky;Initial Catalog=northwind;User Id=sa;Password=;"
CN.Open
Rs.CursorLocation = adUseClient
Rs.Open "select * from test", CN, adOpenDynamic, adLockBatchOptimistic
Set DataGrid1.DataSource = Rs

执行到CN.Open就出错，我的ODBC－SQL正常开启，为什么连不上

各位大侠赐教
在线等候

[lihonggen0]

请检查你的连接字符串


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, adLockBatchOptimistic


Set DataGrid1.DataSource = Rs

[xinshou1979330]

Dim CN As New ADODB.Connection
Dim Rs As New ADODB.Recordset
这样定义
就可以省略
Set cn=new ADODB.Connection
set rs=new New ADODB.Recordset
么？？？

[cloveling]

请详细解释一下ConnectionString属性中各个字符串的意义

[cloveling]

我的User Id=sa;Password=;密码为空
数据库在ODBC里别名是sky
数据库是SQL Server7.0

帮忙看看哪里错了。。。

[cloveling]

将CN.ConnectionString改为
CN.ConnectionString = "Provider=sqloledb;DSN=sky;Initial Catalog=northwind;User Id=sa;Password=;"
后CN.Open不出错了
但是Rs.Open "select * from test", CN, adOpenDynamic, adLockBatchOptimistic出错
提示“Invalid Object Name 'test'

这是为什么？？？？？？？？？？

[phylisren]

你的库里有test表吗？

[syszj]

先要在 工程菜单——》引用——》microsoft activex data object 2.x

[syszj]

Provider=sqloledb.1

[qifanghcy]

ConnectionString出错，再详细检查一遍！最好先用ADO控件生成连接字符串，再拷贝过来！

[liudefeng1]

错误只能是connectionstring字符串和你现有数据库配置不相同