VB向Access數據庫中插入數據？

以下代碼能使用的前提是庫引用、和數據庫連接代碼正確:

兩種辦法，一種是 用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