怎样用VB对access数据库 进行 数据 添加

Question

想做一个商品信息查询添加系统 使用的access 控件 连接的ADO
其中表名 叫 商品信息表.mdb 里面有个 酒水信息 表 并且已经连接 且 可以使用DataGrid 显示表中的信息了 现在想做一个 添加功能 当点击添加按钮后 进入一个子界面
可以 添加一些数据 如：商品编号 商品名称 商品价格 等 怎么实现这个操作 代码怎么写 ？？

Answer 1

两种办法，一种是 用SQL，另一种是ADO
1、用SQL添加数据：
insert into 表名（字段1，字段2，字段3）
values（值01，值02，值03）
例如：
docmd.runsql"insert into EmpTable(Name,age,Duty,Salary) values('王明',35,'外贸总监',12500)"
2、用ADO的办法：
ADO比较复杂，给你一个完整的例子吧：

Dim strSqlfitjc As String
strSqlfitjc = "select * from *表"
Set RSfitjc = New ADODB.Recordset ‘定义一个ADO连接，连进数据库
RSfitjc.Open strSqlfitjc, cn, adOpenKeyset, adLockOptimistic ’打开连接
RSfitjc.addnew '添加一个纪录
RSfitjc.Fields("配件编号") = “style” ‘给每个字段赋值
.Update ’储存赋值的新纪录
.Close 关闭连接
End With

Answer 2

连接好数据库后,就可以查询,添加,修改,删除数据了
添加:
Adodc1.Recordset.AddNew '添加空记录
Adodc1.Recordset.Fields("商品编号") = Text1.Text
Adodc1.Recordset.Fields("商品名称") = Text2.Text
Adodc1.Recordset.Fields("商品价格") = val(Text3.Text)

Adodc1.Recordset.Update '保存数据本回答被提问者采纳