A voir également:
- Images, Access et VB
- Vb - Télécharger - Langages
- Vb cable - Télécharger - Audio & Musique
- Des images - Guide
- Copiez l'image dans un logiciel d'édition d'images ou un outil en ligne comme js paint ou pixlr e. remplissez les cases en suivant le code couleur. des cases supplémentaires vont se remplir automatiquement. que représente le dessin ? ✓ - Forum Windows
- Supprimez les composantes rouge et verte de cette image. quel mot apparaît ? - Forum Word
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