1188
社区成员
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
online 2004-09-16
Option Explicit
Private conn1 As ADODB.Connection
Private rs1 As ADODB.Recordset
Private conn2 As ADODB.Connection
Private rs2 As ADODB.Recordset
Private Sub Command3_Click()
Dim dbfilename As String
Dim strsql As String
Dim ConnectString As String
Dim i As Integer
Set conn1 = New ADODB.Connection
dbfilename = "F:\csdn_vb\database\listbox\article1.mdb"
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbfilename & ";Persist Security Info=False;"
conn1.Open ConnectString
Set conn2 = New ADODB.Connection
dbfilename = "F:\csdn_vb\database\listbox\article2.mdb"
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbfilename & ";Persist Security Info=False;"
conn2.Open ConnectString
Set rs1 = New ADODB.Recordset
Set rs2 = New ADODB.Recordset
strsql = "select * from mz"
rs1.Open strsql, conn1, 1, 3
rs2.Open strsql, conn2, 1, 3
For i = 0 To rs1.RecordCount - 1
rs2.AddNew
rs2.Fields("mc") = rs1.Fields("mc")
rs2.Fields("memo") = rs1.Fields("memo")
rs2.Update
rs1.MoveNext
Next
End Sub
Private conn1 As ADODB.Connection
Private rs1 As ADODB.Recordset
Private conn2 As ADODB.Connection
Private rs2 As ADODB.Recordset
Private Sub Command3_Click()
Dim dbfilename As String
Dim strsql As String
Dim ConnectString As String
Dim i As Integer
Set conn1 = New ADODB.Connection
dbfilename = "F:\csdn_vb\database\listbox\article1.mdb"
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbfilename & ";Persist Security Info=False;"
conn1.Open ConnectString
Set conn2 = New ADODB.Connection
dbfilename = "F:\csdn_vb\database\listbox\article2.mdb"
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbfilename & ";Persist Security Info=False;"
conn2.Open ConnectString
Set rs1 = New ADODB.Recordset
Set rs2 = New ADODB.Recordset
strsql = "select * from mz"
rs1.Open strsql, conn1, 1, 3
rs2.Open strsql, conn2, 1, 3
For i = 0 To rs1.RecordCount - 1
rs2.AddNew
rs2.Fields("mc") = rs1.Fields("mc")
rs2.Fields("memo") = rs1.Fields("memo")
rs2.Update
rs1.MoveNext
Next
End Sub
裸男 2004-09-15
用SQL语句快，如果非得用ADO的话，就只能一个字段一个字段地拷了。
RUKYO 2004-09-15
你recordset的SQL查询语句是怎样的呀？例如这样：
strSQL = "Select * From Table3 Where Field3 = 123"
假设你recordset就是打开这条查询，那你可以把strSQL改成这样：
strSQL = "Select * Into Table1 From (Select * From Table3 Where Field3 = 123)"
strSQL = "Select * From Table3 Where Field3 = 123"
假设你recordset就是打开这条查询，那你可以把strSQL改成这样：
strSQL = "Select * Into Table1 From (Select * From Table3 Where Field3 = 123)"
xiao_qiao 2004-09-15
没有更好的办法吗？
harryho 2004-09-15
用两个recordset啦.
dim retsource as new adodb.recordset
dim retdec as new adodb.recordset
dim con as new adodb.connection
con.connectionstring="driver={sql server};server=;uid=sa;pwd=;database=数据库名称"
retsource.cursorlocation=adoclinet
retsource.open "select * from ",con
retdec.open "要插入的那个表"
for i= 0 to retsource.recordcount
retdec.addnew
for j=0 to retsoure.fields.count-1
retdec.fields(j)=retsource.fields(j)
next j
retdec.update
retsource.movenext
next i
搞掂.不过速度很慢.
建议用insert intto tablename select field1,field2 from tablename where....
dim retsource as new adodb.recordset
dim retdec as new adodb.recordset
dim con as new adodb.connection
con.connectionstring="driver={sql server};server=;uid=sa;pwd=;database=数据库名称"
retsource.cursorlocation=adoclinet
retsource.open "select * from ",con
retdec.open "要插入的那个表"
for i= 0 to retsource.recordcount
retdec.addnew
for j=0 to retsoure.fields.count-1
retdec.fields(j)=retsource.fields(j)
next j
retdec.update
retsource.movenext
next i
搞掂.不过速度很慢.
建议用insert intto tablename select field1,field2 from tablename where....
xiao_qiao 2004-09-15
不是从表中复制，是从一个recordset中
northwolves 2004-09-15
SELECT * INTO newtable FROM oldtable
RUKYO 2004-09-15
Select * Into Table2 From Table1 Where Field1 = 条件
Access把每一天的数据累加_VBA+SQL篇（第一章 查询编辑数据的ADO技术） 对于一个标准、规范的数据表单，即第一行是标题(字段名称)、每列是一个字段、每行是一条业务数据记录，那么这样的表单就可以当作数据库来操作，使用ADO建立连接，使用SQL进行查询汇总，使用数据透视表快速制作各种...
如何通过ADO获得Access数据库中的所有用户表和表信息 原文地址:... 本文介绍一种通过ADO列举Access文件中所用用户表和表信息的方法，仅供参考，源代码在VC6.0 ＋XP环境通过测试。 首先，需要引入msado15.dll文件，在stdafx.h中添加： #import "c:\prog
数据库基本概念和 ADO 编程创建数据库及数据表 四、用 ADO创建数据库中的表 五、常见的 SQL 语句 六、使用_ConnectionPtr接口开发ACCESS数据库 七、使用_RecordsetPtr接口开发ACCESS数据库 一、数据库、数据库管理系统、数据库编程技术概念...
在 ADO 和 ADO.NET 中管理离线数据 在 ADO 和 ADO.NET 中管理离线数据发布日期： 10...这两个平台都支持诸如数组和集合之类的结构，开发人员通常将自定义类包装到这些结构中，就如您在 Carl Ganz 2004 年 3 月的专栏中看到的那样。数据独立（这可能是创建
ADO 与 临时表 ADO太灵活了，如对于从数据库获取数据，可以有很多的方法，即可以使用Recrodset对象来完成，也可以直接通过一个connection对象来完成；连接数据库也有多种方法，各种连接字符串又是什么涵义等，这些问题一直困惑着我...
vb数据库编程（一）--记录集Recordset ★ GetRows方法: 将Recordset的多个记录值复制到数组中，应当先定义一个变体变量，然后将GetRows的返回值赋给它，这个变量就成了一个二维数组，其第一维下标标识原所在的列（字段），第二维下标标识原所在的行...
vba数组如何精确筛选_VIP会员学习资料全目录，函数、透视表、VBA、PQ…… 每天一篇Excel技术图文微信公众号：Excel星球NO.XXX-...——所以就做了这样一个整理。非常认真的说，VIP学员的学习资料是非常全面的，基本覆盖了Excel的方方面面。从常用技巧、入门教程、透视表、函数、图表到Pow...
从 ADO“经典”迁移到 ADO.NET 适用于 Microsoft ADO.NET Microsoft SQL Server 2005...一个天气晴朗的下午，我在屋后的草坪上修好了三速自行车，父亲提醒我不应该修理没有损坏的零件。我举双手赞成。除非有迫不得已的原因需要修改功能性代码，并
ADO编程详解(C++) 一、概述 ...ADO即Microsoft ActiveXData Object，是...提供者对在数据库服务器中的数据进行访问和操作的应用程序。ADO同OLE DB、数据库之间的关系可以用下图来表示...
一个程序员应该怎样去学习和掌握计算机英语 最近在学习英语，在本科的...但是文章对于英语学习的分析还是很到位的，摘过来与大家共勉，希望能够把英语变成一个顺手的工具，而不是障碍。 “干程序员是一项很辛苦的工作，要成为一个高水平的程序员尤为艰难。这
一到五章错题知识点 01.数据库系统的三级模式结构和二层映像功能提供了数据的逻辑独立性和物理独立性 逻辑独立性由外模式和模式映像提供 物理独立性由模式/内模式提供 02.应用服务器 是指通过各种协议把商业逻辑提供给客户端的程序，它...
用ADO操作数据库的方法步骤 学习ADO时总结的一些经验 用ADO操作数据库的方法步骤 ADO接口简介 ADO库包含三个基本接口:_...通常使用它来创建一个数据连接或执行一条不返回任何结果的SQL语句，如一个存储过程。使用_ConnectionPtr
ADO.NET中的视图和过滤器 ADO.NET中有一层对象，用来创建任意数据源的抽象模型。...它们形成一个抽象模型，使得无论针对Windows Form，Web Form还是Web Service进行编程，都可以使用相同的编程接口。在实际应用中，这些对象大多会对诸如SQ
ADO.NET数据访问技术基础篇二 5、调用Merge方法将第二个DateSet中的更改合并到第一个中。 6、针对DataSet调用AcceptChanges或者调用RejectChanges取消更改。 DataAdapter 基本概念 DataAdapter表示一组SQL命令和一个数据库...
ADO数据库编程 ADO数据库编程 中大型的数据库管理信息系统(MIS)的开发，一般很少用VC来完成（因为开发效率低，不过运行效率很高），而是使用VB， C#，Java等开发效率较高的语言。但小型MIS系统完全可以用VC来实现。下面讲解VC中...
