UC知道VB登陆代码无法调试,请高手进!
来源：百度知道 编辑：UC知道 时间：2024/05/31 07:34:38
我在做SQL跟VB连接的时候~
总是.OPEN出问题无法进行下一步调试~
郁闷死了~
下面是我的代码~
Const MaxLogTimes As Integer = 3
Private Sub Form_Load()
txtName = ""
txtPwd = ""
End Sub
Private Sub cmdCancel_Click()
If MsgBox("你选择了退出系统登录，退出将不能启动管理系统！" & vbCrLf _
& "是否真的退出？", vbYesNo + vbQuestion, "登录验证") = vbYes Then
Unload Me
End If
End Sub
Private Sub cmdOk_Click()
Dim objCn As Connection, objRs As Recordset, strSql$
If Trim(txtName) = "" Then
MsgBox "请输入用户名！", vbExclamation, "登录验证"
txtName = ""
txtName.SetFocus
Exit Sub
End If
If Trim(txtPwd) = "" Then
MsgBox "请输入登录口令！", vbExclamation, "登录验证"
txtPwd = ""
txtPwd.SetFocus
Exit
总是.OPEN出问题无法进行下一步调试~
郁闷死了~
下面是我的代码~
Const MaxLogTimes As Integer = 3
Private Sub Form_Load()
txtName = ""
txtPwd = ""
End Sub
Private Sub cmdCancel_Click()
If MsgBox("你选择了退出系统登录，退出将不能启动管理系统！" & vbCrLf _
& "是否真的退出？", vbYesNo + vbQuestion, "登录验证") = vbYes Then
Unload Me
End If
End Sub
Private Sub cmdOk_Click()
Dim objCn As Connection, objRs As Recordset, strSql$
If Trim(txtName) = "" Then
MsgBox "请输入用户名！", vbExclamation, "登录验证"
txtName = ""
txtName.SetFocus
Exit Sub
End If
If Trim(txtPwd) = "" Then
MsgBox "请输入登录口令！", vbExclamation, "登录验证"
txtPwd = ""
txtPwd.SetFocus
Exit
sa密码不对,重设下。
我来回答吧
是ADODB.Connection而不是Connection .是ADODB.Recordset不是Recordset,你的程序中很多地方都没写ADODB,你修改下试试.ADODB是数据库访问组件,connection是其中的一个对象
答对了分给我啊 呵呵
在数据库里
你连接的sql数据应该用sqlconnection对象啊！
Do While Not rs.EOF
x = x + 1
Grid1.AddItem ""
Grid1.TextMatrix(x, 1) = rs.Fields(0).Value
Grid1.TextMatrix(x, 2) = rs.Fields(1).Value
Grid1.TextMatrix(x, 3) = rs.Fields(2).Value
rs.MoveNext
If rs.EOF Then
rs.MoveFirst
End If
Loop
这里的
If rs.EOF Then
rs.MoveFirst
End If
会导致循环变为死循环,不知道为什么要这么用.
应该去掉这三行.