MS Access 数据库使用 vba 和 sql 查询在列上插入值

Question

有什么方法可以使用 VBA 和 SQL 查询将列添加到 MS Access 数据库中，然后使用其他列中的公式插入值。

例如，我想创建一个列employee ，它应该对所有记录计算值。 我想在employee字段中使用LEFT(col2, 3) 。

这是我的代码：

Sub createcolumn()
    Dim objAccess As Object
    Set objAccess = CreateObject("Access.Application")
    Call objAccess.OpenCurrentDatabase("H:\VBA\Array Practice\Database1array.accdb")
    objAccess.CurrentProject.Connection.Execute ("ALTER TABLE Company ADD COLUMN employee CHAR ")
End Sub

Sub insertvalues()
    Dim objAccess As Object
    Set objAccess = CreateObject("Access.Application")
    Call objAccess.OpenCurrentDatabase("H:\VBA\Array Practice\Database1array.accdb")
    objAccess.CurrentProject.Connection.Execute "INSERT INTO Employee (Gross) VALUES LEFT([full_name], 3)"
End Sub

我能够创建一个新列，但无法插入该值。

Answer 1

您可以使用列 FULL_NAME 而不是插入直接更新表。 我已经测试了以下代码并且它正在工作。

Sub test()
Dim dbs As Database
Set dbs = OpenDatabase("Database1.accdb")  
dbs.Execute "UPDATE EMPLOYEE SET GROSS=LEFT(FULL_NAME, 3)"
dbs.Close
End Sub

Answer 2

您向名为 Company 的表添加了一列，但您正尝试向名为 employee 的表插入值。

如果表名为 company 作为记录，那么您需要更新语句将值添加到新列员工中，但如果表没有任何记录，则可以使用插入语句将值添加到员工字段中。