1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43
|
Dim LDaOracle As OleDbDataAdapter
Dim LDtOracle As New DataTable
Dim LDrOracle As DataRow
Dim cmd, cmd2 As New OleDb.OleDbCommand
P_cnOracle = New OleDbConnection("Provider=MSDAORA.0; Data Source=Base1;User Id=****;Password=*****;")
P_cnAccess.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= C:\mabase2.mdb;"
P_cnAccess.Open()
If P_cnOracle.State = ConnectionState.Broken Then P_cnOracle.Close()
If P_cnOracle.State = ConnectionState.Closed Then
Try
P_cnOracle.Open()
Catch
MsgBox("Impossible de se connecter à la base : Base1", vbAbort, "ERREUR")
End Try
End If
cmd.Connection() = P_cnAccess
LDaOracle = New OleDbDataAdapter("SELECT * FROM tablebase1", P_cnOracle)
LDaOracle.Fill(LDtOracle)
If LDtOracle.Rows.Count > 0 Then
For Each LDrOracle In LDtOracle.Rows
cmd.CommandText = "INSERT INTO TableBase2Access (colonne1, colonne2, colenne3, colonne4,colonne5, colonne6, colonne7, colenne8, colonne9, colonne10, colonne11, colonne12, colonne13, colonne14, colenne15) VALUES " & _
"('" & LDrOracle("colonne1").ToString & "'" & _
", '" & LDrOracle("colonne2").ToString & "'" & _
", '" & LDrOracle("colonne3").ToString & "'" & _
", '" & LDrOracle("colonne4").ToString & "'" & _
", '" & LDrOracle("colonne5").ToString & "'" & _
", '" & LDrOracle("colonne6").ToString & "'" & _
", '" & LDrOracle("colonne7").ToString & "'" & _
", '" & LDrOracle("colonne8").ToString & "'" & _
", '" & LDrOracle("colonne9").ToString & "'" & _
", '" & LDrOracle("colonne10").ToString & "'" & _
", '" & LDrOracle("colonne11").ToString & "'" & _
", '" & LDrOracle("colonne12").ToString & "'" & _
", '" & LDrOracle("colonne13").ToString & "'" & _
", '" & LDrOracle("colonne14").ToString & "'" & _
", '" & LDrOracle("colonne15").ToString & "')"
cmd.ExecuteNonQuery()
Next
End If
End Sub |
Partager