[已解决]如何把多张格式相同的表链接成一张？

canghua

多谢楼上的。
听你这么一说，的确是可以通过这种形式完成。
呵呵。
谢谢了。

huangqinyong

数据库设计思路是多种多样的，我有时候也会钻入死胡同，最后会卡在哪里。因此，当出现这种情况时，想想自己的这种思路是否出问题了，同时，在技术层面上有没有现有的资料可参考，这样可少走一些弯路。

canghua

多谢大家的支持。我已经搞定了。
Sub union()
Dim str As String
Dim end_day As Date
end_day = #4/20/2008#
For i = end_day To end_day - 10 Step -1
If fExistTable("plmn_kpi" & Format(i, "yyyymmdd")) Then
str = "select * from plmn_kpi" & Format(i, "yyyymmdd")
Exit For
End If
Next

For i = end_day To end_day - 10 Step -1

If fExistTable("plmn_kpi" & Format(i, "yyyymmdd")) Then
str = str & " union select * from plmn_kpi" & Format(i, "yyyymmdd")
End If
Next

DoCmd.RunSQL ("select * into plmn_kpi from (" & str & ")")
End Sub


Function fExistTable(strTableName As String) As Integer
Dim db As Database
Dim i As Integer
    Set db = DBEngine.Workspaces(0).Databases(0)
    fExistTable = False
    db.TableDefs.Refresh
    For i = 0 To db.TableDefs.Count - 1
        If strTableName = db.TableDefs(i).Name Then
            'Table Exists
            fExistTable = True
            Exit For
        End If
    Next i
    Set db = Nothing
End Function