Re: fastest way to extract Oracle data with VB?
From: Oracle NetNews <joey.ogalesco_at_bigfoot.com>
Date: Tue, 1 Jun 1999 23:17:09 -0400
Message-ID: <7j28bn$gle$1_at_bgtnsc03.worldnet.att.net>
Date: Tue, 1 Jun 1999 23:17:09 -0400
Message-ID: <7j28bn$gle$1_at_bgtnsc03.worldnet.att.net>
Mitch,
Don't waste you're time using
the DAO. Convert all your DAO codes to RDO, if your system is web enabled,
convert it to ADO.
Received on Wed Jun 02 1999 - 05:17:09 CESTMitchwrote in message <7j1qc3$h0q$1_at_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 ConnectionDim Fieldloop As IntegerDim DB as DatabaseSet 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 DestRcrdSetDo Until SourceRcrdSet.EOF
.AddNewFor Fieldloop = 0 To DestRcrdSet.Fields.Count - 1.Fields(Fieldloop).Value = SourceRcrdSet.Fields(Fieldloop).Value
Next Fieldloop.UpdateSourceRcrdSet.MoveNext
LoopWendEnd Sub
Mitch Abaza
mabaza25_at_DELETEusa.netclear "delete" to mail