Discussion :

[mat777]

Bonjour,
je suis assez pressé par le temps, c'est pourquoi je m 'adresse à vous directement car je ne connais vraiment pas ce langage.

Je dois récupérer le résultat (int) d'une requete SQL dans une variable x.
Pouvez vous me dire en gros, quels sont les type et méthodes que j'ai besoin pour cela.
Et un petit exemple si possible.
Je vous remercie.

[Jean-Philippe André]

bonjour
le plus rapide que j'ai trouvé
http://access.developpez.com/faq/?page=SQL#ResultReq

[mat777]

Ok donc voila ce que j'ai essayé :

Code :

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

1
2
3
4
5
6
7
8
9
10
'Ouverture de la base de données
Set db = DBEngine.OpenDatabase("D:\DatabaseFO\DataFO.mdb")
sSQL = "Select ID_BLOC from bloc where label=blocCombo"
 
'Ouverture du recordset
Set rst = db.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly)
res = rst.AbsolutePosition
 
'Fermeture du Recordset
rst.Close

Ou res est déclaré comme un integer puisque la requete doit me renvoyer un entier.
J'ai une erreur qui me dit que j'ai trop peu de parametres dans la ligne
"Set rst"

une idée ?

[Invité]

Bonjour

Peux-tu détailler ta chaine SQL

Code :

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

Select ID_BLOC from bloc where label=blocCombo

Champ, table, critère car cela vient de là.

Starec

[mat777]

Select ID_BLOC from BLOC where LABEL = blocCombo

--> blocCombo c'est une comboBox dans laquelle se trouve tous les LABEL donc je peux utiliser ceux-ci trouver le ID_BLOC.
Car enfait ce sont tous les label qui se trouvent dans la combo.
--> BLOC(ID_BLOC, Label)

je veux donc récupérer le ID_BLOC (Integer)

Peut-être que je devrais utiliser blocCombo.selected ou une autre méthode
qui retourne la valeur que l'utilisateur à séléctionné.

J'espere que c'est assez clair.
Merci

[mat777]

ok j'ai su avancer un peu, il me reste juste à trouver comment interpreter correctement la valeur de "temp" qui contien un string.

Code :

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

Set rst = db.OpenRecordset("Select ID_BLOC from bloc where Label=" & "temp")

ce n'est qu'une question de syntaxe, pouvez-vous m'aider svp.
Merci

[Jean-Philippe André]

essaie avec ca

Code :

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

1
2
Set rst = db.OpenRecordset("Select ID_BLOC from bloc where Label='" & temp &"';")
debug.print rst!ID_BLOC

[mat777]

ok cela fonctionne merci.
J'ai encore un souci pour l'utilisation d'un entier dans une requete :

Code :

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

DoCmd.RunSQL "Insert into PANELS (ID_PANEL,ID_BLOC) values ('" + panelID + "',res)"

Apparement le "res" n'est pas reconnu, quelle est la syntaxe pour que le res soit bien pris en compte comme entier?

Merci

[Jean-Philippe André]

Code :

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

DoCmd.RunSQL "Insert into PANELS (ID_PANEL,ID_BLOC) values ('" + panelID + "'," & res & ")"

attention ID_PANEL est considéré comme du texte dans ton cas, car compris entre apostrophes... si c'est un numérique, il faut les enlever

[mat777]

oui, en effet, j'ai pas pensé que je ne pouvais pas mélanger du VBA et du SQL.
Il faut tout séparer.
Merci pour ton aide.

A+