Discussion :

[tamtam64]

Bonjour,

Je viens de revenir , je n'utilise que peu les forums mais la je pense revenir , car je débute un gros projet et j'ai besoin d'aide sur des points un peu pointu en VBA et la gestion dao.

Je suis sur un projet ou j'aimerais questionné une base de donnée que j'ai créé , seulement avec mon code je n'arrive pas a inserer une variable
je m'explique dans ma requete ma fois tres simple pour l'exemple , "SELECT name,PrixAction FROM Companies WHERE PrixAction = 30;" on a cette requete entre guillemet ce qui me pose un probleme car quand je fais

Code :

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

"SELECT name,PrixAction FROM Companies WHERE PrixAction =" & valeur & ";"

avec valeur une variable correspondant a une valeur que j'aurais rentré dans mon userform par exemple , ca marche pas . donc je demande votre aide
Je vous remercie d'avance et je pense que vous allez me revoir dans pas longtemps .


Cordialement

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
'recuperer une requete sql
Sub CopyFromRecordset_DAO()
     Dim Db1 As Database
     Dim Rs1 As Recordset
     Dim requete As String
     ' Ouverture de la base de données
     Set Db1 = DBEngine.OpenDatabase(ThisWorkbook.Path & "\DBShare")
     ' Un objet Recordset représente les enregistrements d'une table
     'requette a ecrire :
     requete = "SELECT name,PrixAction FROM Companies WHERE PrixAction = 30;" ' mettre une guillemet pour le parametre
     Set Rs1 = Db1.OpenRecordset(requete, Type:=dbOpenSnapshot) 'name:="R6"
     ' Effacement des données existantes dans la WorkSheet (sauf les titres)
     ' et copie des enregistrementsSELECT name, Symbol FROM Companies;
     With Worksheets("Feuil1").Range("B1")
          'With Selection.CurrentRegion
               'Intersect(.Cells, .Offset(1)).Select
 
          'End With
          .ClearContents
          .CopyFromRecordset Rs1
     End With
     'Fermeture de la Base de données
     Db1.Close
End Sub

[Qwazerty]

Salut

Je ne vois pas d'erreur.

Que contient "valeur" ? Comment est elle déclarée?

As tu testé avec valeur = 30 pour être sur que ta base contienne des données (puisque tu dis que ça fonctionne avec la ligne contenant 30).

Si tu places un point d'arrêt et que tu espionne la string contenu dans la variable requete, est-ce que le texte te semble exacte ?

++
Qwaz

[Philippe Tulliez]

Bonjour,
Une requête est une chaîne de caractères. Est-ce que ta variable nommée Valeur est une variable de type String ?
Pour ma part dans des cas semblables, j'utilise pour tout les éléments qui sont variables des balises comme par exemple <Adresse> et j'utilise la fonction Replace pour remplacer les balises par les données variables

[tamtam64]

Je vais tester et voir avec le debugger , j'avoue que j'avais un peu la fleme , mais je vois que vous avez un sacré niveau , par contre pour les balises j'ai pas trop compris , mais je vais chercher je vous tien au courant en tout cas c'est vraiment simpa d'avoir répondu , et des fois avec un peu de repos on trouve plus facilement donc comme c'est un string normalement je peux faire comme dans un range ou on colle les variables a des chaines de caracteres par un & genre "blablabla" & i ";" le point virgule je le met bien entre guillemet a la fin car il est indispensable a ma requete .

En tout cas merci je n'oublierais pas de valider , par contre j'ai une deuxieme question , il est possible de remplire une base de donnée et plus precisement une colone d'une table a partir des données d'une colonne excel?
ca pourrais m'interesser pour rentrer mes données.

en vba ou pas dailleur car si il ya un moyen interessant et assez simple je suis preneur. ( je recupere les données de internet sur excel et ca je sais tres bien le faire , mais j'avoue que le lien vba access , je débute donc je suis pas a l'aise dessus )

[Philippe Tulliez]

Bonjour,

par contre pour les balises j'ai pas trop compris

Un petit exemple sur le pouce

Code :

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

1
2
3
4
5
 Dim req As String, Text As String
 req = "Mon site préféré est <LeSite>"
 Text = "Développez.com"
 req = Replace(req, "<LeSite>", Text)
 MsgBox req

[tamtam64]

Merci bcp pour ton message j'ai appris un truc , je met résolu j'ai reussi ca marche j'avais juste mis une variable dans un mauvais type merci le debugger et l'espion :p surtt
En tout cas j'espere que ca pourra aider d'autre personne , mon code et ton exemple philippe
Merci et bonne nuit et surement à trés vite :p

[tamtam64]

voici ce que j'ecris et j'ai un msg d'erreur encore sur la ligne qui suis la requete sauf que je sais bien que ca viens de la requete , qui fonctionne tres biens sur access , mais le coup de la variable ... pose probleme.
J'ai simplifié mon prog , car le i est issu de l'userforme et est saisie par l'user. La on imagine un i en string , je ne vois pas ou est le pb , merci a vous et votre level

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
'recuperer une requete sql
Sub CopyFromRecordset_DAO2()
     Dim Db1 As Database
     Dim Rs1 As Recordset
     Dim requete As String
     Dim i As String
     i = "Action EDF"
     ' Ouverture de la base de données
     Set Db1 = DBEngine.OpenDatabase(ThisWorkbook.Path & "\FinancialDataBase")
     ' Un objet Recordset représente les enregistrements d'une table
     'requette a ecrire :
     '_________________________Requete SQL_________________________________________
     requete = "SELECT Valeur_Max, Valeur_Fermeture " _
& "FROM Cours, DateCours,SousJacent " _
& "WHERE Cours.RefC = DateCours.RefC " _
& "AND SousJacent.RefSJ = DateCours.RefSJ " _
& "AND DateCours between #01/12/2015# AND #01/16/2015# " _
& "AND NomSJ = " & i & "; " 
'_____________________________________________________________________________________
     Set Rs1 = Db1.OpenRecordset(requete, Type:=dbOpenSnapshot) 
     ' Effacement des données existantes dans la WorkSheet (sauf les titres)
     ' et copie des enregistrements
     With Worksheets("Feuil1").Range("B1")
          'With Selection.CurrentRegion
               'Intersect(.Cells, .Offset(1)).Select
 
          'End With
          .ClearContents
          .CopyFromRecordset Rs1
     End With
     'Fermeture de la Base de données
     Db1.Close
End Sub

[Philippe Tulliez]

Bonjour,
Si nous plaçons une requête SQL simple dans une variable de type String comme dans la ligne ci-dessous, nous allons provoquer une erreur.

Code :

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

Req = "SELECT EMPLOYE.NOM, EMPLOYE.PRENOM FROM EMPLOYE WHERE (((EMPLOYE.PRENOM)="Roger"));"

En effet, la constante "Roger" est une chaîne mise entre guillemets et donc ceux-ci doivent être doublés comme ci-dessous

Code :

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

Req = "SELECT EMPLOYE.NOM, EMPLOYE.PRENOM FROM EMPLOYE WHERE (((EMPLOYE.PRENOM)=""Roger""));"

Si nous plaçons la constante "Roger" dans une variable nommée Var, il est impossible de doubler les guillemets comme Var = ""Roger"".
Il faut donc utiliser le code AscII des guillemets qui a comme valeur 34
Exemple

Code :

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

1
2
3
4
5
6
7
Sub Test()
 Dim Req As String, Var As String
 Var = Chr(34) & "Roger" & Chr(34)
 Req = "SELECT EMPLOYE.NOM, EMPLOYE.PRENOM FROM EMPLOYE WHERE (((EMPLOYE.PRENOM)=<Prenom>));"
 Req = Replace(Req, "<Prenom>", Var)
 MsgBox Req
End Sub

Tu écris

voici ce que j'ecris et j'ai un msg d'erreur encore sur la ligne qui suis la requete sauf que je sais bien que ca viens de la requete , qui fonctionne tres biens sur access , mais le coup de la variable ... pose probleme.

Cela signifie donc que l'erreur se situe sur la ligne 20 ?

Code :

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

Set Rs1 = Db1.OpenRecordset(requete, Type:=dbOpenSnapshot)

Ne connaissant pas la syntaxe DAO par coeur, es-tu certain de sa syntaxe ?
Mais tu ne donnes pas le n° et le message d'erreur que tu reçois

[tamtam64]

Le message d'erreur est trop peu de parametres , 1 attendu , ou trop peu de parametre 2 attendu , quand je fonctionne sans variable je n'ai pas cette erreur .

De plus l'istoire de replace (requete, "<nom>",i) par exeple je dois mettre les balises <> ?

Je ne comprend pas non plus pourquoi tu met des parentheses dans la requete ? quel est l'interet ?

En tout cas je viens de tester et ca ne marche pas , et il ne me semble pas avoir oublié quelque chose car j'ai appris comme ca dans excel vba 2013 , le livre de eni , meme si j'ai pas encore bien compris tout , car je debute en dao mais , il me semble que la fonction est juste , mon probleme viens de la requete , qui je le redis marche dans ACCESS
Merci encore

[Invité]

Code :

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

1
2
TxtVar ="Roge"
 Req = "SELECT EMPLOYE.NOM, EMPLOYE.PRENOM FROM EMPLOYE WHERE EMPLOYE.PRENOM='" & TxtVar  & "';"

[deedolith]

- Pour ton message d'erreur, a mon avis il survient car les chaines de caractère doivent etre mises entre double quotes en SQL. Vu que VBA a les mêmes exigeances, si tu veut faire apparaitre une double quote dans une chaine, tu dois soit la doubler (essaye debug.print "a""b" par exemple), soit concatener avec chr(34). Choisit la solution qui te convient le mieux.

- Oui tu dois indiquer la balise complète, < et > inclus.

- Avec un peut de chance, Philippe a recopié la requete issue du requeteur d'Access (qui rajoute plein, plein, plein de parentheses), c'est optionnel.

@rdurupt: Je ne recommande pas l'utilisation des simple quotes, ce n'est pas standard SQL.

[tamtam64]

c'est ma fatigue j'avais laissé un guillemet qui trainait,

donc on peut ou doubler les "" si on a un a mettre un string dans un string ou sinon mettre des ' '
genre " blablabla = ' a' "
en fait ca marche aussi avec des & . Donc je met le sujet comme résolu
Merci en tout cas et j'ai vu que les parentheses n'etaient pas necessaires aparement dans la requete .


Cordialement

[Philippe Tulliez]

Bonjour,

@deedolith,

- Pour ton message d'erreur, a mon avis il survient car les chaines de caractère doivent etre mises entre double quotes en SQL. Vu que VBA a les mêmes exigeances, si tu veut faire apparaitre une double quote dans une chaine, tu dois soit la doubler (essaye debug.print "a""b" par exemple), soit concatener avec chr(34). Choisit la solution qui te convient le mieux.

Il me semble que c'est ce que j'ai écrit dans ma réponse ce matin à 7h58
Mais on peux également placer la chaîne entre apostrophe comme l'a écrit Robert.

@tamtam64

Je ne comprend pas non plus pourquoi tu met des parentheses dans la requete ? quel est l'interet ?

Oui, ce n'est pas indispensable et effectivement sans intérêt.
J'ai pris rapidement une requête effectuée par Access pour tenter de t'aider et je ne l'ai pas rectifiée mais je crois que ce n'était pas le sujet de la discussion.