vb6编程问题.访问access数据库出错..急~~!!!!

来源：百度知道 编辑：UC知道 时间：2024/06/04 21:15:46
想用vb6+access写一个资料管理程序..在"外接程序-数据窗体向导-access-单个记录-ado数据控件"添加数据窗体之后无法使用..提示Data event hit error:至少有一个参数没有指定值.然后就是对象变量或者with块变量出错..求解决方法...

如果可以提供一段vb6访问access数据库的代码将感激不尽

在窗体中添加一个ADODC控件，采用字符串方式连接ACCESS数据库。以下是系统登录代码：
Private Sub Command1_Click()
Adodc1.RecordSource = "select * from 用户密码 where 姓名='" & Text1.Text & "'"
Adodc1.Refresh
If Adodc1.Recordset.EOF Then
MsgBox "没有这个用户，请重新输入正确的用户名", , "错误提示"
Else
If Text2.Text = Adodc1.Recordset.Fields("密码") Then
yonghu = Adodc1.Recordset.Fields("姓名")
leixin = Adodc1.Recordset.Fields("管理员")
MDIForm2.Show
Unload Me
Else
MsgBox "你的密码错误,请输入正确的用户密码！", , "错误提示"
End If
End If
End Sub

你必须首先在【工程】-【引用】中引用数据连接的对象，如图：

然后在程序代码界面编写下面的代码：

'定义数据连接对象

Public conn As New ADODB.Connection      '与数据库以ADO方式建立的连接

Public RS As New ADODB.Recordset