求助，如何把数据写入access数据库

方法

1）手动录入和ACCESS菜单导入命令导入外部数据，方法略；

2）在查询对象编写并运行SQL追加查询，例如

insert into t1(col1,col2,col3) values('001','ABC',#2017-04-14#)

3）利用VBA代码执行SQL语句或利用数据访问API(ADO)等向数据表写入数据。例如

Private Sub Command1_Click()

CurrentProject.Connection.Execute "insert into t1(col1,col2,col3) values('001','ABC',#2017-04-14#)"

End Sub

两种办法，一种是 用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

打开数据库后，单击“外部数据”选项卡下“导入”组中的Excel按钮，d出“获取外部数据-Excel电子表格”对话框。

在“获取外部数据-Excel电子表格”对话框中，单击“浏览”按钮，在d出的“打开”对话框中选择Excel文件，然后在“获取外部数据-Excel电子表格”对话框中选择“将源数据导入当前数据库的新表中”单选钮，单击“确定”按钮。

d出“导入数据表向导”对话框，可以看到该Excel电子表格中共有3张Sheet表，我们选择“显示工作表”单选钮和“Sheet1”选项，单击“下一步”按钮。

d出选定字段名称的界面，勾选“第一行包含列标题”复选框，然后单击“下一步”按钮。

d出指定字段界面，单击下方的预览窗口中的各个列，则可以在上面显示相应的字段信息，设置字段名称、数据类型等参数，最后单击“下一步”按钮。

d出设置主键界面，选中“我自己选择主键”单选钮，并在右侧的下拉列表中选择主键字段，然后单击“下一步”按钮。

在d出的界面中输入数据表名称，单击“完成”按钮。

d出是否要保存导入步骤的界面，勾选“保存导入步骤”复选框，在“说明”文本框中输入必要的说明信息，单击“保存导入”按钮，完成导入数据和保存导入步骤。

---