Communauté Informatique NDFR.net

Communauté Informatique NDFR.net (http://www.ndfr.net/forums/index.php)
-   Programmation (C/C++, Delphi, VB, etc.) (http://www.ndfr.net/forums/forumdisplay.php?f=64)
-   -   VBA pour ACCESS un simple SELECT en SQL (http://www.ndfr.net/forums/showthread.php?t=4745)

Ichtus 28-07-2004 16:33

VBA pour ACCESS un simple SELECT en SQL
 
Bonjour,

Je débute en VB pour ACCESS, je voudrait faire :
marequete = SELECT maTable.champ
FROM maTable
WHERE maTable.chaise="DOSSIER"
Comment faire ? :(

Merci:chinese:

Samva 28-07-2004 21:26

En cherchant vite fait avec l'aide de vba j'ai réussi a trouver la fonction qui execute du SQL DoCmd.RunSQL essaie de te débrouiller avec ca ;)

Ichtus 30-07-2004 12:12

rep. à VBA pour ACCESS un simple SELECT en SQL
 
Merci pour ton aide Samva,

en fouillant un peu plus voici ce que j'ai trouvé

var = DLookup("[Champ]", "maTable", "[Champ_critere] = 76")

équivaut en SQL à :

SELECT maTable.Champ From maTable
WHERE maTable.Champ_critere = 76

Pb DLookup doit être utilisé sur une clé primaire sinon il prend le premier de la liste des doublons...
:bandit:
Merci pour le renseignement avec Docmd.RunSQL

Magi-X 30-07-2004 13:16

c'est une manière de le faire .. mais il y a moyen de le faire avec les vrais requete sql .. m'enfin si ca fonctionne comme ca, ten mieux :)

sim140680 30-07-2004 19:25

Salut
Je travaille sur ça en ce moment voici un bout de mon code (à toi de moduler en fct de tes besoins selon cet exemple):


pour la requete Where

chSQL = "SELECT " & ParamTop & " [0 Requête Globale].DateReporting, [0 Requête Globale].[N° Abonné], [0 Requête Globale].[N° GSM], [0 Requête Globale].DateConnexion, [0 Requête Globale].[N° Identité], [0 Requête Globale].Nom, [0 Requête Globale].Prénom, " & ParamReq & " FROM [0 Requête Globale] WHERE [0 Requête Globale].DateReporting = " & FormDate(Text1, Text2) & " ORDER BY " & ParamOrder & " " & ParamTri & ";"

'paramTop pour le nombre de données affichées
'formdate met une date en form dans le code
'paramorder pour le paramètre qui va trier et paramtri pour croissant ou decroissant

'Creation de la Requête "nouvelleRequête"
Set qdf = db.CreateQueryDef([Name], chSQL)

'[Name] est le nom passé en paramètre de la requete




ça fait un peu long mais ça marche!!!

Bon courage!


All times are GMT +2. The time now is 00:09.

Powered by vBulletin® Version 3.8.4
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.