Discussion :

[hanines]

Bonjour les ami(e)s et bon courage


J'ai une base de données en access sous le nom de "Binfo" et une table sous le nom de "informatis" composée de plusieurs champs:
- Région
- code postal
- Province
- Zone etc

Ma question c'est que je veux importer la structure de cette table dans un combobox ou listbox pour faire ultérieurement le choix soit pour filtrer ou trier un champ particulier de la table ou envoyer à l'imprimante les données relatives aux champs selectionnés.

Voulez-vous m'aider SVP, je vous serais très reconnaissant.

Un ami du Maroc

[bidou]

Dim MaConn As ADODB.Connection, rstChamp As ADODB.Recordset
Dim NomTable As String

'création de la connexion
Set MaConn = New ADODB.Connection
MaConn.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source=D:\JMARC\biblio.mdb"
MaConn.Open

NomTable = "Publishers"
'création du recordset contenant la structure des champs
Set rstChamp = New ADODB.Recordset
Set rstChamp = MaConn.OpenSchema(adSchemaColumns, Array(Empty, Empty, NomTable, Empty))

Do While Not rstChamp.EOF
Me.Combo1.AddItem rstChamp!COLUMN_NAME
rstChamp.MoveNext
Loop
rstChamp.Close
MaConn.Close

[hanines]

Salut à tous


Merci infiniment pour votre précieuse et rapide réponse.


Elalaoui du Maroc