1,217
社区成员




Private Sub Command1_Click()
Dim Cn1 As New ADODB.Connection
' 声明一个新的连接
Dim Cn2 As New ADODB.Connection
' 声明一个新的连接
Dim Rst2 As New ADODB.Recordset
' 声明一个新的记录集
Dim TableExist As Boolean
' 声明一个布尔型变量,用以区分表是否存在
TableExist = False
'设置初始值
Cn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database Password=111"
' 打开第一个连接
Cn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db2.mdb;Mode=ReadWrite;Persist Security Info=False"
' 打开第2个连接
Set Rst2 = Cn2.OpenSchema(adSchemaTables)
Do Until Rst2.EOF
If Rst2!TABLE_NAME = "用户表" Then TableExist = True
Rst2.MoveNext
Loop
If TableExist Then Cn2.Execute "Drop TABLE 用户表"
Cn1.Execute "Select * into " & App.Path & "\db2.mdb.用户表 From 用户表"
End Sub
Private Sub Command1_Click()
Dim db1 As Database
Dim db2 As Database
Set db1 = OpenDatabase(App.Path & "\a.mdb")
db1.Execute ("INSERT INTO [;database=" & App.Path & "\b.mdb;].[员工]([姓名],[性别],[生日]) SELECT [姓名],[性别],[生日] FROM [员工]")
End Sub