表1详细省市街道地址，表2标准城市名称，如何查询使表1明细后自动生成标准城市名称？

lihongbin

谢谢大家，初来乍到，刚刚开学。
表1详细省市街道地址，表2标准城市名称，如何设计查询，使查询结果显示为表1明细各字段加对应的标准城市名称字段。

Henry D. Sy

查询也许比较麻烦，用ado吧

1. Public Sub FindCity()
   
2.     Dim rs As New ADODB.Recordset
   
3.     Dim rst As New ADODB.Recordset
   
4.     Dim cnn As New ADODB.Connection
   
5. 
   
6.     Dim lngP As Long
   
7.     Set cnn = CurrentProject.Connection
   
8. 
   
9.     rs.Open "B", cnn, adOpenKeyset, adLockReadOnly
   
10. 
    
11.     Do While Not rs.EOF
    
12.         rst.Open "A", cnn, adOpenKeyset, adLockOptimistic
    
13.         Do While Not rst.EOF
    
14.             lng = InStr(rst.Fields(1), rs.Fields(0))
    
15.             If lng <> 0 Then
    
16.                 rst.Fields(2) = rs.Fields(0)
    
17.                 rst.Update
    
18.             End If
    
19.             rst.MoveNext
    
20.         Loop
    
21.         rst.Close
    
22.         rs.MoveNext
    
23.     Loop
    
24.     DoCmd.OpenTable "A"
    
25.     rs.Close
    
26.     Set rs = Nothing
    
27.     Set rst = Nothing
    
28.     Set cnn = Nothing
    
29. 
    
30. End Sub
    

复制代码

Henry D. Sy

查询的缺点就是会产生笛卡尔积
下面为了方便写语句，把你的两个表分别改为a，b

1. SELECT a.详细地址, b.城市标准名称
   
2. FROM a, b
   
3. WHERE (((InStr([详细地址],[城市标准名称]))>0));
   

复制代码

lihongbin

{:soso_e179:}谢谢版主{:soso_e100:}。