access数据库,如果A表中a字段等于B表中b字段,则把符合条件的A表中的...

发布网友发布时间：2024-10-22 08:47

共1个回答

热心网友时间：2024-10-23 08:31

用vba写自定义函数

首先，建立一个模块，写入以下自定义函数：

Function rcMerge(whereStr$)
Dim rs As New ADODB.Recordset, sql$, resultStr$
    sql = "select a,b,c from A where a='" & whereStr & "'"
    rs.Open sql, CurrentProject.Connection, adOpenKeyset, adLockReadOnly
    Do While Not rs.EOF
        resultStr = resultStr & "、" & rs!b & """" & rs!c & """"
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    rcMerge = Replace(resultStr, "、", "", 1, 1)
End Function

然後，建立更新查询，查询的sql：

update B set b=rcmerge(a)

执行，OK！

注意，如果你实际操作的表名称、字段名称和以上的A、B、a、b、c不一样，用的时候以上表名和字段名都要对应修改

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:11247931@qq.com