COMMENT INTEGER LES DONNEES D'UNE TABLE ACCESS
Résolu
DHN93160
Messages postés
33
Date d'inscription
mercredi 29 décembre 2004
Statut
Membre
Dernière intervention
12 janvier 2006
-
6 oct. 2005 à 12:00
jpleroisse Messages postés 1788 Date d'inscription mardi 7 novembre 2000 Statut Membre Dernière intervention 11 mars 2006 - 6 oct. 2005 à 12:39
jpleroisse Messages postés 1788 Date d'inscription mardi 7 novembre 2000 Statut Membre Dernière intervention 11 mars 2006 - 6 oct. 2005 à 12:39
2 réponses
Sniper_Vgaerr
Messages postés
113
Date d'inscription
jeudi 2 décembre 2004
Statut
Membre
Dernière intervention
14 août 2006
6 oct. 2005 à 12:37
6 oct. 2005 à 12:37
Salut,
Tu n'as qu'a mettre :
Combo1.AddItem ![ChampAccess] //ChampAccess est le nom du champ que tu as donné dans ta table access
List1.AddItem ![ChampAccess] //Marche aussi
Voila
@+
Tu n'as qu'a mettre :
Combo1.AddItem ![ChampAccess] //ChampAccess est le nom du champ que tu as donné dans ta table access
List1.AddItem ![ChampAccess] //Marche aussi
Voila
@+
jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
27
6 oct. 2005 à 12:39
6 oct. 2005 à 12:39
Bonjour,
Dans Projet / Références, tu coches Microsoft ActiveX Data Object 2.0
Library et Microsoft DAO 3.51 Object Library , tu places un
commandButton et un Combobox Sur ta Form et tu mets ce code.
La combobox contiendra les noms de la table Publishers de la BD Biblio.mdb, livrée avec VB 6.
Private Sub Command1_Click()
Dim adoConnection As ADODB.Connection
Dim adoRecordSet As ADODB.Recordset
Set adoConnection = New ADODB.Connection
Set adoRecordSet = New ADODB.Recordset
Dim ConnectionString As String
ConnectionString "Provider Microsoft.Jet.OLEDB.3.51;" & " Data Source = " & App.Path & "\Biblio.mdb"
adoConnection.Open ConnectionString
adoRecordSet.Open "Publishers", adoConnection
Do Until adoRecordSet.EOF
Combo1.AddItem adoRecordSet!Name
adoRecordSet.MoveNext
Loop
adoRecordSet.Close
adoConnection.Close
Set adoConnection = Nothing
Set adoRecordSet = Nothing
End Sub
jpleroisse
Si une réponse vous convient, cliquez Réponse Acceptée.
Dans Projet / Références, tu coches Microsoft ActiveX Data Object 2.0
Library et Microsoft DAO 3.51 Object Library , tu places un
commandButton et un Combobox Sur ta Form et tu mets ce code.
La combobox contiendra les noms de la table Publishers de la BD Biblio.mdb, livrée avec VB 6.
Private Sub Command1_Click()
Dim adoConnection As ADODB.Connection
Dim adoRecordSet As ADODB.Recordset
Set adoConnection = New ADODB.Connection
Set adoRecordSet = New ADODB.Recordset
Dim ConnectionString As String
ConnectionString "Provider Microsoft.Jet.OLEDB.3.51;" & " Data Source = " & App.Path & "\Biblio.mdb"
adoConnection.Open ConnectionString
adoRecordSet.Open "Publishers", adoConnection
Do Until adoRecordSet.EOF
Combo1.AddItem adoRecordSet!Name
adoRecordSet.MoveNext
Loop
adoRecordSet.Close
adoConnection.Close
Set adoConnection = Nothing
Set adoRecordSet = Nothing
End Sub
jpleroisse
Si une réponse vous convient, cliquez Réponse Acceptée.