Slt!
je suis en train de développer une appliquation en VB6.
Dans cette appliquation, j'ai une forme où il y un "ComboBox". Ce dernier sert à localiser un élement d'une base de donnée; Puis il y a affichage dans des "TextBox" de tous les enregistrements d'une tables dont l'un des champs est égale à celui choisi dans ComboBox (un filtrage quoi !).
J'ai utiliser le script ci-dessous avec "ComBoBox.Text" comme variable dans une requete SQL, mais ca marche pas (Erreur: Adodc2 Aucune valeur donnée pour un ou plusieurs des paramètres requis).
Pourtant, quand j'utilise à la place de la variable une valeur (ici de type chaine de caractère), ca marche à merveille.
Je crois que c'est une question de comment implementer une variable dans une requête SQL.

Merci d'avance !


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub OsenXPComboBox1_Change()
Adodc2.ConnectionString = "Provider=Microsoft.jet.oledb.4.0;persist security info = false;data source = " & App.Path & "\lme.mdb"
Dim nom As String
nom = OsenXPComboBox1.Text
Adodc2.RecordSource = "select * from unite where ndiv=" & nom
 
Adodc2.Refresh
Adodc2.Recordset.MoveLast
Adodc2.Recordset.MoveFirst
OsenXPTextBox1.Text = Adodc2.Recordset!nunite
OsenXPTextBox2.Text = Adodc2.Recordset!dunite
OsenXPTextBox3.Text = Adodc2.Recordset!cunite
End Sub

N.B: En remplacent la ligne "Adodc2.RecordSource=..." par :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Adodc2.RecordSource = "select * from unite where ndiv='CIS'"
ca marche bien.