湖南司法警官学院死人:vb ado 复制数据库的一条记录到另一个相同的数据库中（access文件)

来源：百度文库 编辑：偶看新闻 时间：2024/04/29 08:27:21
vb 复制数据库的一条记录到另一个相同的数据库中（access文件)
方法一：
使用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


方法二：
'参考：?
'下面的代码是把C:\test.mdb里table1的数据导出到C:\test1.mdb的table1去?
'引用Microsoft ActiveX Data Objects 2.X Library?
Private Sub Form_Load()?
Dim cn As New ADODB.Connection?
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\test.mdb;Persist Security Info=False "?
cn.CursorLocation = adUseClient?
cn.Open ?
cn.Execute( "INSERT INTO [C:\test1.mdb].table1 SELECT * From table1 ") '在原有的表里插入数据?
'cn.Execute ( "SELECT * INTO [C:\test1.mdb].tabl From table1 ") '创建新表并插入数据?
cn.Close?
Set cn = Nothing?
End Sub

如何将一数据库的记录复制到另一数据库中 vb ado连接数据库 VB中怎么用按纽”下一条”来把数据库中的记录指针移动到下一条记录上 vb中怎样把ado控件的查询记录输出到excel表格中？ VB中向ADO数据库里添加记录的时候，如何让TextBox中显示列表中的数据？ ado .net 中如何得到当前数据库的记录指针 求vb+ado+Access代码添加数据库数据的代码 VB+ACCESS+ADO代码编主细表数据库浏览器的小问题 vb修改数据库access的记录 怎么用VB把数据写到另一台PC机上的MSQL 数据库里? 在VB中用ADO控件连接数据库 VB编程ADO，数据库用access 关于访问数据库的ADO VB中如何每读取数据库中的一条记录调用一次过程 关于mysql向数据库插入一条记录的问题 如何把数据库表内一条数据复制到另一个数据库中 请问怎样用vb语言实现access数据库记录的拷贝？ VB里面如何一秒种显示一条数据库里面的数据 vb中如何将数据库一字段下的所有记录添加到组合框的列表内 在VB 中如何用ADO连接数据库 在VB中用ADO控件连接Access数据库 ASP记录到数据库的代码是什么？ vb中使用数据库窗体向导是选择帮定ado控件和帮定ado代码所生成的窗体代码有什么区别？ 数据库问题-想在指定的记录后面加一条记录