Discussion :

[Mizrana]

Bonjour

merci de m'aider pour sulotionner le problème suivant :

- connecter une BDD oracle 10g
- mettre à jour un table

et ce, en utilisant des macros VBA.


Salutations.

[Thumb down]

bonjour,
vue que je ne sais pas ce que tu veux faire exactement je te donne une piste!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub test()
With CreateObject("Adodb.connection")
    .Open "Provider=OraOLEDB.Oracle.1;Password=" & Password & ";Persist Security Info=True;User ID=" & User & ";Data Source=" & Base
    .Execute "Update [Table] set [Champ1]='toto',[champ2]='titi' where [ID]=23;"
   .Close
End With
End Sub

[Mizrana]

merci pour la réponse .
mais le problème persiste ci-dessous le message affiché après execution de la sub test().
Je dois aussi cocher via l'option outils-->préférences , une activeX ; mais laquelle ? ci-joint les imprimeEcrans

Sub test()
With CreateObject("Adodb.connection")
.Open "Provider=OraOLEDB.Oracle.1;Password=" & pers & ";Persist Security Info=True;User ID=" & pers22 & ";Data Source=" & chaine22
.Execute "Update acces_app set user_name='toto',application='titi';"
.Close
End With
End Sub

chaine22 : c'est la chaine de connection TNSNAMES de oracle.

merci d'avance pour votre aide.