运行时提示有错,然后停留在第一行上面
Private Sub Command1_Click()
mname = Text1.Text
pass = Text2.Text
Dim mycn As New ADODB.Connection
Dim myrs As New ADODB.Recordset
Set myrs = New ADODB.Recordset
mycn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=rsgl.mdb;"
myrs.Open "SELECT * FROM [user] where (user.user)='" + mname + "';", mycn, adOpenKeyset, adLockOptimistic
If myrs.BOF = True And myrs.EOF = True Then
MsgBox "查无此人", , "登陆信息"
Else
If myrs("pass") = pass Then
''''''''''''''''''''''''''''''''''''''''''
MsgBox "ok", , "登陆信息"
MDIForm1.Show
Unload Me
'''''''''''''''''''''''''''''''''''''''''''''''''''
Else
MsgBox "密码不正确", , "登陆信息"
End If
End If
End Sub
Private Sub Form_DblClick()
MsgBox "hello"
End Sub
Private Sub Form_Load()
Dim mname As String
Dim pass As String
End Sub
--------------------编程问答-------------------- 你别说,还真是出在第一行上 --------------------编程问答-------------------- 关键是报的啥错提示 说清楚 --------------------编程问答-------------------- 楼主的问题是在是高 --------------------编程问答-------------------- 你们都这样?
我还特意把代码全粘过来,试了试,没问题啊,运行的好好的。
--------------------编程问答-------------------- 所有变量都定义了,只有第一,第二行的变量定义在另外的过程中...
--------------------编程问答-------------------- mname = Text1.Text
请问你的mname定义了没?你的from里面有没有一个text1? --------------------编程问答-------------------- --------------------编程问答-------------------- 总有出错提示吧? 咋说的? 看看
补充:VB , 控件