如何将VB窗体中文本框中的内容添加到相应的Access表中？

来源：百度知道 编辑：UC知道 时间：2024/05/12 05:37:41
ACCESS表格中有价格、名称、数量字段，库存表。
窗体中有text1,text2,text3
该如何编写添加按钮的代码？

Dim db As New ADODB.Connection
Dim rrs As New ADODB.Recordset

Private Sub Command1_Click()
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\123.MDB"
rrs.Open "数据表", db, 3, 3
rrs.AddNew
rrs.Fields(0).Value = Text1.Text
rrs.Fields(1).Value = Text2.Text
rrs.Fields(2).Value = Text3.Text
rrs.Update
rrs.Close
db.Close
MsgBox "记录已经成功添加！"
End Sub

with adodc
.open "select * from top 1 库存表"
.add
.field("价格")=text1.text
.field("名称")=text2.text
.field("数量")=text3.text
.update
.close
end with