vb+SQL做一个登录界面，报错"对象变量或With块变量未设置"

来源：百度知道 编辑：UC知道 时间：2024/06/11 14:53:24
我在做一个多用户的登录界面，是用VB+SQL。用adodc控件实现连接。程序段如下：
Private Sub cmdLogin_Click()
Dim str As String
str = "Select * from user where name='" + UserName.Text + "'and pwd='" + Password.Text + "'"
Adodc1.RecordSource = str
If Adodc1.Recordset.RecordCount > 0 Then
MDIFrmMain.Show
Unload Me
Else
MsgBox "密码错误"
End If
End Sub
运行到If Adodc1.Recordset.RecordCount > 0 Then这句时，回报错"对象变量或With块变量未设置"
希望大家帮忙找出问题所在！谢啦！
我之前加过Adodc1.Refresh，可是这句也报错“SQL语句在关键字user 附近有错”“对象Refresh的方法‘IAdodc’失败”，所以我就把这句去掉了。

你缺的东西多，你看下面的程序，希望对你有点帮助
Public CONN As Adodb.Connection '定义ADO CONNECTION对象
Public RS As Adodb.Recordset '定义ADO RECORDSET对象

'****************************
'打开数据库连接
'****************************
Function ConnOpen()
Dim ASTR As String
Set CONN = New Adodb.Connection
ASTR = GetDatabasePath 'MDB文件数据库路径

CONN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ASTR & ";Persist Security Info=False"
'本例的ODBC连接为JET4.0的直接到MDB文件的连接，如果使用ODBC数据源可以使用如下CONNECTION串：
'Provider=MSDASQL.1;Password="";Persist Security Info=True;Data Source=数据源名称;Initial Catalog=数据表库名称

CONN.Open

Set RS = New Adodb.Recordset

With RS Do
ActiveConnection = CONN
CursorType = adOpenDynamic
LockType = adLockOptimistic
End With
End Function

&#