我做一个登陆界面,通过和SQL SERVE 2000连接。数据库中有用户表。界面上有两个text,两个command:确定、取消。在text1里输入用户名,text2里输入密码,连接数据库。还有个adodc控件。属性都设置好了
运行是时候,提示:第一行'*’附近有语法错,然后点确定这个提示窗消失。登陆界面出现,可以输入用户名和密码,输入之后,点‘确定’出现'实时错误‘424’要求对象'这样的提示,是什么原因啊??
Private Sub Command1_Click()
Dim sql As String
Dim rs_login As New ADODB.Recordset
Dim conn As New ADODB.Connection
conn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=学生选课;Data Source=天辰"
If Trim(Text1.Text) = "" Then
MsgBox "用户名不能为空,请重新输入!"
Text1.SetFocus
Else
sql = "select * from 用户信息 where userid='" & Trim(Text1.Text) & "'"
rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic
If rs_login.EOF = True Then
MsgBox "没有这个用户,请重输入!", vbOKOnly + vbExclamation, ""
Text1.Text = ""
Text1.SetFocus
Else
Userid = Text1.Text
If Trim(rs_login.Fields(1)) = Trim(Text2.Text) Then
Unload Me
学生选课.Show
Else
MsgBox "密码不正确,请重输入!", vbOKOnly + vbExclamation, ""
Text2.SetFocus
Text2.Text = ""
End If
End If
End If
cnt = cnt + 1
If cnt = 3 Then
Unload Me
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
|