3行代码也错？？唉。。。

Question

(1行)Dim cnn As New Adodb.Connection
(2行)cnn.Open "Provider = sqloledb;Data Source='local';Initial Catalog='AAA';User Id='sa';Password='';"
(3行)Set DataGrid1.DataSource = Adodc1
vb里2个控件，一个adodc一个datagrid；  
  sql70已经打开了（Service Manager）已经是“start”状态了，我在 “Console Root--Microsoft SQL Servers--SQL Server Group --机器名(Windows NT)--Databases--AAA”下面有一个叫“BBB"的table，我想把BBB里面的数据在datagrid里显示出来，   可是现在才刚开始运行，它就  “实时错误'-2147467259(80004005)  [DBNMPNTW]找不到指定的 SQL Server.”我连数据库哪里没对阿？

Answer 1

是的阿，刚装的，还没改过什么设置（也不敢乱改，因为不懂... -_-!! ） 。
就只在database 里建了个"new database" -> "AAA" ，然后在里面从access里导入了个table“BBB”， 
   噢，对了，还有个问题，我新建了AAA，里面就自动多出了很多其他的table，名字是什么“sysfiles,sysforeignkeys,sysindexkeys,sysusers....”这些table也删不掉，怎么去掉阿？还是说不用管它们也没关系？

Answer 2

(1行)Dim cnn As New Adodb.Connection
(2行)cnn.Open "Provider = sqloledb;Data Source='local';Initial Catalog='AAA';User Id='sa';Password='';"
(3行)Set DataGrid1.DataSource = Adodc1 将Data Source='local'改为Data Source='（local）'

Answer 3

'去掉单引号Dim cnn As New Adodb.Connection
cnn.Open "Provider = sqloledb;Data Source=local;Initial Catalog=AAA;User ID=sa;Password=;"
Set DataGrid1.DataSource = Adodc1

Answer 4

改为
cnn.Open "Provider = sqloledb;Data Source=local;Initial Catalog=AAA;User Id=sa;"

Answer 5

那些是系統表，不用管還有這個adodc1，這好象和你的cnn沒關系呀。俺沒用過adodc控件，你還是試一下直接用recordsetDim rst As New ADODB.Recordset
With rst
    .ActiveConnection = cnn
    .Source = "select ... from ..."
    .LockType = ...
    .CursorType = ...
    .Open
End With

Answer 6

我看了上面的回答，我认为不一定能解决问题
Dim cnn As New Adodb.Connection
cnn.Open "Provider = sqloledb;Data Source=local;Initial Catalog=AAA;User ID=sa;Password=;"
Set DataGrid1.DataSource = Adodc1怎么会有这样的写法？ADODB和ADODC虽然实现的都一样，但为什么要混用呢？
你在ADODC里面的连接字符串里面如果能连接上的话，那么一定不会出错的，如果那里面都有错误，那就要看数据库的正确与否了~  最好不要用上面的那种方式~

Answer 7

to: sikeen(阿土) 
 那么如果我想把BBB里的数据在datagrid里显示出来，该用什么代码呢？
我在后面加“Set DataGrid1.DataSource = rst”，提示是“实时错误7004   行集合不能做为标签”

Answer 8

Dim rst As New ADODB.Recordset
With rst
    .ActiveConnection = cnn
    .Source = "select * from bbb"
    .LockType = adLockBatchOptimistic
    .Open
End With

Answer 9

上面几位说得对
(2行)cnn.Open "Provider = sqloledb;Data Source='local';Initial Catalog='AAA';User Id='sa';Password='';"
改成
(2行)cnn.Open "Provider = sqloledb;Data Source='(local)';Initial Catalog='AAA';User Id='sa';Password='';"
和我一样的毛病啊，写程序一定要细心

Answer 10

to： usaspy(行走的鱼)    你第一次回贴的时候我就加上括号了，加了就没出错了。  现在我想把连上的aaa数据库里的bbb表显示出来，代码：Private Sub Form_Load()
Dim cnn As New ADODB.Connection
cnn.Open "Provider = sqloledb;Data Source='(local)';Initial Catalog='aaa';User Id='sa';Password='';"
Dim rst As New ADODB.Recordset
With rst
    .ActiveConnection = cnn
    .Source = "select * from bbb"
    '.CursorType = ...
    .LockType = adLockBatchOptimistic
    .Open
End With
Set DataGrid1.DataSource = rst.Source
End Sub
提示“实时错误424   要求对象”  ??  该怎么改呢？

Answer 11

Set DataGrid1.DataSource = rst

Answer 12

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