请问下在VB和ACCESS操作中老是出错怎么解决
Private Sub Command2_Click()
Dim rs As New ADODB.Recordset
Dim conn As New ADODB.Connection
Dim sql As String
conn.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=C:Users罗小军DesktopVB+ACCESSACCESS.mdb"
conn.Open
Set rs.ActiveConnection = conn
sql = "select * from 用户信息表 where "
If Trim(Text1.Text) = "" Then
MsgBox "用户名不能为空!", vbOKOnly + vbCritical, "错误!"
Text1.SetFocus
micount = micount + 1
Exit Sub
End If
If Trim(Text2.Text) = "" Then
MsgBox "密码不能为空!", vbOKOnly + vbCritical, "错误!"
Text2.SetFocus
micount = micount + 1
Exit Sub
End If
If Trim(Combo1.Text) = "选择类别" Then
MsgBox "请选择用户类别!", vbOKOnly + vbCritical, "错误"
Combo1.SetFocus
Exit Sub
End If
sql = sql + "用户名='" & Text1.Text & "'"
sql = sql + "密码='" & Text2.Text & "'"
sql = sql + "类别='" & Combo1.Text & "'"
rs.Open sql, conn, 1, 1 `````````````` ' 这里老是出错
If rs.RecordCount = 1 Then
pname = rs("用户名")
pword = rs("密码")
ptype = rs("类别")
Unload Me
Form3.Show
Else
MsgBox "用户名或密码不对!", vbOKOnly + vbInformation, "错误"
Unload Me
End If
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
micount = micount + 1
If micount = 3 Then
Me.Hide
End If
你出了什么错
类似的程序,单单程序无法看出有什么错
1.你的数据库文件必须存在,且你的连接字看上去本身就是错的
"provider=microsoft.jet.oledb.4.0;data source=C:Users罗小军DesktopVB+ACCESSACCESS.mdb"
你的这个中间的+是什么意思?你的路径名就是VB+ACCESS?
2.数据库中的表必须先建好,且必须有测试数据存在
3.界面上的Text1等控件必须存在(包括Combo1等)
4.其它 的如Form3也必须存在
关键还是要看你的出错信息,所以程序调试都是基于系统的信息完成的