添加记录到临时表或记录集

Question

我想从数据库查出来的数据 一条条的保存到一个记录集里,不要是数据库里的临时表,就是不想放到数据库 ,可以放到内存里,相当于把记录插入到一个数组里,这里我不能用数组,有没有高手帮个忙 ,谢谢~
从数据库查出来的数据 一条条的保存到一个记录集里

Answer 1

定义一个记录集啊,rec.AddNew,如此循环操作即可

Answer 2

用datatable 或 dataset 可以吗? 不想用recordset

Answer 3

    With rsInput
    
        .Fields.Append "AAA", adBSTR, 255
        .Fields.Append "BBB", adBSTR, 255
        .Fields.Append "CCC", adBSTR, 255
        .Fields.Append "DDD", adBSTR, 255
        .Fields.Append "EEE", adBSTR, 255
        .Fields.Append "FFF", adBSTR, 255
        .CursorType = adOpenStatic
        .LockType = adLockOptimistic
        .Open
        
        End With
        
        For i = 0 To j‘记录集数
         
         rsInput.AddNew
            
            For j = 0 To rec.Fields.Count-1
               
                rsInput.Fields(j) = rec.Fields(j)
                
            Next j
               
               rsInput.Update
        Next i

Answer 4

用datatable 或 dataset 可以吗? 不想用recordset

Answer 5

你现在还用DAO操作数据库？改ADO吧。（DAO太老了，好多功能都不如ADO）ADODB建立无连接RecordSet的方法
http://blog.csdn.net/chinaboyzyq/archive/2010/03/27/5422713.aspx

Answer 6

Dim db As new ADODB.Connection
Dim rs As new ADODB.Recordset
Dim rs2 As new ADODB.Recordset
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\tyq.mdb;Persist Security Info=False;"
rs.Open "select * from biao", db, adOpenKeyset, adLockOptimistic
set rs2=rs
rs2和rs就是lz要的数据集,比一条一条插入保存快多了

Answer 7

我本身的要求是插入到临时表  由于源代码问题  不方便用recordset  只能用datatable 所以
我也只能一条条插入  不是说记录都是从这个数据库里查的~