Private Sub Command4_Click()Set cnn = New ADODB.Connectioncnn.Open = "Provider=Microsoft.Jet.OLEDB.4.0; DataSource=a.mdb;Persist Security Info=False"Set rs = New ADODB.Recordsetrs.Open "select * from b", cnn, adOpenStatic, adLockReadOnlyIf rs.BOF And rs.EOF ThenMsgBox "請核實是否正確！"Text3.Text = ""Text3.SetFocusElseIf rs.Fields("稱號") = Text3.Text And rs.Fields("昵稱") = Text2.Text ThenMsgBox "歡迎登錄！"form1.HideForm3.ShowElseMsgBox "昵稱輸入有誤！"Text2.Text = ""Text2.SetFocusform1.ShowForm3.HideEnd IfEnd IfEnd Sub
2 回答
動漫人物
TA貢獻1815條經驗 獲得超10個贊
看不出來，是不是前幾行？如果你頁面上有“Option Explicit”要求定義變量，我改了下：
Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Persist Security Info=False;User ID=Admin; " & _
"Jet OLEDB:Database Password=; Data Source=a.mdb"
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
添加回答
舉報
0/150
提交
取消