Question

VB合并access的A1中的表1、B1中的表2，表1表2结构完全相同。请教完整代码，谢谢！598804123@QQ.com

Answer 1

SELECT 表1.*
FROM [; Database=C:\A1.mdb].表1
UNION ALL
SELECT 表2.*

自己把DB的路径改下

追问

非常感谢！我比较菜，A1、B1是两个独立的数据库，放在同一文件夹中，想把表2中记录导入表1中，能否写一个完整的代码，我试了试，总是弄不好。

追答

INSERT INTO 表2
SELECT 表1.*
FROM [; Database=C:\A1.mdb].表1

追问

太泛了，没打开数据库，写入VB总报错，高估我了。要一个完整可行的代码，不是给一个可能的格式。

追答

把DB路径和程序放一起，或者你自己改下代码里的路径！~

Private Sub Command1_Click()
Dim conn As New ADODB.Connection
Dim appdisk As String
Dim strSQL As String

appdisk = Trim(App.Path)

If Right(appdisk, 1) "\" Then appdisk = appdisk & "\"

db = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & appdisk & "B1.mdb"
conn.CursorLocation = adUseClient
conn.Open db

strSQL = "INSERT INTO 表2SELECT 表1.* FROM [; Database=" & appdisk & "A1.mdb].表1"

conn.Execute strSQL
End Sub

Answer 2

加你QQ了，没回应。

追问

谢谢您的关心！