fastest way to extract Oracle data with VB?

From: Mitch <mabaza25_at_DELETE.usa.net>
Date: Tue, 1 Jun 1999 18:29:41 -0500
Message-ID: <7j1qc3$h0q$1@news.doit.wisc.edu>

--I need to extract about 1000 records from an Oracle 8 database into =
Access 97 using Visual Basic 6. My current code uses standard DAO = methods to accomplish this task but it takes roughly 2 minutes to = populate the Access 97 table with the Oracle records. This seems too = long to me...Is RDO or ADO faster?

I included some sample code. Please feel free to suggest any = enhancements you can think of:

-------------------------------------------------------------------------=

---

Private Sub Command_Click()

Dim SourceRcrdSet As Recordset, DestRcrdSet As Recordset Dim Connect as Connection
Dim Fieldloop As Integer
Dim DB as Database

Set DB = OpenDatabase("C:\Accting.mdb") Set Connect = OpenConnection("Oracle", = "ODBC;DSN=ITS2;UID=test;PWD=test")
Set SourceRcrdSet = Connect.OpenRecordset("Select * from OracleTable") Set DestRcrdSet = DB.OpenRecordset("AccessTable")

With DestRcrdSet

        Do Until SourceRcrdSet.EOF
                .AddNew

                    For Fieldloop = 0 To DestRcrdSet.Fields.Count - 1 
                           .Fields(Fieldloop).Value = =
SourceRcrdSet.Fields(Fieldloop).Value
                    Next Fieldloop

                .Update

                 SourceRcrdSet.MoveNext
        
        Loop

Wend
End Sub

-------------------------------------------------------------------------=

---

Mitch Abaza
mabaza25_at_DELETEusa.net

clear "delete" to mail Received on Tue Jun 01 1999 - 18:29:41 CDT