UC知道VB中连接SQL server时语句出了点问题，请帮忙看看！
来源：百度知道 编辑：UC知道 时间：2024/06/05 00:50:57
窗体为登录界面，有两个文本框：txtUserName（输入用户名），txtPassword（输入密码）,两个按钮：确定，取消，还有个Adodc，以下是代码：
Dim con, rs, admin, pwd
Dim i As Integer
Sub conn()
Set con = CreateObject("ADODB.Connection")
con.Open "driver={sql server};uid=sa;pwd=;database=学生选课管理系统;server=(local)"
Set rs = con.Execute("select User_id,password from User") 'User是数据库中表的名称
Do While Not rs.EOF
admin(i) = Trim(rs("User_id")) 'User_id是数据表里的登录帐号的字段名
pwd(i) = Trim(rs("password")) 'password是密码的字段名
i = i + 1
rs.MoveNext
Loop
Set rs = Nothing
con.Close
Set con = Nothing
End Sub
Private Sub cmdOK_Click()
Call conn
For i = 0 To 2
If admin(i) = Trim(txtUserName.Text) And pwd(i) = Trim(txtPassword.Text) Then
Form1.Hide
Form2.Show
Exit Sub
End If
Next
MsgBox "对不起，用户名不存在或口令错误"
End Sub
运行后提示在语句“Set rs = con.Execute("selec
Dim con, rs, admin, pwd
Dim i As Integer
Sub conn()
Set con = CreateObject("ADODB.Connection")
con.Open "driver={sql server};uid=sa;pwd=;database=学生选课管理系统;server=(local)"
Set rs = con.Execute("select User_id,password from User") 'User是数据库中表的名称
Do While Not rs.EOF
admin(i) = Trim(rs("User_id")) 'User_id是数据表里的登录帐号的字段名
pwd(i) = Trim(rs("password")) 'password是密码的字段名
i = i + 1
rs.MoveNext
Loop
Set rs = Nothing
con.Close
Set con = Nothing
End Sub
Private Sub cmdOK_Click()
Call conn
For i = 0 To 2
If admin(i) = Trim(txtUserName.Text) And pwd(i) = Trim(txtPassword.Text) Then
Form1.Hide
Form2.Show
Exit Sub
End If
Next
MsgBox "对不起，用户名不存在或口令错误"
End Sub
运行后提示在语句“Set rs = con.Execute("selec
Set rs = con.Execute("select User_id,password from [User]")
admin和pwd得定义为数组，如：dim admin(),pwd()
在打开记录集后，重新为数组指定维数：
redim admin(0 to rs.reccount-1)
redim pwd(0 to rs.reccount-1)
你用的是什么版本的数据库。。如果你05.。你把user换成[user]试下
你这用的语言不是我熟悉的。。不知道怎么转换成整型。。。你问下别人 给他转换成整型应该就没问题了
从你打出来的情况来看，没有错误