VB6.0中登录界面的代码，为什么进不去！点击按钮没有反映！

答案:2 悬赏:60 手机版

解决时间 2021-03-10 16:19

提问者网友：焚苦与心
2021-03-10 05:05

Private Sub Command1_Click()
Dim xm As String
Dim mm As String
xm = Trim(Text1.Text)
mm = Trim(Text2.Text)
Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
Set db = New ADODB.Connection
Set rs = New ADODB.Recordset
db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\VB\学生信息表1.mdb;Persist Security Info=False"
db.Open
Dim sql As String
sql = "select * from 管理表 where 用户名='" + xm + "'"
rs.Open sql, db, adOpenStatic, adLockReadOnly
While rs.EOF = False
If rs.Fields(0).Value = xm Then
If rs.Fields(1).Value = mm Then
Form1.Hide
Form3.Show
Else
MsgBox "密码错误,请重新输入！", vbCritical + vbOKOnly
End If
End If
rs.MoveNext
Wend

db.Close

End Sub

最佳答案

五星知识达人网友：佘樂
2021-03-10 06:42

Private Sub Command1_Click()
Dim xm As String
Dim mm As String
xm = Trim(Text1.Text)
mm = Trim(Text2.Text)
Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\db1.mdb;Persist Security Info=False"
db.Open
Dim sql As String

sql = "select * from 管理表 where 用户名='" & xm & "'" & " and 密码='" & mm & "'"
rs.Open sql, db, adOpenStatic, adLockReadOnly
If rs.RecordCount > 0 Then
Form1.Hide
Form3.Show
Else
MsgBox "用户名或密码错误,请重新输入！", vbCritical + vbOKOnly
End If

db.Close

End Sub

VB6专家百度Hi群1358368

全部回答

1楼网友：大漠
2021-03-10 08:11

你要按钮做什么？

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息