UC知道VB问题，求教高手
来源：百度知道 编辑：UC知道 时间：2024/05/26 22:59:18
Dim Rs As ADODB.Recordset
Private Sub Command1_Click()
Static intErr As Integer
adouser.Refresh
Set Rs = adouser.Recordset
Dim Rss As New ADODB.Recordset
Rss.Open "SELECT * FROM 用户 WHERE 用户名='" & Text1 & "'", adouser.ConnectionString, adOpenKeyset
If Not Rss.BOF Then Debug.Print Rss("用户名"), Rss.RecordCount
Rs.Find "用户名='" & Text1.Text & "'"
If Not Rs.EOF Then
If Rs("密码") = Text2.Text Then
gstrUser = txtUserID.Text
If Rs("权限") = "管理员" Then
gblnPurview = True
Else
gblnPurview = False
End If
登陆页面.Show
Unload Me
Else
intErr = intErr + 1
If intErr = 3 Then
Set Rs = Nothing
Private Sub Command1_Click()
Static intErr As Integer
adouser.Refresh
Set Rs = adouser.Recordset
Dim Rss As New ADODB.Recordset
Rss.Open "SELECT * FROM 用户 WHERE 用户名='" & Text1 & "'", adouser.ConnectionString, adOpenKeyset
If Not Rss.BOF Then Debug.Print Rss("用户名"), Rss.RecordCount
Rs.Find "用户名='" & Text1.Text & "'"
If Not Rs.EOF Then
If Rs("密码") = Text2.Text Then
gstrUser = txtUserID.Text
If Rs("权限") = "管理员" Then
gblnPurview = True
Else
gblnPurview = False
End If
登陆页面.Show
Unload Me
Else
intErr = intErr + 1
If intErr = 3 Then
Set Rs = Nothing
提示什么错误啊？贴出来
没有运行,具体不太清楚
adouser连接到数据库上了吗?
还有
Set Rs = adouser.Recordset
Dim Rss As New ADODB.Recordset
这两句好像不对
rs和rss是两个数据集?
一般是这样写的:
Dim Rs As ADODB.Recordset
Set Rs = New adouser.Recordset
adouser应该是ADODC控件名吧，
在这句前面加上：
adouser.ConnectionString="里面放连接数据库字符串"
adouser.RecordSource = sql
先试一试
类型不匹配啊 不能这么赋值
adouser是个什么？DATAGRID控件吗？如果单用一句adouser.RecordSource = sql的话好像会出现，变量对象或WITH语句求定义的错误吧。。没那么简单就可以用一句把SQL里面的集合添加到DTATGRID控件上来的