Discussion :

[Audaces Fortuna Juva]

Bonjour,

Je débute Access et j'aimerais inserer dans un un userform une requête SELECT, le prof pour implémenter une requete SQL nous a dit d'utiliser la fonction

Code :

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

1
2
3
 
Set bds = OpenDatabase(ThisWorkbook.Path & "\librairie.mdb") 'assignation lien bdd
bds.Execute ("INSERT INTO `auteur` (`nom_auteur`, `prénom_auteur`) VALUES ('" & TextBox1.Text & "', '" & TextBox2.Text & "')")

Ceci fonctionne parfaitement mais je n'arrive pas a rechercher un auteur ici Hugo dans ma table auteur via la requete SQL (qui fonctionne sous Acess)

Code :

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

SELECT auteur.nom_auteur, auteur.prénom_auteur FROM auteur WHERE (((auteur.nom_auteur)="Hugo"));

Dans VBA ceci me met une erreur : Attendu: séparateur de liste ou ) Avez vous la réponse ?

Code :

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

1
2
3
 
Set bds = OpenDatabase(ThisWorkbook.Path & "\librairie.mdb") 
bds.Execute ("SELECT `nom_auteur`, `prénom_auteur` FROM `auteur` WHERE (((`nom_auteur`)= "Hugo"));")

Je ne trouve personne qui utilise la fonction bds.Execute. Est elle est dépassée ?
Si vous avez un lien vers un tutoriel qui explique comment implémenter des requêtes SQL en VBA je suis preneur !

Merci et bonne soirée !

[Zekraoui_Jakani]

Pour

Code :

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

SELECT auteur.nom_auteur, auteur.prénom_auteur FROM auteur WHERE (((auteur.nom_auteur)="Hugo"));

essayez ceci :

Code :

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

SELECT auteur.nom_auteur, auteur.prénom_auteur FROM auteur WHERE (((auteur.nom_auteur) Like "*Hugo*"));

Pour:

Code :

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

bds.Execute ("SELECT `nom_auteur`, `prénom_auteur` FROM `auteur` WHERE (((`nom_auteur`)= "Hugo"));")

essayez cela :

Code :

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

bds.Execute ("SELECT `nom_auteur`, `prénom_auteur` FROM `auteur` WHERE `nom_auteur` Like '*Hugo*';")

[Audaces Fortuna Juva]

Quand j'utilise le code ci dessous plus simple cela fonctionne mais quand j'utilise votre code

Code :

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

"SELECT auteur.nom_auteur, auteur.prénom_auteur FROM auteur WHERE (((auteur.nom_auteur) Like " * Hugo * "));"

cela ne fonctionne pas, il y a une erreur d’incompatibilité de type.

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
Private Sub CommandButton1_Click()
 
Dim RS As DAO.Recordset
Dim Db As Database
Dim reqSQL As String
 
Set Db = OpenDatabase(ThisWorkbook.Path & "\librairie.mdb") 'assignation lien bdd
 
reqSQL = "SELECT * FROM `auteur`"
 
Set RS = Db.OpenRecordset(reqSQL)
 
Do Until RS.EOF
 
MsgBox RS.Fields(1)
 
RS.MoveNext
Loop
RS.Close
 
End Sub

[tee_grandbois]

bonsoir,

Code :

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

reqSQL = "SELECT * FROM `auteur`"

l'apostrophe inversée: ` est inconnue dans Access, c'est ce caractère qu'il faut utiliser: '
De plus il n'en faut pas autour du nom des tables (on utilise les crochets [ ] si le nom de la table contient des espaces, même si le caractère espace n'est pas recommandé dans le nom des objets).

Quand j'utilise le code ci dessous plus simple cela fonctionne mais quand j'utilise votre code

Code :

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

"SELECT auteur.nom_auteur, auteur.prénom_auteur FROM auteur WHERE (((auteur.nom_auteur) Like " * Hugo * "));"

cela ne fonctionne pas, il y a une erreur d’incompatibilité de type.

Les guillemets doivent être doublées lorsque qu'elles sont utilisées à l'intérieur d'autres guillemets:

Code :

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

"SELECT auteur.nom_auteur, auteur.prénom_auteur FROM auteur WHERE (((auteur.nom_auteur) Like ""*Hugo*""));"

et si Hugo est une variable :

Code :

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

"SELECT auteur.nom_auteur, auteur.prénom_auteur FROM auteur WHERE (((auteur.nom_auteur) Like ""*" & Hugo & "*""));"

Code :

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

Set bds = OpenDatabase(ThisWorkbook.Path & "\librairie.mdb") 'assignation lien bdd

ThisWorkbook.Path c'est uniquement pour Excel, Userform également, dans Access c'est Formulaire (Form en anglais dans VBA).

Je ne trouve personne qui utilise la fonction bds.Execute. Est elle est dépassée ?

non, elle est même couramment utilisée, sauf que cela fonctionne uniquement pour les requêtes action (INSERT, UPDATE, DELETE, CREATE TABLE ...)