Image dans db champ ole - ado

Commenter

Contenu du snippet

Sur demande, voici un morceau de code pour ajouter une image dans une champ OLE.
La base est ouverte avec ADO (je passe ce détail), et le champ OLE est créé manuellement par Access 2000 ou par ADOX (cf mon autre code).On ne peut pas utiliser une requête SQL toute bête, on doit passer par ce qui suit :

Source / Exemple : 


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

Conclusion :


Ce n'est qu'un morceau de code : pas de déclaration (sauf pour une qui a posé problème pour un visiteur ;-).

A voir également

S'inscrire maintenant

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.

Du même auteur (bioman2)