高手求助,在线等待。。。数据库操作出错。。

theMost 2003-10-17 10:05:15
高手求助,在线等待。。。数据库操作出错。。

Dim mdbfile As Database
Dim rsTitles As Recordset

Set mdbfile = OpenDatabase(App.Path + "\Data\ISACount.mdb", False, False, ";UID=;PWD=")
set rsTitles = mdbfile.OpenRecordset("Select * from ISACount Where cs-username ='SERVER\playboy'", dbOpenDynaset))
Do Until rsTitles.EOF
MsgBox rsTitles.Fields("cs-UserName")
rsTitles.MoveNext
Loop
'释放数据库
rsTitles.Close
mdbfile.Close
Set mdbfile = Nothing

出错信息:
实时错误'3061'
参数不足,期待是

谢谢
...全文
24 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
xingnup 2003-10-17
  • 打赏
  • 举报
回复
一般是SQL语句中漏掉了什么所致,出错时程序停在哪里呢?
zjcxc 2003-10-17
  • 打赏
  • 举报
回复
'应该是字段名的问题,试试:
Dim mdbfile As Database
Dim rsTitles As Recordset

Set mdbfile = OpenDatabase(App.Path + "\Data\ISACount.mdb", False, False, ";UID=;PWD=")
Set rsTitles = mdbfile.OpenRecordset("Select * from ISACount Where [cs-username] ='SERVER\playboy'", dbOpenDynaset) '原来这里多了一个括号
Do Until rsTitles.EOF
MsgBox rsTitles.Fields("cs-UserName")
rsTitles.MoveNext
Loop
'释放数据库
rsTitles.Close
mdbfile.Close
Set mdbfile = Nothing
theMost 2003-10-17
  • 打赏
  • 举报
回复
还是不行~
sword281 2003-10-17
  • 打赏
  • 举报
回复
去掉 UID=;PWD=

1,216

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧