sql - 如何将一张表中的字符替换为另一张表的记录

Question

我在 MSACCESS 中有两个表。

表格1

table1ID,txtOld,txtreplace,国家

1,ä,AA,德国

2,ä,a,所有

3,Ä,A,挪威

4,Ä,a,全部

5,Ä,A,德国

表2

table2ID、名字、地址、国家

1,RonÄld, mäin street, Germany

2，MÄdonä，公园路，美国

3，Madonä，公园路，挪威

我想根据 table1 上分配的国家/地区字符替换 table2 上名字和地址的特殊字符。如果国家不匹配或未在 table1 上分配，例如此处未分配 USA，它将替换与 table1 中的国家名称“all”匹配的字符。

Answer 1

不幸的是，我们不能在单个 Access SQL 查询中执行此操作，因此我们使用 VBA：

Sub ReplaceAccentsInTable2()
'
  Dim rst As dao.Recordset
  Dim rst1 As dao.Recordset
'
  Set rst = CurrentDb.OpenRecordset("table2")
'
' replace first by country specific alphabet:
'
  Do While (Not rst.EOF)
    '
    Set rst1 = CurrentDb.OpenRecordset("SELECT txtOld, txtreplace" _
      & " FROM table1 WHERE (country='" & rst!Country & "');")
    '
    rst.Edit
    '
    While (Not rst1.EOF)
      rst!Firstname = Replace(rst!Firstname, rst1!txtOld, rst1!txtreplace, , , vbBinaryCompare)
      rst!Address = Replace(rst!Address, rst1!txtOld, rst1!txtreplace, , , vbBinaryCompare)
      rst1.MoveNext
    Wend
    '
    rst.Update
    rst.MoveNext
    '
  Loop
'
' replace then "all" alphabet: this is useful for Norway, as â is not set in table1:
'
  Set rst1 = CurrentDb.OpenRecordset("SELECT txtOld, txtreplace" _
    & " FROM table1 WHERE (country='all');")
'
  rst.MoveFirst
'
  Do While (Not rst.EOF)
    '
    rst.Edit
    rst1.MoveFirst
    '
    While (Not rst1.EOF)
      rst!Firstname = Replace(rst!Firstname, rst1!txtOld, rst1!txtreplace, , , vbBinaryCompare)
      rst!Address = Replace(rst!Address, rst1!txtOld, rst1!txtreplace, , , vbBinaryCompare)
      rst1.MoveNext
    Wend
    '
    rst.Update
    rst.MoveNext
    '
  Loop

'
' close ADO objects:
'
  rst1.Close
  Set rst1 = Nothing
'
  rst.Close
  Set rst = Nothing
'
End Sub

结果表2在这里：