首先，您需要在VB代码中引用ADODB库。
示例代码如下：
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strSQL As String
‘连接数据库
cn.ConnectionString = “Provider=SQLOLEDB.1;Data Source=数据库服务器;Initial Catalog=数据库名称;User ID=用户名;Password=密码;”
cn.Open
‘构造SQL语句
strSQL = “SELECT * FROM 表名 WHERE 字段1=’条件1′ AND 字段2=’条件2′”
‘执行SQL语句
rs.Open strSQL, cn, adOpenStatic, adLockReadOnly
‘读取数据
Do While Not rs.EOF
'将数据赋值给变量或控件
Text1.Text = rs.Fields("字段1").Value
Text2.Text = rs.Fields("字段2").Value
'...
rs.MoveNextLoop
‘关闭记录集和连接
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
在连接字符串中，您需要替换以下参数：
- 数据库服务器：填写您的数据库服务器的名称或IP地址。
- 数据库名称：填写您的数据库的名称。
- 用户名：填写能够访问数据库的用户名。
- 密码：填写用户名对应的密码。
在构造SQL语句时，您需要替换以下参数：
- 表名：填写您要查询的表名。
- 条件1、条件2、字段1、字段2：填写您的查询条件和要查询的字段名。
在读取数据时，您需要替换以下参数：
- Text1、Text2：替换为您的控件名称。
希望以上代码能够对您有所帮助，如有疑问，欢迎随时咨询。
请问需要什么具体帮助呢？下面提供一份示例代码，供参考：
Private Sub cmdAdd_Click()
Dim MyConn As ADODB.Connection
Dim MyCmd As ADODB.Command
Dim MyRs As ADODB.Recordset
Set MyConn = New ADODB.Connection
Set MyCmd = New ADODB.Command
MyConn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:myFoldermyAccessFile.accdb;Persist Security Info=False;"
MyConn.Open
MyCmd.ActiveConnection = MyConn
MyCmd.CommandType = adCmdText
MyCmd.CommandText = "INSERT INTO myTable (Field1, Field2, Field3) VALUES (?, ?, ?);"
MyCmd.Parameters.Append MyCmd.CreateParameter("Field1", adVarChar, adParamInput, Len(txtField1.Text), txtField1.Text)
MyCmd.Parameters.Append MyCmd.CreateParameter("Field2", adVarChar, adParamInput, Len(txtField2.Text), txtField2.Text)
MyCmd.Parameters.Append MyCmd.CreateParameter("Field3", adVarChar, adParamInput, Len(txtField3.Text), txtField3.Text)
MyCmd.Execute
MyConn.Close
'Clear form
txtField1.Text = ""
txtField2.Text = ""
txtField3.Text = ""
'Refresh data grid
Call cmdRefresh_Click
End Sub此代码可用于将数据添加到 Microsoft Access 数据库中。请确保已引用 Microsoft ADO Ext. 6.0 for DDL and Security（在 VB 编辑器中，依次选择“工具”->“引用”，然后选中该引用）。具体代码请根据实际需要进行修改。
发布者：luotuoemo，转转请注明出处：https://www.jintuiyun.com/158770.html
