Question

我是VBA的初学者。请帮忙。我有一个名为“Master”的数据库保存在共享网络文件夹中，它有一个名为“logs”的表。我的几个用户与表“logs”具有不同的数据库，这个表结构与数据库“Master”中的表“log”相同。这些用户每天在其数据库表“日志”中输入条目。我希望在“Master”数据库中，我将创建一个名为“UserDb”的表，它将保留所有用户数据库文件的地址路径，我将创建一个带有“Sync”按钮的表单。我需要一旦我点击“同步”按钮然后它应该从表“UserDb”读取用户数据库的路径，并将所有今天的日期条目从所有用户的数据库表“日志”插入“主”数据库表“logs”。在“Logs”表中，列名是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

确保从Tools＆gt;添加引用Microsoft ActiveX Objects 2.8;引用，以便您可以ADODB对象。

该函数将返回包含logs表的变量。你可以从那里拿走它。

将数据从多个数据库插入到一个数据库

1 个答案: