说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

vb 两个access数据库 复制一条数据

编辑:说三道四文库 发布时间:2018-05-21 01:35
HTML文档下载 WORD文档下载 PDF文档下载
我两个数据库,里边的表,关系都相同。如何能够复制一条指定数据。
建立两个ADO,select一个ADO,取得数据,然后insert into另一个ADO
从一个库到另一个库?
用一楼的方法,用两个ADO连接数据库并操作

Dim cn As ADODB.Connection

Set cn = New ADODB.Connection

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=a.mdb"

cn.Execute "Insert Into table1 Select * From table1 In 'b.mdb' Where ID = 1"

cn.Close 

Set cn = Nothing
引用 4 楼 of123 的回复:
Dim cn As ADODB.Connection

Set cn = New ADODB.Connection

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=a.mdb"

cn.Execute "Insert Into table1 Select * From table1 In 'b.mdb' Where ID = 1"

cn.Close

Set cn = Nothing


这个简洁
引用 5 楼 jhone99 的回复:
引用 4 楼 of123 的回复:
Dim cn As ADODB.Connection

Set cn = New ADODB.Connection

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=a.mdb"

cn.Execute "Insert Into table1 Select * From table1 In 'b.mdb' Where ID = 1"

cn.Close

Set cn = Nothing

这个简洁

同意,现在我经常这样用了
知道的朋友希望不吝赐教!!!
引用 4 楼 of123 的回复:
如需要阅读该回复,请登录或注册CSDN!


这个真的很不错
引用 5 楼 jhone99 的回复:
引用 4 楼 of123 的回复:
Dim cn As ADODB.Connection

Set cn = New ADODB.Connection

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=a.mdb"

cn.Execute "Insert Into table1 Select * From table1 In……


这个真的很不错
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘