用dao打开表时语句报错
'要引用 "Microsoft DAO 3.51 object library "
Dim db As Database
Dim rst As Recordset
Set db = OpenDatabase(strMyDB)
Set rst = db.OpenRecordset(strTab) ' 报错
Set rst = db.OpenRecordset("SELECT * FROM " & strTab)
Dim strCN, strCValue As String
Form1.List1.Clear
For j = 0 To rst.Fields.Count - 1
strCN = strCN & rst.Fields(j).Name & " " '列出字段名
Next j
Form1.List1.AddItem strCN
rst.MoveFirst
Do Until rst.EOF
For i = 0 To rst.Fields.Count - 1
strCValue = strCValue & rst.Fields(i).Value & " " '列出记录值
Next i
Form1.List1.AddItem strCValue & Chr(13)
strCValue = ""
rst.MoveNext
Loop
问题点数：0、回复次数：8Top
1 楼qhhyq（hyq）回复于 2005-04-04 09:36:41 得分 0
我以前用的好好的！但今天一试这种方法，就出现了问题，以下语句报错！
Set rst = db.OpenRecordset(strTab) ' 报错
Top
2 楼oyljerry（【勇敢的心】→ ㊣提拉米苏√㊣）回复于 2005-04-04 16:19:31 得分 0
判断一下打开的错误Top
3 楼changechange（http://access911.net 是我的个人网站，欢迎光临）回复于 2005-04-04 17:22:38 得分 0
关于此主题请参考：
在技术论坛提问的技巧《其他》
http://access911.net/index.asp?u1=a&u2=72FAB61E17DCE7F3
Top
4 楼qhhyq（hyq）回复于 2005-04-04 19:27:51 得分 0
我在同一个工程中，既用了 dao 还用了 ado 来操作数据库文件，不会是跟这个有关系吧？Top
5 楼qhhyq（hyq）回复于 2005-04-04 19:30:17 得分 0
我把代码中的变量 strMyDB 改为绝对路径和库文件名，把变量 strTab 换成已存在的表名，也不行啊！！Top
6 楼qhhyq（hyq）回复于 2005-04-05 10:29:41 得分 0
错误信息如下:
实时错误 ' 13 ',类型不匹配
等待中......Top
7 楼changechange（http://access911.net 是我的个人网站，欢迎光临）回复于 2005-04-05 15:09:19 得分 0
OpenRecordset 有多个参数吧？你都没填写？Top
8 楼qhhyq（hyq）回复于 2005-04-06 17:53:15 得分 0
站长，每次解答，总留的余味！
你还是告诉我吧，我真的不知道，还有那些参数？？？Top
