remplir data combo à travers un data environnement
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:
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!
