UC知道vb和ACCESS数据库问题,急急急！！！！哪位高手帮一下！
来源：百度知道 编辑：UC知道 时间：2024/07/08 20:52:41
Adodc1.RecordSource = "select count(*) from 基本情况 where 号码=101'" & Command4.Caption & "'"
n=adodc1.recordset.recordcount
if n<>0 then command4.caption='进入'
else command4.caption='未进入'
end if
这个程序错到哪了,那个n需要定为什么样的类型
我把adodc1用属性连接的数据库，而不是写的代码。为什么程序执行时，弹出n=adodc1.recordset.recordcount 缺少with
当我加上with以后，说with对象必须为用户定义类型、对象和实体？
n=adodc1.recordset.recordcount
if n<>0 then command4.caption='进入'
else command4.caption='未进入'
end if
这个程序错到哪了,那个n需要定为什么样的类型
我把adodc1用属性连接的数据库，而不是写的代码。为什么程序执行时，弹出n=adodc1.recordset.recordcount 缺少with
当我加上with以后，说with对象必须为用户定义类型、对象和实体？
Private Sub Form_Load()
'为数据控件设置连接的数据库文件的路径及名称.
Me.Adodc1.DatabaseName = App.Path & "\*.MDB"
'设定Adodc数据控件的数据属性.
Adodc1.RecordSource = "基本情况" '设定数据源.
Adodc1.Refresh '刷新控件.
'设定组合框内容.
Adodc1.Recordset.MoveFirst '转移至最前记录，注意表中必须有记录，否则会出错.
While Not Adodc1.Recordset.EOF '循环至最后记录.
ComboName.AddItem Adodc1.Recordset(0) '向组合框列表中添加条目.
Adodc1.Recordset.MoveNext '转向下一条记录.
Wend
End Sub
Private Sub CmdOk_Click()
Dim sqlstr As String '定义字符号串,用于传递登陆信息.
'从文本框中获取用户输入的登录信息.
sqlstr = "select * from 基本情况 where 号码='" & Trim(ComboName.Text) & "' and 密码='" & Trim(txtPassword.Text) & "'"
Me.Adodc1.RecordSource = sqlstr '设置数据控件的数据源.
Me.Adodc1.Refresh '刷新数据控件.
If Me.Adodc1.Recordset.RecordCount = 0 Then '如果没有对应的记录,登录失败.