bonjour tout le monde;
j'ai un data combo que je veux remplir par des données d'une base de données oracle à l'aide d'une data environnement,les propriétés de data combo remplises sont juste datasource et row source,le data environnement est bien connecté à la base.
j'ai fait ce code,mais ça marche pas:
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
16
17
18
19
20
21
Dim r1 As ADODB.Recordset
Dim s1 As String
 
Set conn = New Connection
 
conn.ConnectionString = "Provider=MSDAORA.1;Password=clients;User ID=clients;Data Source=commerce;Persist Security Info=True"
conn.Open
s1 = "SELECT NOMAGENCECOMMERCIALE from AGENCESCOMMERCIALES"
Set r1 = New ADODB.Recordset
 
r1.Open s1, conn, adOpenKeyset, adLockReadOnly, adCmdText
 
r1.MoveFirst
 
            With datacombo1
 
                Set .RowSource = r1
                    .ListField = "NOMAGENCECOMMERCIALE"
                    .Text = r1(0)
 
            End With
je vous remercie de m'aider;je ne sais pas qu'est ce qui ne marche pas!