Export données [Oracle vers Access]

Salut!

Pour faire le programme, tu créer une application simple avec VB.NET (enfin c ce ke j'utilise).
Ensuite, tu créer par exemple un bouton sur ta fenêtre, ou alors tu dois pouvoir le faire en application console.

Enfin, soit sur le bouton, soit dans l'appli console, tu ajoute le code suivant :

'On déclare 2 connections (une pour oracle et l'autre pour Access)
Dim Conn As New System.Data.OleDb.OleDbConnection
Dim Conn2 As New System.Data.OleDb.OleDbConnection
'On déclare la requête
Dim Req As String
'On déclare les Objet nécessaire à son exécution
Dim Cmd As New OleDb.OleDbCommand 'Objet commande pour l'exécution
Dim Da As New OleDb.OleDbDataAdapter 'DataAdapter pour execution
Dim Ds as New DataSet 'DataSet
Dim Dt as DataTable 'DataTable
Dim Test As Boolean

'On commence ici en affectant la chaine de connection correspondante
Conn2.ConnectionString = "Provider=""Microsoft.Jet.OLEDB.4.0"";" & _
"Data Source=""123"";"
'On a 123 qui est remplacé par le chemin vers la base de données Access
'Pour Oracle il y a 2 connexion possible
'La première
Conn.ConnectionString = "Provider=""OraOLEDB.Oracle"";" & _
"Data Source=""nom_base_données"";" & _
"User ID=""nom_user"";" & _
"Password=""password"";"
'La seconde
Conn.ConnectionString = "Provider=MSDAORA.1;User ID=nom_user;Data Source=nom_base;Password=mot_de_passe;Persist Security Info=True"

'Je ne sais pas laquelle fonctionne, il faut essayer, mais je n'est pas Oracle installer sur mon ordi.

'ensuite en admétant que les base Access et Oracle (schéma des bases) soient identique.
'On exécute la requête
Req = "Select liste des champs From Tables Where Conditions (s'il y en a)" 'Pour la base de donnée Oracle
Conn.Open()
cmd.Connection = Conn
cmd.CommandText = Req
Da.SelectCommand = cmd
Nbl = Da.Fill(Ds, "liste")
Conn.Close()
Dt = Ds.Tables("Liste")

'Ensuite on copie dans la base Access
Cmd.Connection = Conn2
Cmd.CommandText = Req
Conn.Open()
For i=1 To Nbl
Req = "Insert Into TaTable Values (Liste des tes champs)
Nbl = Cmd.ExecuteNonQuery
Next i
Conn.Close()
test = True

Voilà sa devrais marché. Si sa ne marche pas et que tu ne sais pas d'où sa vient contact moi.
Pour qu'il s'exécute régulièrement utilise le planificateur de tâches de Windows.

Voilà, voilà.

++
Ricci