VB如何用ADO向ACCESS数据库插入和修改记录?

1、Microsoft Access窗口中，选择文件菜单中的打开选项，打开一个已有的数据库。

2、数据库中有两张表格，如下图所示。

3、数据库中，表格学生信息是课程成绩的子表。

4、如果直接在子表中插入记录，会提示不能添加或修改。

5、其实，只需在主表中，插入相关的主键和记录。

6、接着，就可以在子表中插入相关记录了。

7、如果要在子表中插入字段，只需选择单击以添加选项。

8、新增字段后，输入字段名即可。

添加：

’下面这句连接数据库指定表的所有字段

Adodc1.RecordSource = "select * from 库存表"

’下面这句添加记录

Adodc1.Recordset.AddNew

下面4句就是通过4个TEXTBOX控件输入字段的数据，如果是数字类型可以加VAL

Adodc1.Recordset.Fields("货物编号") = Text1.Text

Adodc1.Recordset.Fields("货物名称") = Text2.Text

Adodc1.Recordset.Fields("库存量") = Text3.Text

Adodc1.Recordset.Fields("单位") = Text4.Text

’下面这个是修改后更新

Adodc1.Recordset.Update

修改：

'通过主键指定要修改的记录

Adodc1.RecordSource = "select * from 库存表 where 货物编号 = " &Text1.Text

Adodc1.Refresh

Adodc1.Recordset.Fields("货物编号") = Text1.Text

Adodc1.Recordset.Fields("货物名称") = Text2.Text

Adodc1.Recordset.Fields("库存量") = Text3.Text

Adodc1.Recordset.Fields("单位") = Text4.Text

给你一个例子，你参考一下就可以做出来了：

Sub 支出登记_Click()

Dim i As Integer, j As Integer, k As Integer, sht As Worksheet 'i,j,k为整数变量；sht 为excel工作表对象变量，指向某一工作表

Dim cn As New ADODB.Connection '定义数据链接对象 ，保存连接数据库信息；请先添加ADO引用

Dim rs As New ADODB.Recordset '定义记录集对象，保存数据表

Dim strCn As String, strSQL As String '字符串变量

Dim mdbFile As String

On Error GoTo add_err

mdbFile = ActiveWorkbook.Path &"\\生活数据库.mdb"

strCn = "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" &mdbFile '定义数据库链接字符串

cn.Open strCn '与数据库建立连接，如果成功，返回连接对象cn

Set rs = New ADODB.Recordset

rs.Open "dbl支出登记表", cn, adOpenKeyset, adLockOptimistic

rs.AddNew

rs(1) = Cells(5, 3)

rs(2) = Cells(6, 3)

rs(3) = Cells(7, 3)

rs(4) = Cells(8, 3)

rs(5) = Cells(9, 4)

rs(6) = Cells(10, 4)

rs.Update

Cells(5, 3) = Date

Cells(6, 3) = ""

Cells(7, 3) = ""

Cells(8, 3) = ""

Cells(9, 3) = ""

Cells(10, 3) = ""

MsgBox "数据记录添加成功！", vbInformation

Cells(5, 4).Select

ActiveWorkbook.RefreshAll

add_exit:

Exit Sub

End If

add_err:

MsgBox Err() &vbCrLf &Error()

Resume add_exit

End Sub

如有不明白，可以QQ我：13764732

---