A voir également:
- Images, Access et VB
- Vb cable - Télécharger - Audio & Musique
- Vb - Télécharger - Langages
- Images gratuites - Guide
- Images enregistrées - Forum Blender
- Google images - Guide
3 réponses
Bonjour,
moi jai reussis mais je sais pas si tu cherche vraiment ca ,tu dois creer un champs titre et photo par exemple ta table s applele K7_DVD
Public cnx As ADODB.Connection
Public rst As ADODB.Recordset
Public SQL As String
Public SQL1 As String
mettre ces 4 lignes dans une module
Private Sub Connexion()
Set cnx = New ADODB.Connection
Set rst = New ADODB.Recordset
cnx.Provider = "Microsoft.Jet.Oledb.4.0"
cnx.ConnectionString = App.Path & "\K7_DVD.mdb"
cnx.Open
End Sub
Private Sub CmdV_Click()
Dim n1 As Integer
Call Connexion
SQL = "Select * from K7_DVD"
rst.Open SQL, cnx, , adLockOptimistic
rst.AddNew
rst("Titre") = TextTitre //enregistrement du titre//
For n1 = 0 To File1.ListCount - 1
If File1.Selected(n1) Then
TextRechercheMembre.Caption = File1.List(n1)
rst("Photo") = TextRechercheMembre //enregistrement le nom du photo //
End If
Next
moi jai reussis mais je sais pas si tu cherche vraiment ca ,tu dois creer un champs titre et photo par exemple ta table s applele K7_DVD
Public cnx As ADODB.Connection
Public rst As ADODB.Recordset
Public SQL As String
Public SQL1 As String
mettre ces 4 lignes dans une module
Private Sub Connexion()
Set cnx = New ADODB.Connection
Set rst = New ADODB.Recordset
cnx.Provider = "Microsoft.Jet.Oledb.4.0"
cnx.ConnectionString = App.Path & "\K7_DVD.mdb"
cnx.Open
End Sub
Private Sub CmdV_Click()
Dim n1 As Integer
Call Connexion
SQL = "Select * from K7_DVD"
rst.Open SQL, cnx, , adLockOptimistic
rst.AddNew
rst("Titre") = TextTitre //enregistrement du titre//
For n1 = 0 To File1.ListCount - 1
If File1.Selected(n1) Then
TextRechercheMembre.Caption = File1.List(n1)
rst("Photo") = TextRechercheMembre //enregistrement le nom du photo //
End If
Next