listbox access

Question

bonjour a tt le monde j'ai un projet : j'utilise vb6 et access. j'ai listbox que je vais met des element appellé d'une base de donne (access) ( des noms de fichiers ). je veu un code pour testé la listbox si 1 nom de fichier existe ds la liste???????. si oui sort un msgbox. sinon ajoute le nom a la liste. voila ma code pour ajouté je veu testé ma liste si 1 nom de fichier existe : Private Sub Command2_Click() Dim list1text As String conn = CurDir() & "\base\BD_Renseignement.mdb" Dim ObjConn As New ADODB.Connection Dim rs As ADODB.Recordset ObjConn.Provider = "Microsoft.Jet.OLEDB.4.0" ObjConn.ConnectionString = "Data Source=" & conn ^{If Label9.Caption "" Or Label9.Caption "0" Then
MsgBox "Pas de fichier a ajouter !?"
Else} ^{If ObjConn.State = 0 Then ObjConn.Open
Set rs = ObjConn.Execute("select * from fichier")
If Not (rs.EOF And rs.BOF) Then
rs.MoveFirst
While Not rs.EOF
If Label9.Caption = CStr(rs!code_fichier) Then
list1text = CStr(rs!titre_fichier)
List1.AddItem list1text
End If
rs.MoveNext} ^{Wend
End If
End If

End Sub} ds la 2 eme operation je veu sauvegardé ma liste ds la base . comment je peu mettre chaque element ds son place ds la base de donne ???. merci de repondre 1000 merci

cs_le__prince · Answer

il ya personne qui peu m'aidié

Listbox access

1 réponse

Discussions similaires