提示框顯示From附近有語法錯誤，但是能運行，最上面是Adodc1
我的代碼如下：
If Text1.Text > "" And Text2.Text > "" Then
Adodc1.RecordSource = "select * from 權限表 where 用戶名='" & Text1.Text & "'And 密碼='" & Text2.Text & "'"
Adodc1.CommandType = adCmdText
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then '有資料
Adodc1.Recordset.MoveFirst
If Trim(Text2.Text) <> Trim(Adodc1.Recordset.Fields("密碼")) Then '核對用戶密碼
MsgBox "原始密碼錯誤,請重新輸入", , "提示："
Else
If Trim(Text4.Text) <> Trim(Text3.Text) Then
MsgBox "密碼不一致，重新輸入", , "提示："
Text4.Text = ""
Else
Adodc1.Recordset.Fields("密碼") = Trim(Text4.Text)
Adodc1.Recordset.Update
MsgBox "密碼修改成功", , "提示："
End If
End If
Else
MsgBox "用戶名與密碼不存在", , "提示："
End If
Else
MsgBox "用戶名與密碼不可為空", , "提示："
End If
End Sub
Private Sub Text2_keydown(keycode As Integer, shift As Integer)
If keycode = 13 Then
Call Command1_Click
End If
End Sub
uj5u.com熱心網友回復：
是不是 "'And 密碼='" 這兒的And 前少了一個空格？uj5u.com熱心網友回復：
將表名、欄位名用[]括住再試試。uj5u.com熱心網友回復：
都試了，不對，還是一樣的提示uj5u.com熱心網友回復：
Adodc1.RecordSource = "select * from 權限表 where 用戶名='" & Text1.Text & "'And 密碼='" & Text2.Text & "'"
修改為：
Adodc1.RecordSource = "select * from 權限表 where 用戶名='" & Text1.Text & "' And 密碼='" & Text2.Text & "'"
And前面應該有空格，如果Texi1=abcd,Text2=1234
那么你原來的陳述句生成后是：select * from 權限表 where 用戶名=‘abcd’And 密碼='1234'
修改后是：select * from 權限表 where 用戶名=‘abcd’ And 密碼='1234'
是一個隱形錯誤。
uj5u.com熱心網友回復：
我在1樓的回復中就說了這個，樓主在3樓的答復，不是這個錯誤原因。
uj5u.com熱心網友回復：
后來我重新建了一個表單，程式復制過去，運行就沒有提示了，不知道為什么。uj5u.com熱心網友回復：
那會不會是你的Adodc屬性，某些設定跟你的運行環境不符？（我從來沒使用過這個東西，不清楚細節
）
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/75288.html
標籤：VB基礎類