Sub Exemple()
Dim Rs As Recordset
Dim sql As String
Dim NbNomProduits As Integer
lbxNomProduits.Clear
NomBase = App.Path & "\Nom fichier.mdb" ' admettons ici qu'il se
' trouve dans le dossier de l'Application
If Dir (NomBase) <> "" Then
Set db = DBEngine.Workspaces(0).OpenDatabase(NomBase)
sql = "SELECT NomDuChamps FROM NomDeLaTable" 'remplace les 2
' valeurs (NomDuChamps & NomDeLaTable)
Set Rs = db.OpenRecordset(sql)
Rs.MoveFirst
Do While Rs.EOF = False
Me.TaListBox.AddItem Rs!NomDuChamps 'remplace NomDuChamps
Rs.MoveNext
Loop
Set Rs = Nothing
db.Close
Else
MsgBox "Le fichier Nom fichier.mdb n'est pas présent dans " _
& App.Path, vbCritical, "ATTENTION"
End If
kipich
Messages postés19Date d'inscriptionjeudi 15 avril 2004StatutMembreDernière intervention 9 août 2006 20 juil. 2006 à 17:25
Merci beaucoup mais ca ne maide pas bcp.
En effet :
1) j'ai plusieurs colonne a gérer et je n'arrive pas a ajouté dans diverse colonne
2) le clear ne marche pas en VBA
3)le filter sur un recordset normal ne marche pas ici, je sais pas pourquoi, et donc j'utilise un ADOBC.Recordset
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 201118 20 juil. 2006 à 17:31
Mais quels sont les noms de tes champs qui vont dans quelles colonnes ? (et de quelles BDD ? et de quelle Table ? )
Tu es donc en VBA, mais excel ou access ? (excel je suppose !)
C'est sûr que mon code ne t'aide pas mais j'ai pas de précisions sur ce que tu voudrais faire.
"Le clear" ne marche pas, bah non !
Par contre objet.Clear, ça ça "marche" !
@++
Mortalino
Le mystérieux chevalier, "Provençal, le Gaulois"
Merci de prendre le temps de répondre à ce
sondage