Question

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

想用vb6+access写一个资料管理程序..在"外接程序-数据窗体向导-access-单个记录-ado数据控件"添加数据窗体之后无法使用..提示Data event hit error:至少有一个参数没有指定值.然后就是对象变量或者with块变量出错..求解决方法...

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

Answer 1

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

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

'定义数据连接对象

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

Public RS As New ADODB.Recordset         '结果集

'连接数据库

  conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库目录\数据库名.mdb;Jet OLEDB:Database Password="

'连接数据表

    strSQL = "SELECT * FROM 登录表 where 用户名='" & Text1.Text & "'"

    RS.Open strSQL, conn, 2, 2

Answer 2

'要连接access数据库有两种方法用ADODC或ADO.

方法一: （ADODC)
首先须引用Projects-Components-Microsoft ADO Data Controls 6.0 (OLEDB).
之后在表单设置ADODC控件。然后Form_Load()输入以下代码：

Private Sub Form_Load()
ADODC1.ConnectionString = "provider=Microsoft.jet.OLEDB.4.0;Persist security info= False; Data source=" & App.Path & "\数据库名称.mdb"

ADODC1.CommandType = adCmdText
ADODC1.RecordSource = "select * from 表格名称"
ADODC1.Refresh
End Sub

方法二: (ADO)

'首先须引用Projects-References-Microsoft Active X Data Objects 2.0 Library.

'*注意以下两段须写在程式最上面（Gerenal一般）中。

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim SQL As String

'然后在Form_Load()输入以下代码：
Private Sub Form_Load()
cn.ConnectionString = "provider=Microsoft.jet.OLEDB.4.0;Persist security info= False; Data source=" & App.Path & "\数据库名.mdb"
cn.Open

If rs.State = adStateOpen Then rs.Close
rs.CursorLocation = adUseClient
SQL = "select * from 表格名"
rs.Open Trim$(SQL), cn, adOpenKeyset, adLockPessimistic
End Sub

Answer 3

在窗体中添加一个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