Question

VB+ACCESS高手的程序员请进来帮我解决个难题，进来看看！初学者我在此先感谢！

我有个设计是VB+ACCESS的，但是ACCESS数据库是95版本的，我用工具转换为2000格式和2003年的格式，在运行VB时都不能实现，请高手帮忙看看！
ACCESS数据库的命名为：XJGL.MDB 我转换为2003格式后也把库的名字命名为：XJGL.MDB。我确定我的是ACCESS2003版本的。按道理在VB中只要修改下语言db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=xjgl.mdb;"改为db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=xjgl.mdb;"但是在这里便提示错误—实时错误‘-2147217900（80040e14）':FROM 子语句语法错误
adoPrimaryRS.Open "select * from user where 用户名='" & a & "' and 密码='" & b & "'", db, adOpenStatic, adLockOptimistic

我现在把整个语言发出来，高手们看看哪里需要更改的，改成功加分给分，急啊！
Dim WithEvents adoPrimaryRS As Recordset
Private Sub Command1_Click()
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=xjgl.mdb;"

Set adoPrimaryRS = New Recordset
a = Text1.Text
b = Text2.Text
adoPrimaryRS.Open "select * from user where 用户名='" & a & "' and 密码='" & b & "'", db, adOpenStatic, adLockOptimistic
If adoPrimaryRS.EOF Then
MsgBox ("用户名或密码错误!")
Static numcount As Integer

numcount = numcount + 1
If numcount = 3 Then
numcount = 0
MsgBox ("三次口令错，将退出程序!")

Unload Me
End If
Else
If adoPrimaryRS.Fields("级别") = "管理员" Then

x = 1
Else
x = 0
End If
Unload Me
Form7.Show
End If
End Sub
请看看哪条语法需要修改，或者是改写什么，如果可以越详细越好！

Answer 1

可能要全改！

Answer 2

adoPrimaryRS.Open "select * from user where 用户名='" & a & "' and 密码='" & b & "'", db, adOpenStatic, adLockOptimistic
这个地方
sql= "select * from user where 用户名='" & a & "' and 密码='" & b & "'"
debug.print sql
adoPrimaryRS.Open sql,db,adOpenStatic, adLockOptimistic
然后看 立即窗口中 sql的内容 复制到access 建立个查询 用这个sql语句看access能查询到么

追问

在立即窗口 上的SQL内容是 select * from user where 用户名='aaa' and 密码='123' 我在ACCESS建立了一个查询，能查询！ 但是之后运行VB出现出错 FROM 子句语法错误 adoPrimaryRS.Open Sql, db, adOpenStatic, adLockOptimistic 是这句。

追答

adoPrimaryRS.Open Sql, db,1,1

追问

还是错误，是不是要把关于这个表的代码都全改了？

追答

Str_cnn = "Provider=Microsoft.Jet.OLEDB.4.0;PASSWORD=;user id=;Data Source=" & App.Path & "\xjgl.mdb"
Set db = New ADODB.Connection
db.ConnectionString = Str_cnn
db.Open

追问

能不能帮我把整个语句都复制下来，还是错误。实时错误'91'，对象变量或With块变量未设置

追答

看了半天 终于知道了为什么报错了
你的adoPrimaryRS定义错误
要定义为
dim adoPrimaryRS as ADODB.Recordset
你的定义是dao的定义

追问

那语句要从何改起，因为前面你写了2条语句。现在全部代码换上去，该是怎么换？
还是只要改Dim WithEvents adoPrimaryRS As Recordset 换成dim adoPrimaryRS as ADODB.Recordset 其他的不变？

追答

是的
因为类型不同

追问

改掉了定义类型,还是FROM 子语句错误,.

Answer 3

我刚刚开始学，特来转转