使用查询将值添加到 table

Question

所以我想做的就是将两个查询添加到名为 tmpGroupSearch 的 table 中。我不确定如何通过创建记录集并遍历每条记录并单独添加它们来做到这一点。我认为有一种更简单的方法可以做到这一点我只是找不到合适的结构。

这是我的查询：

"SELECT tblGroupHeader.GroupName" _
                           & ", tblGroupHeader.GroupNum" _
                           & ", tblAlsoKnown.AlsoKnown" _
                    & " FROM tblGroupHeader" _
                       & " LEFT JOIN tblAlsoKnown ON tblGroupHeader.GroupNum = tblAlsoKnown.GroupNum" _
                    & " WHERE tblGroupHeader.GroupName like '" & txtgroupSearch.Value & "*'" _
                          & " OR tblGroupHeader.GroupNum like '" & txtgroupSearch.Value & "*';"


"Select * FROM tblActionLog WHERE AlsoKnown LIKE '" & txtgroupSearch.Value & "*';"

Answer 1

INSERT INTO语句可以写成两种形式。

第一种形式没有指定要插入数据的列名，只指定它们的值：

INSERT INTO table_name
VALUES (value1,value2,value3,...);

第二种形式指定要插入的列名和值：

INSERT INTO table_name (column1,column2,column3,...)
VALUES (value1,value2,value3,...);

Answer 2

您可以在 INSERT INTO 子句后跟一个值列表，如 @Asad 显示，或者 SELECT 查询。帮自己一个忙，始终在 SQL 中列出字段名称，否则您只是在为未来制造定时炸弹。

Dim strSelect1 As String
Dim strSelect2 As String

strSelect1 = "SELECT tblGroupHeader.GroupName" _
  & ", tblGroupHeader.GroupNum" _
  & ", tblAlsoKnown.AlsoKnown" _
  & " FROM tblGroupHeader" _
  & " LEFT JOIN tblAlsoKnown ON tblGroupHeader.GroupNum = tblAlsoKnown.GroupNum" _
  & " WHERE tblGroupHeader.GroupName like '" & txtgroupSearch.Value & "*'" _
  & " OR tblGroupHeader.GroupNum like '" & txtgroupSearch.Value & "*';"

strSelect2 = "Select * FROM tblActionLog WHERE AlsoKnown LIKE '" & txtgroupSearch.Value & "*';"

Dim strInsert1 As String
Dim strInsert2 As String

strInsert1 = "INSERT INTO tmpGroupSearch (GroupName, GroupNum, AlsoKnown) " & strSelect1

'the next version is valid SQL, but *dangerous* because field names are not enumerated
strInsert2 = "INSERT INTO tmpGroupSearch " & strSelect2

Answer 3

在 Access 查询设计器中测试此参数查询并根据需要进行调整，以便它 returns 为您提供的 pSearchText 参数值设置的行集。

PARAMETERS pSearchText Text ( 255 );
SELECT gh.GroupName, gh.GroupNum, ak.AlsoKnown
FROM
    tblGroupHeader AS gh
    LEFT JOIN tblAlsoKnown AS ak
    ON gh.GroupNum = ak.GroupNum
WHERE
       gh.GroupName Like "'" & pSearchText & "*'"
    OR gh.GroupNum Like "'" & pSearchText & "*'"
UNION ALL
SELECT al.GroupName, al.GroupNum, al.AlsoKnown
FROM tblActionLog AS al
WHERE al.AlsoKnown Like "'" & pSearchText & "*'"

一旦你让它返回正确的数据，通过将语句的开头更改为这个...

将其转换为 INSERT 查询

PARAMETERS pSearchText Text ( 255 );
INSERT INTO tmpGroupSearch (GroupName, GroupNum, AlsoKnown)
SELECT gh.GroupName, gh.GroupNum, ak.AlsoKnown
... and the rest

将该查询另存为 qryGroupSearchAppend。然后您可以从 VBA 代码执行该查询：

Dim qdf As DAO.QueryDef
Set qdf = CurrentDb.QueryDefs("qryGroupSearchAppend")
qdf.Parameters("pSearchText").Value = Me.txtgroupSearch.Value
qdf.Execute dbFailOnError

使用查询将值添加到 table

Adding values into a table with a query

ms-access

vba