Discussion :

[FMJ]

Bonjour,

Alors déjà pour peupler la ListBox, il y a deux approches :

> Soit via son Rowsource par itération pour rentrer toute les valeurs
[CODE]

Code :

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

1
2
3
4
5
6
7
8
9
Set Cn1 = New ADODB.Connection
Cn1.Open *** chaîne de connexion SQL Server ***
Set Rs = New ADODB.Recordset
chSQL = "SELECT  Col1, Col2, ...., Colx FROM TABLE1"
Rs.Open chSQL, Cn1, adOpenForwardOnly, adLockReadOnly
If Not Rs.EOF Then
 RS.Rowsource=RS.Rowsource & ";" & RS.Fields(0) & ";" & RS.Fields(1) &  .....& ";" & RS.Fields(x) & ";"
End If
Rs.Close

Ne pas oublier de retirer le dernier ";" dans le Rowsource !

> Soit via la commande .additem

Dans les deux cas, ce traitement peut être particulièrement long s'il y a pas mal de lignes et de colonnes à traiter.

Une astuce qui permet de booster drastiquement ce traitement consiste à déporter la pseudo itération de la première approche (celle avec Rowsource) sur le SQL Server en utilisant la clause FOR XML PATH (). Exemple :

Code :

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

1
2
3
4
5
6
7
8
9
Set Cn1 = New ADODB.Connection
Cn1.Open *** chaîne de connexion SQL Server ***
Set Rs = New ADODB.Recordset
chSQL = "SELECT  STUFF((SELECT ';' + Col1 + ';' + ';' + Col2 + ';' + ....  + ';' + Colx FROM TABLE1 FOR XML PATH ('')), 1, 1, '')"
Rs.Open chSQL, Cn1, adOpenForwardOnly, adLockReadOnly
If Not Rs.EOF Then
    ListeBox.Rowsource= Rq1.Fields(0)
End If
Rs.Close

Attention : Le Rowsource est limité à seulement 32 750 caractères (2048 dans les anciennes versions) !!!!

[Thumb down]

Bonjour,

Code :

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

Me.Modifiable5.RowSource = "Select * from [ODBC;Driver={SQL Server};SERVER=" & MyServeur & ";DATABASE=" & MyDATABASE & ";UID=" & MyUID & ";Pwd=" & MyPwd & "].[TableSqlServer]"

[FMJ]

Effectivement, il y a cette solution .... mais elle ne convient pas dans mon cas car mon accès aux données se fait exclusivement par procédure stockée. En outre les credentials de la connexion au serveur sont codés en dur via une dll. Je crains qu'il ne soit pas possible de l'intégrer dans la chaîne de requêtage du Rowsource. Pour finir je ne suis pas sûr que cette méthode qui doit être itérative aussi bien côté réseau que du moteur de données Jet soit aussi performance que le requêe SQL Server que j'ai proposée ci-dessus.
Mais cette solution est plus simple. Merci de l'avoir proposée.