Discussion :

[petitmic]

Bonjour à tous,

A partir d'Access, j'accède à une base de données sous Oracle.
J'aimerais pouvoir faire des requêtes SQL Direct directement dans visual basic pour pouvoir faire des requêtes dynamiques.
j'ai regardé dans la FAQ, je n'ai rien trouvé

merci

[cafeine]

Bonjour à tous,

A partir d'Access, j'accède à une base de données sous Oracle.
J'aimerais pouvoir faire des requêtes SQL Direct directement dans visual basic pour pouvoir faire des requêtes dynamiques.
j'ai regardé dans la FAQ, je n'ai rien trouvé

merci

Hello,

mon tutoriel de recherche multicritère est un exemple, il me semble, d'écriture de requête dynamique par le code (lien dans ma signature).

[petitmic]

merci caféine j'ai déja utilisé ton tutoriel, il m'avait beaucoup aidé.
mais là il ne répond pas à mon problème. En fait la requête, je sais comment la faire (le texte) mais je sais pas comment l'éxécuter à partir de VBA car c'est une requête SQL Direct qui intéroge directement une base oracle avec le pilote microsoft odbc pour oracle.

[hizkia-sebo]

Bonjour,

Avez-vous finalement réussi à faire du SQL Direct par le code VBA ? J'en ai besoin aussi.

Bonne journée.

[langelot222]

il faut que tu mette dans les options d'access (outils/options/tables et requêtes) que tu veux syntaxe compatible sql et tu coches les 2 cases.

ensuite dans ton code tu utilise docmd.runsql "ton instruction"
exemple :

Code :

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

1
2
3
4
5
6
7
8
 
Dim SQL As String
 
    SQL = "UPDATE Employees " & _
          "SET Employees.Title = 'Regional Sales Manager' " & _
          "WHERE Employees.Title = 'Sales Manager'"
 
    DoCmd.RunSQL SQL

vu que tu passe une chaine tu peux passer des paramètres à toi en concaténant avec &

[cbleas]

Bonjour,

Je pense qu'avec ADO cela devrait fonctionner (c'est prévu pour)
il faut pour cela que tu connaisses la chaine de connexion pour oracle.

Bonne journée

[hizkia-sebo]

il faut que tu mette dans les options d'access (outils/options/tables et requêtes) que tu veux syntaxe compatible sql et tu coches les 2 cases.

ensuite dans ton code tu utilise docmd.runsql "ton instruction"
exemple :

Code :

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

1
2
3
4
5
6
7
8
 
Dim SQL As String
 
    SQL = "UPDATE Employees " & _
          "SET Employees.Title = 'Regional Sales Manager' " & _
          "WHERE Employees.Title = 'Sales Manager'"
 
    DoCmd.RunSQL SQL

vu que tu passe une chaine tu peux passer des paramètres à toi en concaténant avec &

Le problème avec RunSQL c'est qu'il demande confirmation à chaque fois, peut-on faire sauter la demande ?

[langelot222]

pour faire sauter les warning tu met

Code :

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

1
2
 
docmd.warning false

true pour les remettre

normalement il faut pas mettre le égal, si il plante, met un =false