requete SQL - VB/VBA/VBS - Programmation
Marsh Posté le 21-05-2007 à 13:29:01
Des exmples dans http://www.vb-helper.com/AdoTalk/AdoTalk.zip et http://vb.developpez.com/cours/#fichiers_bd
Marsh Posté le 21-05-2007 à 14:48:16
ReplyMarsh Posté le 21-05-2007 à 15:38:42
chewie_62 a écrit : ça ne m'aide en rien du tout tes exemples |
tu va devoir faire avec, la réponse à ta question est dans les 2 liens de kiki
Marsh Posté le 21-05-2007 à 15:51:14
ça a beau etre dans les exemples, ça ne change rien a ma compréhension
Marsh Posté le 21-05-2007 à 09:01:17
Bonjour a tous
Je suis en cours de programmation sur visual basic 6 et access.
J'ai un probleme qui est survenu, je dois utiliser une requete SQL mais je ne sais pas du tout comment ça s'utilise !
Je vous explique :
j'ai 2 tables : Domaine et type
la table domaine comporte les champs ID_dom et domaine
ID_dom domaine
1 automatique
2 electricité
3 electronique
4 informatique
la table type comporte les champs ID_type, type et ID_dom
ID_type type ID_dom
1 auto1 1
2 auto2 1
3 auto3 1
4 electri1 2
5 electri2 2
6 electri3 2
7 elec1 3
8 elec2 3
9 elec3 3
10 info1 4
11 info2 4
12 info3 4
En fait chaque domaine peut avoir plusieurs type !
j'ai donc créer une requete sur access et voici le code qui m'est donné :
SELECT domaine.ID_dom, domaine.Domaine, type.ID_type, type.Type
FROM domaine INNER JOIN type ON domaine.ID_dom = type.ID_dom;
La compréhension de ce code n'est pas un problème!
Sur VB, j'utilise une combobox pour le domaine et une datalist pour les types, toutes 2 connecté avec un ADODC qui permet d'etre relié a la base access !
Je ne sais pas comment retranscrire le code SQL sur VB6 de façon que je puisse récupérer pour un domaine choisi, les types correspondants !
Voici le code sur VB que j'utilise
Private Sub DataCombo1_Click(Area As Integer)
Dim strdomaine As String
strdomaine = DataCombo1.Text
With Adodc1.Recordset
.Find "domaine='" & strdomaine & "' "
End With
End Sub
Private Sub DataList1_Click()
Dim strtype As String
strtype = DataList1.Text
With Adodc1.Recordset
End With
End Sub
Pouvez vous m'aider ???
merci d'avance !