Mettre le resultat d'une requete dans une variable

Question

Comment faire pour aller chercher un attribut dans une table access2000 et le mettre dans une variable à l'aide d'une requete SQL (ou d'une autre méthode)

Par exemple, je voudrais mettre le résultat de la requete "select PoidsMaxi from tblParametre" dans la variable intPMax (variable de type entier).

Remarque : Ma requete ne renvoie qu'une seule valeur.

Merci d'avance  :)

cs_dido · Answer

Salut !
Si tu utilises ADO il faut faire :

dim adors as new adodb.recordset
dim adocon as adodb.connection
dim SQL as string 

SQL="select PoidsMaxi from tblParametre"
Set ADORS=Adocon.execute(SQL)

while not adors.eof
   msgbox adors!PoidsMaxi 'ca affiche tout les enregistrements 1 par 1, pour mettre ds variable, crée une collection...
   adors.movenext 'tres important, car si tu ne le met pas, tu pars ds boucle infini !!!
wend

'j'espere que ca t'aideras

CochonPerdu · Answer

Ca me met : "Type de données incompatible dans l'expression du critère"
Au secour......  :shy) 

Dim adoRs As New ADODB.Recordset
Dim adoCon As ADODB.Connection
Dim SQL As String
Dim a As String, b As String, c As String, d As String

Set adoCon = New ADODB.Connection
adoCon.Provider = "Microsoft.Jet.oledb.4.0"
adoCon.ConnectionString = "C:\Mes documents\rémi\Transtockeur.mdb"
adoCon.Open

Set adoRs = New ADODB.Recordset

a = "1234.5678"
SQL = "select ArtCodeArticle from tblArticles where ArtCodeArticle=" & a & ";"
Set adoRs = adoCon.Execute(SQL) 'L'erreur est ici !

While Not adoRs.EOF
MsgBox adoRs!ArtCodeArticle
adoRs.MoveNext
Wend

cs_dido · Answer

essaie de remplacer SQL par :

SQL = "select ArtCodeArticle from tblArticles where ArtCodeArticle='" & a & "'" 'j'ai rajouté le chr(34)qui esst egal à '

Mettre le resultat d'une requete dans une variable

3 réponses

Discussions similaires