將數據從多個數據庫插入到一個

Question

我是VBA的初學者。請幫忙。 我有一個名爲「主」的數據庫保存在共享網絡文件夾中，並且它有一個名爲「日誌」的表。 我有幾個用戶與表「logs」具有不同的數據庫，這個表結構與數據庫「Master」中的表「log」中的表相同。 那些用戶每天向其數據庫表「日誌」輸入條目。我希望在「Master」數據庫中創建一個名爲「UserDb」的表，它將保留所有用戶數據庫文件的地址路徑，並且我將使用「Sync」按鈕創建一個表單。 我需要，一旦我點擊「同步」按鈕，然後它應該從表「UserDb」讀取用戶數據庫的路徑，並將所有今天的日期條目從所有用戶的數據庫表「日誌」插入到「主「數據庫表」日誌「。 表中的「日誌」列名稱是UserName，Application，TeamName，StartTime，StopTime，LoginDate。

Answer 1

這裏的東西，你可以開始：

Function ConToDataBase(DBPath As String) As Variant 
Dim Con As ADODB.Connection 
Dim Rs As ADODB.Recordset 
Dim SQL As String 
SQL = "SELECT * FROM Logs" 
Set Con = New ADODB.Connection 
With Con 
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & DBPath & ";" 
.Open 
End With 
Set Rs = New ADODB.Recordset 
Rs.Open SQL, Con 
Dim Var As Variant 
Var = Rs.GetRows 
ConToDataBase = Var 
Set Rs = Nothing 
Con.Close 
End Function 

確保添加引用微軟的ActiveX對象從工具>參考，這樣就可以ADODB對象2.8。

該函數將返回一個包含日誌表的變體。你可以從那裏拿走它。