Question

我正在尝试使用vba将值存储在excel的访问数据库中。

我在Excel中有一个表单，我从用户那里获得输入。

在VBA上，在Locals窗口中，我可以看到分配给对象的值，如下所示

Name = Mike
Age = 23
Occupation = Student

在Access数据库上，我有一个名为UserTable的表，其中包含名为ID, Name, Age, Occupation的列，现在如何将值从VBA传递到Access数据库。

我希望同时按记录添加值记录。

这是我收到错误的地方

strSQL = "PARAMETERS [Name] TEXT(255), [Age] INTEGER, [Occupation] TEXT(255);" _
               & " INSERT INTO UserTable([User Name], [User Age], [User Occupation]);"

请在我的学习上帮助我。

Answer 1

创建对ADO记录集库的引用

创建并打开Access对象到访问数据库

 Dim Conn as new adodb.connection
  conn.connectionstring = "google for connection string here"
  conn.open

创建一个包含追加查询的字符串（注意：字段和字符串之间需要逗号）

Dim strSQL as string
StrSql = "INSERT INTO [Usertable] ( Name, Age, Occupation ) "
strsql = strsql & "Values('" & me.Name & "'," & me.age & ",'" & me.occupation & "')"

使用EXECUTE运行此字符串

conn.execute  strsql

如何更快地将值写入访问数据库 - VBA（excel）

1 个答案: