Insertar registros de una BD Oracle a una BD Access

[rafanet77]

Hola, espero puedan ayudarme.

He desarrollado una aplicación que toma registros de una tabla en una BD en Oracle y luego los inserta en otra BD en Access.

La aplicación funciona bien, pero cuando la cantidad de registros es mucha, el tiempo en insertarlos dura mucho ya que va leyendo cada registro y a la vez lo va insertando a la BD en Access.

Alguien sabe alguna forma de agilizar la inserción de los registros; como por ejemplo, a través de inserciones masivas o por algún otro método que sea mas rápido.

Adjunto el código que se esta ejecutando:


Dim oraConnection As New OracleConnection
Dim oraCommand As New OracleCommand
Dim oraDataReader As OracleDataReader
Dim strSQL As String

oraConnection.ConnectionString = "Data Source=(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)" & _
"(HOST=10.120.1.40)(PORT=1521))" & _
"(CONNECT_DATA=(SERVICE_NAME=mybase)));uid=user;pw d=password;"
oraConnection.Open()
If oraConnection.State = ConnectionState.Open Then
strSQL = "select * from delqmst, uda6 " & _
"where dmacctg = '6' and dmstatus is null and u6cntry = 'CAL' " & _
"and dmacctg = u6acctg and dmacct = u6acct"
oraCommand.CommandText = strSQL
oraDataReader = oraCommand.ExecuteReader
While oraDataReader.Read()
Me.taDetalle_Balances.Insert(oraDataReader.GetDate Time(0), oraDataReader.Item(1).ToString, _
oraDataReader.Item(2).ToString, oraDataReader.Item(3).ToString, _
oraDataReader.Item(4).ToString, oraDataReader.GetDouble(5), _
oraDataReader.GetDouble(6), oraDataReader.GetDouble(7), _
oraDataReader.GetDouble(8), oraDataReader.GetDouble(9), _
oraDataReader.GetDouble(10), oraDataReader.GetDouble(11), _
oraDataReader.GetDouble(12))
End While
oraDataReader.Close()
End If
oraConnection.Close()