高手求助,在线等待。。。数据库操作出错。。
高手求助,在线等待。。。数据库操作出错。。
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'
参数不足,期待是
谢谢