Question

怎么复制VB数据库里面的表格到另外一个数据库

怎么复制VB数据库里面的表格到另外一个数据库 数据库是ACCESS的 数据库名和表格名要是动态的 谁能给个实例
现在要把A数据库表里面的内容整体复制B数据库里面的表格 库名和表格名要是动态的 比如说一条生产线上下料的情况会自动从A数据库里面复制到B数据库里面 每个上下料的情况都不一样 然后什么时间复制的要表现出来
动态么应该就是这个意思了 估计我说的也不怎么清楚 但大概就这个意思

Answer 1

Private Sub Command1_Click()
Dim conn
Dim mdbfile As String '数据库名，需要手工指定
Dim oldtable As String '旧表名
Dim newtable As String '新表名
Set conn = CreateObject("ADODB.Connection")
mdbfile = "D:\Software\ast541g\ast541g\ASTRO3.mdb"
conn.Open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=;dbq=" & mdbfile, 1, 3
oldtable = "info"
newtable = "info_copy"
conn.Execute "SELECT * INTO " & newtable & " FROM " & oldtable'复制操作
conn.Close
Set conn = Nothing
End Sub

'没看清你的要求，补充一下，ACCESS 不支持跨数据库的表格复制的SQL语句
'SQL数据库支持，下面是SQL的方法
Private Sub Command1_Click()
Dim conn
Dim mdbfile As String '目标数据库名，需要手工指定
Dim oldtable As String '旧表名
Dim newtable As String '新表名
Set conn = CreateObject("ADODB.Connection")
mdbfile = "D:\Software\ast541g\ast541g\ASTRO3.mdb"
conn.Open "driver={SQL Server};server=SQL服务器名称;uid=UserName;pwd=数据库密码;database=数据库名称" , 1, 3
oldtable = "info"
newtable = "info_copy"
conn.Execute "insert into openrowset('microsoft.jet.oledb.4.0','" & mdbfile & "';'admin';''," & newtable & ") select * from " & oldtable
conn.Close
Set conn = Nothing
End Sub

Answer 2

access可以跨数据库进行表格复制，不过要在表里显示复制的时间有点困难，只能在表的备注信息里能看到。

Answer 3

能举例说明一下吗？
看看要求