ADO如何将一个recordset中的所有数据复制到另外一个结构相同的表中

2004-09-15 07:42:10 506 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

C#调用ADO的RecordSet.AddNew方法. 项目中使用WebService,使用C#编写,调用VB写的组件,VB组件使用ADO,其中有的方法是需要传递Recordset的,但是在C#中的Recordset.AddNew的方法与VB中的不同,这是由于C#没有默认的参数.C#中的AddNew的方法原型为:AddNew(Object FieldList,Object ValueList),开始时被其参数明型糊涂了,以为要用Object数组,但是参阅读详情

如题

...全文

ADO Recordset AddNew一直抛异常如果你在某些方面是个小白，那你走每一步都很受挫。最近公司做了一个XXX系统（C++），使用ADO连接数据库，系统实现之后发现，数据库的插入效率很是问题，10万条左右的记录用时9分多钟，当然不管是客户端还是服务器的配置都比较低，但应该也不至于速度如此之慢，网上搜了下，有些人的插入效率能达到每秒8000条，看着这些数据我也是醉了，于是，就想优化一下数据库的插入效率。当然，我写这阅读详情

xiao_qiao

数据库(包含打印，安装，报表) 1,217 成员 55,949 内容

+ 关注 + 加入社区

切换为时间正序

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

裸男 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)"

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....

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 = 条件

ADO如何将一个recordset中的所有数据复制到另外一个结构相同的表中

相关推荐