Coucou tout le monde,

je voulais savoir si par hasard, vous sauriez quel code vba me permet de récuperer les données d'une table dans Oracle et de lles inserées dans une table access.

voici mon bout de code...pas fameux du tout

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Public Function transfertOracle_test()
Dim connect As ADODB.Connection ' connect = crée connection vers base oracle
Dim Commande As ADODB.Command 'commande = effectue commende sur la base
Dim rst As DAO.Recordset, rst_test As ADODB.Recordset ' rst_test = recordset pour base Oracle
' DAO = Recordset pour access, ADODB = recordset pour Oracle
Dim code As String, code_precedent As String, code_pgc As String
Dim code_frais As String, marque As String
Dim position As Integer, nboccurence As Integer
Set db = CurrentDb
 
Set connect = New ADODB.Connection ' créer connection sur oracle
 
connect.Open "DSI_TEST", "DSI_TEST", "DSI_TEST"
'ouvre connection
connect.CursorLocation = adUseClient
 
 
 
Set Commande = New ADODB.Command ' créer sur access  ce qui permet de faire des commandes sur oracle
Commande.CommandType = adCmdText
' la commande sera en format texte
 
Set Commande.ActiveConnection = connect
' la connection de la commande est la connection connect
Commande.CommandText = "delete from TEST_EMILIE"
' ordre sql donné
Commande.Execute
 
Set rst = db.OpenRecordset("TEST_EMILIE")
 
Commande.commandetext = "insert into TEST_EMILIE(LIBELLE) values ('" & rst!LIBELLE & "')"
Commande.Execute
Commande.commandetext = "update TEST_EMILIE set LIBELLE='aaa' WHERE ID='1'"
Commande.Execute
db.Execute "delete * from TEST_EMILIE"
Commande.commandetext "TEST_EMILIE"
 
db.Execute = "insert into TEST_EMILIE(LIBELLE) values ('" & Commande!LIBELLE & "')"

Pour les modérateurs, je ne sais pas si ce post est bien à sa place, dans le cas contraire, déplacez le.