Discussion :

[hi-wave]

bonsoir a tous.
sur un des formulaires de mon application, j'ai mis un datacombo qui doit afficher un champ d'une table (groupe).

j'ai mes paramètres de connexion a ma base données dans une procedure sub (dont l'objet connection est conn) contenue dans un module standard, et ça marche pour les autres controles.
voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
1. dim chaine as string
2. dim recset as new ADODB.recordset
3. chaine = "select numgroup from GROUPE;"
4. set recset = createobject("adodb.recordset")
5. recset.open chaine,conn,3
6. set data1.datasource = recset
7. set data1.rowsource = recset
8. data1.listfield = recset
9. data1.datatfield = recset 
 
' et pour vider le recordset
set recset = nothing

et à la ligne 8 j'ai une erreur du genre "valeur de propriete non valide"
et je ne sais pas pourquoi.
aidez moi s'il vous plaît.

[ProgElecT]

Salut
Tu parles d'un DataCombo et tu nous mes un code qui remplis un Data?
Un Data (Class Data membre de VB) n'a pas de propriété datasource, donc il s'agirait d'un DataCombo?
Si oui, il y a confusion entre les propriétés d'un Data et d'un DataCombo

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
chaine = "select numgroup from GROUPE;"
Set recset = CreateObject("adodb.recordset")
recset.Open chaine, conn, 3
 
If recset.State = 0 Then
    DataCombo1.Text = "pas d'enregisrement"
    Else
    Set DataCombo1.RowSource = recset.DataSource
    DataCombo1.ListField = recset.Fields(0).Name     'la ligne 8
    DataCombo1.Text = recset.Fields(0).Value
    recset.Close
End If
 
' et pour vider le recordset
Set recset = Nothing

[hi-wave]

merci pour votre reponse. il s'agit bien d'un datacombo, c'est juste le non que je lui ai donné, mais si cela n'est pas conseillé a cause de la confusion je vais maitenant faire attention.
merci beaucoup.

[hi-wave]

je voualias juste avoir le temps de m'essayer et avec les coupures d'électricité ici c'était pas très évident.
en définitive il ya toujours une petite érreur.
avec ce code je n'ai que la propriété text du datacombo qui se rempli. et donc j'ai juste la valeur du premier enregistrement affiché dans la datacombo et rien d'autre dans la liste.
excusez moi pour tout ce temps mis.

[ProgElecT]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
If recset.State = 0 Then
    DataCombo1.Text = "pas d'enregisrement"
    Else
    Set DataCombo1.RowSource = recset.DataSource
    DataCombo1.ListField = recset.Fields(0).Name     'la ligne 8
    DataCombo1.Text = recset.Fields(0).Value
    '---------- > recset.Close <-------- remer ou éliminer cette ligne
End If

J'avais fait des essais, et au dernier moment j'ai ajouté la fermeture du RecordSet, par souci de propreté, sans réessayer le code, ben faut pas

[hi-wave]

merci beaucoup, je viens de le corriger et ca va mieux, mes datacombo se comportent trés biens. je passe a la suite de mon développement et je serai là s'il m'arrive de voir flou.
merci pour vos réponses