UC知道VB 语法错误(操作符丢失)在查询表达式用户名="内容" And where 密码=" 内容"丢失
来源：百度知道 编辑：UC知道 时间：2024/06/24 18:53:20
Private Sub Command1_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String
conn.connectionstring = "provider=Microsoft.Jet.OLEDB.4.0;Data source=D:\厦门翱翔商品管理软件\DataBase\date.mdb"
conn.Open '连接数据库
sql = "select * from dlqx where 用户名='" & Text2.Text & "' And where 密码='" & Text1.Text & "'"
rs.Open sql, conn, adOpenKeyset, adLockReadOnly
If Text1.Text = rs.Fields("密码") And Combo1.Text = rs.Fields("用户名") Then
main.Show '(显示form1窗口)
Unload Me '(卸载当前窗口)
Else
MsgBox "密码错误！", 16, "错误"
End If
Set rs = Nothing
conn.Close
Set conn = Nothing
End Sub
都好搞几天，网上也看了很多都不行啊？
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String
conn.connectionstring = "provider=Microsoft.Jet.OLEDB.4.0;Data source=D:\厦门翱翔商品管理软件\DataBase\date.mdb"
conn.Open '连接数据库
sql = "select * from dlqx where 用户名='" & Text2.Text & "' And where 密码='" & Text1.Text & "'"
rs.Open sql, conn, adOpenKeyset, adLockReadOnly
If Text1.Text = rs.Fields("密码") And Combo1.Text = rs.Fields("用户名") Then
main.Show '(显示form1窗口)
Unload Me '(卸载当前窗口)
Else
MsgBox "密码错误！", 16, "错误"
End If
Set rs = Nothing
conn.Close
Set conn = Nothing
End Sub
都好搞几天，网上也看了很多都不行啊？
sql = "select * from dlqx where 用户名='" & Text2.Text & "' And where 密码='" & Text1.Text & "'"
问题就出在这里，后面的那个and where改为and就可以了
{conn.connectionstring = "provider=Microsoft.Jet.OLEDB.4.0;Data source=D:\厦门翱翔商品管理软件\DataBase\date.mdb"
conn.Open '连接数据库}
那句改为：conn.open "provider=microsoft.jet.oledb.4.0;data source=" & app.path & "\厦门翱翔商品管理软件\DataBase\date.mdb"(记住“厦门翱翔商品管理软件”文件夹要跟你现在编的文件在同一目录下）
rs.open "select * from dlqx where 用户名='" & Text2.Text & "' And where 密码='" & Text1.Text & "'",conn,adOpenKeyset, adLockBatchOptimistic(记得标点符号是英文状态下的！）