Question

vb中复制数据库的一条记录到另一个相同的数据库中（access文件)

vb 复制数据库的一条记录到另一个相同的数据库中（access文件)
怎么插入？？？

Answer 1

使用2个数据连接，
全部打开，按条插入

如：dim conn1 as adodb.connection, conn2 as adodb.connection
dim sqlstr as string
sqlstr = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=456123;Data Source=" & App.Path & "\DB.mdb;Persist Security Info=True"
Set conn1 = New ADODB.Connection
conn1.CursorLocation = adUseClient
conn1.Open sqlstr

sqlstr = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=456123;Data Source=" & App.Path & "\DB1.mdb;Persist Security Info=True"
Set conn2 = New ADODB.Connection
conn2.CursorLocation = adUseClient
conn2.Open sqlstr

dim rs as adodb.recordset
dim i as integer, fieldCount as integer

set rs = conn1.execute("select * from table1")
if rs.eof then exit sub
fieldCount = rs.Fields.Count

do while rs.eof = false
sqlstr = "insert into table1 values('"
for i = 0 to fieldCount - 2
sqlstr = sqlstr & rs.fields(i) & "','"
next i
sqlstr = sqlstr & rs.fields(i) & "')"
conn2.execute(sqlstr)
rs.movenext
loop

rs.close
conn1.close
conn2.close

Answer 2

利用Dataset的Copy方法即可。
先获取一个表的数据到DataSet中，查询另一个表中的信息到NewDataset中，
NewDataset = dataset.copy
最后用DataAdapter更新一下NewDataset 就好了。

Answer 3

打开二个库的相同的表，按条插入就行了呀。

Answer 4

for i=1to3