VB Access contenu zone de liste dans une variable VB
daffadinx_
Messages postés
11
Date d'inscription
lundi 7 novembre 2005
Statut
Membre
Dernière intervention
11 novembre 2005
-
8 nov. 2005 à 13:28
daffadinx_ Messages postés 11 Date d'inscription lundi 7 novembre 2005 Statut Membre Dernière intervention 11 novembre 2005 - 8 nov. 2005 à 15:13
daffadinx_ Messages postés 11 Date d'inscription lundi 7 novembre 2005 Statut Membre Dernière intervention 11 novembre 2005 - 8 nov. 2005 à 15:13
A voir également:
- VB Access contenu zone de liste dans une variable VB
- Vb access - Conseils pratiques -Visual Basic / VB.NET
- Zone de texte canva ✓ - Forum Delphi / Pascal
- Liste marque de voiture excel - Forum PHP
- C to vb ✓ - Forum VB.NET
- Parcourir une liste java - Forum Java
4 réponses
nanou1605
Messages postés
36
Date d'inscription
mercredi 10 mars 2004
Statut
Membre
Dernière intervention
15 décembre 2006
8 nov. 2005 à 13:51
8 nov. 2005 à 13:51
Salut,
Tu peux récupérer le résultat d'une requête comme ça :
Dim rs As ADODB.Recordset
Dim strSql As String
Dim essay as Double
strSql = "SELECT SUM(prix_hors_taxe) AS Prix FROM produit"
Set rs = CurrentProject.Connection.Execute(strSql)
essay = rs.Fields("Prix") 'OU rs("Prix") OU rs(0)
rs.close
Il faut faire référence à "Microsoft ActiveX Data Objects 2.x library" pour utiliser ADODB.
Tu peux récupérer le résultat d'une requête comme ça :
Dim rs As ADODB.Recordset
Dim strSql As String
Dim essay as Double
strSql = "SELECT SUM(prix_hors_taxe) AS Prix FROM produit"
Set rs = CurrentProject.Connection.Execute(strSql)
essay = rs.Fields("Prix") 'OU rs("Prix") OU rs(0)
rs.close
Il faut faire référence à "Microsoft ActiveX Data Objects 2.x library" pour utiliser ADODB.
daffadinx_
Messages postés
11
Date d'inscription
lundi 7 novembre 2005
Statut
Membre
Dernière intervention
11 novembre 2005
8 nov. 2005 à 14:30
8 nov. 2005 à 14:30
merci de te pencher sur mon pb, mais j'ai une erreur sur la ligne
Set rs = CurrentProject.Connection.Execute(strSql)
il me met erreur d'exécution '-2147217904 (80040e10)':
Aucune valeur donnéee pour un ou plusieurs des paramètres requis.
ma requête est :
strSql = "SELECT prix*quantite1 FROM produit WHERE id_produit=forms!commande!reference1"
Qu'entends tu par "Il faut faire référence à "Microsoft ActiveX Data Objects 2.x library" pour utiliser ADODB."
Merci
Set rs = CurrentProject.Connection.Execute(strSql)
il me met erreur d'exécution '-2147217904 (80040e10)':
Aucune valeur donnéee pour un ou plusieurs des paramètres requis.
ma requête est :
strSql = "SELECT prix*quantite1 FROM produit WHERE id_produit=forms!commande!reference1"
Qu'entends tu par "Il faut faire référence à "Microsoft ActiveX Data Objects 2.x library" pour utiliser ADODB."
Merci
nanou1605
Messages postés
36
Date d'inscription
mercredi 10 mars 2004
Statut
Membre
Dernière intervention
15 décembre 2006
8 nov. 2005 à 14:47
8 nov. 2005 à 14:47
Re
Ta requête me semble incorrecte, essaye avec ça:
strsql = "SELECT prix*quantite1 FROM produit WHERE id_produit=" & forms!commande!reference1
Pour la référence, il faut vérifier qu'elle soit bien cochée.
Il faut regarder dans "Outils => références" dans l'éditeur VBA.
Bon dev.
Ta requête me semble incorrecte, essaye avec ça:
strsql = "SELECT prix*quantite1 FROM produit WHERE id_produit=" & forms!commande!reference1
Pour la référence, il faut vérifier qu'elle soit bien cochée.
Il faut regarder dans "Outils => références" dans l'éditeur VBA.
Bon dev.
daffadinx_
Messages postés
11
Date d'inscription
lundi 7 novembre 2005
Statut
Membre
Dernière intervention
11 novembre 2005
8 nov. 2005 à 15:13
8 nov. 2005 à 15:13
T 1 chef !!
Merci BCP :o) !!!!!!!!
Merci BCP :o) !!!!!!!!
