Dim cnn As New ADODB.Connection Dim cat As New ADOX.Catalog Dim i As Integer cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source= c:\Biblio.mdb;" Set cat.ActiveConnection = cnn For i = 1 To cat.Tables.Count - 1 Debug.Print cat.Tables(i).Name Next 上面的代码可 得到所有的表名。 然后UNION 出你所有sh开头的表再。。insert into 就。。搞定
先找到表名﹐然后用union all把它們連接起來select * from sha union all select * from shb union all...........
Dim cat As New ADOX.Catalog
Dim i As Integer
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source= c:\Biblio.mdb;"
Set cat.ActiveConnection = cnn
For i = 1 To cat.Tables.Count - 1
Debug.Print cat.Tables(i).Name
Next
上面的代码可 得到所有的表名。
然后UNION 出你所有sh开头的表再。。insert into 就。。搞定
union all select * from shb
union all...........