| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1024 人关注过本帖
标题:[求助]ADODB
只看楼主 加入收藏
wetshine
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2006-12-15
收藏
 问题点数:0 回复次数:2 
[求助]ADODB

为了打开活动的ADODB.Connection 对象之上的ADODB.recordset,并且将ADODB对象连接到student.mdb范例数据库,编写了下面的代码:

Private cnnNwind As New ADODB.Connection
Private rstNwind As New ADODB.Recordset
Private blnHasRun As Boolean


Private Sub Form_Activate()
If blnHasRun Then
Exit Sub
End If
Dim strSQL As String
DoEvents
cnnNwind.Provider = "Microsoft.Jet.OLEDB.3.51"
cnnNwind.Open "E:\student.mdb", "Admin"
strSQL = "SELECT * FROM Customers"
With rstNwind
Set .ActiveConnection = cnnNwind
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open strSQL
End With
Set adcNwind.Recordset = rstNwind
blnHasRun = True
End Sub

大家看一下这段代码,运行的时候报错:如下:The Microsoft Jet database engine cannot find the input table or query'customers' .Make sure it exits and that its name is spelled correctly .这是什么原因?帮忙看看谢谢了!

搜索更多相关主题的帖子: ADODB 
2006-12-21 00:31
hyhhd
Rank: 2
等 级:论坛游民
威 望:1
帖 子:502
专家分:44
注 册:2006-5-12
收藏
得分:0 
cnnNwind对象的连接字符串不对!找不见表!

2006-12-22 20:47
hyhhd
Rank: 2
等 级:论坛游民
威 望:1
帖 子:502
专家分:44
注 册:2006-5-12
收藏
得分:0 

试试这个:
Private cnnNwind As New ADODB.Connection
Private rstNwind As New ADODB.Recordset
Private adcNwind As New ADODB.Recordset
Private blnHasRun As Boolean


Private Sub Form_Activate()
If blnHasRun Then
Exit Sub
End If

Dim strSQL As String

DoEvents

cnnNwind.Provider = "Microsoft.Jet.OLEDB.4.0"
cnnNwind.Open "E:\student.mdb", "Admin"
strSQL = "SELECT * FROM Customers"

With rstNwind
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.Open strSQL, cnnNwind

End With

Set adcNwind = rstNwind
blnHasRun = True


End Sub


2006-12-22 21:00
快速回复:[求助]ADODB
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.025712 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved