Salut à tous,
Je réaliser une application sous vb6 avec une base Access 2013
Je souhaiterais faire une requête dans la base depuis vb6
Pilote ODBC
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Set cnx = New ADODB.Connection
Set Rs = New ADODB.Recordset
Chaine = "provider=msdasql;dsn=nomDns"
cnx.Open chaine
Sur saisie dans textbox1 la valeur du champ a extraire le données
Sur boutobClick on exécute la requête
Ex :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
SELECT Client.NumClient, Client.NomClient, Client.CodCatClient, Client.Adresse, Client.NumTel, Commande.NumBonCom, Commande.NumProd, Commande.DateBonCom, Produit.NumPro, Produit.DesiPro
FROM Produit INNER JOIN (Client INNER JOIN Commande ON Client.NumClient = Commande.NumClient) ON Produit.NumPro = Commande.NumProd
WHERE ((([Client])="")) OR (((Client.NumClient)=[Client]))
On extrait seulement le données correspondant aux texte dutextbox1
En suite afficher dans un report
La requête est multi table
Votre aide mes sera de plus grande utilité Merci !