Soyez le premier à donner votre avis sur cette source.
Snippet vu 9 359 fois - Téléchargée 28 fois
Dim bytData() As Byte frmOpenDlg.dlgOpenFile.FontSize = 10 frmOpenDlg.dlgOpenFile.FilterIndex = 1 frmOpenDlg.dlgOpenFile.Filter = "Fichiers images (*.jpg, *.gif)|*.jpg;*.gif" frmOpenDlg.dlgOpenFile.DialogTitle = "Sélectionnez une image" frmOpenDlg.dlgOpenFile.ShowOpen If (frmOpenDlg.dlgOpenFile.fileName <> "") Then picPath = frmOpenDlg.dlgOpenFile.fileName imgPaysL.Picture = LoadPicture(picPath) End If Open picPath For Binary As #1 ReDim bytData(FileLen(picPath)) 'Read the data and close the file Get #1, , bytData Close #1 With RS .Update .Fields("Nationalite") = txtNom.Text .Fields("Image").AppendChunk bytData .Update End With
5 juin 2004 à 21:19
en fait même cet source me renvoi la meme erreur.
Merci en tout cas.
5 juin 2004 à 19:35
regarde peut être a ce niveau : http://www.vbfrance.com/code.aspx?ID=1566 mais je ne te promet rien...
5 juin 2004 à 17:55
S'il vous plait comment puige faire un exemple simple utilisant votre source,
je suis debutant en VB et on nous a demande de chercher comment inserer une image
dans une DB.
J'ai fais une BD access ("Images.mbd") et une table "ImgTest", j'ai dedant 2 champ (Nationalite et image)
et j'ai fait 2 enregistrement, puis j'ai utiliser votre code pour inserer
d'autre enregistrement mais j'ai cet erreur (Cette classe ne gère pas Automation ou l'interface attendu )
j'ai ajouter seulement ça au code :
dim RS As New ADODB.Recordset
dim db As ADODB.Connection
Set db = New ADODB.Connection
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\Images.mdb"
et j'ai mis dans la form un controle textbox,un controle image
et un controle commondialog avec name comme dans la source.
s'il vous plait aider moi,que faire et s'il ya erreur laquelle.
Merci.
5 juin 2004 à 15:49
5 juin 2004 à 13:24
Merci
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.