Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 06 06:58:20

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

RE : SIMULER CTRL+A PUIS CTRL+C NE MARCHE PAS TOUT LE TEMPS .. POURQUOI ? par jeremiesauve

[DéPLACé VB.NET -> VBA] MACRO DANS EXCEL par PONTGUENNOU

RE : RECUPERER LE RESULTAS AFFICHER PAR LINVITE DE COMMANDE par jack

RECUPERER LE RESULTAS AFFICHER PAR LINVITE DE COMMANDE par liehuos001

RE : LORSQUE JE VEUX FAIRE LES ENREGISTREMENT DANS MA TABLE EN VB.NET UN MESSAGE S'AFFICHE EN ME DISANT QUE LE CHAMPS EST PETIT. QUE FAIE? par PCPT

+ de logiciels à télécharger

1 465 014 membres
64 nouveaux aujourd'hui
15 046 membres club

Trouver une ressource

Trouvez une ressource parmi 40 094 codes, 1 303 049 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

IMAGE DANS DB CHAMP OLE - ADO

Information sur la source

Catégorie :Base de Donnees Niveau : Débutant Date de création : 22/01/2004 Date de mise à jour : 27/01/2004 17:23:28 Vu : 4 960

Auteur : bioman2

Ecrire un message privé

Note :

7,00 / 10

Commentaire sur cette source (11)

Ajouter un commentaire et/ou une note

Description

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

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

        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 ;-).

Sources du même auteur

CRÉATION DB COMPLETE ADOX

Toutes les sources de bioman2

Sources de la même categorie

GESTION DE VIDEOTHÈQUE par johndave

GESTIONNAIRE DE FICHIERS VIDEOS par jcslider

RECUPERER ET AFFICHER LES MESSAGES D'INFORMATION ET D'ERREUR... par braidas

GESTION DE BIBLIOTHÉQUE par smaili

GESTION DE VENTE AUTO par promarc

Toutes les sources de la catégorie Base de Donnees

Commentaires et avis

Commentaire de dionysos6868 le 22/01/2004 19:39:05

Merci de ton code je vais m'en servire cool

Commentaire de sonoboss le 23/01/2004 00:09:06

Chez moi ca ne passe pas... Il cale au niveau du Get #1, , bytData... assortit d'un magnifique "La variable utilise un type Automation non géré par Visual Basic"...

une ID?

Commentaire de bioman2 le 27/01/2004 17:19:55

Autant pour moi !!
J'aurais dû préciser le type de variable pour bytData...
C'est :

Dim bytData() As Byte

Je corrige dans mon source...

Commentaire de sonoboss le 27/01/2004 20:26:34

thx ;)

Commentaire de pointbin le 05/06/2004 01:30:08

Que dѥsigne RS?
je l'ai declarer comme ADODB.Recordset mais dans la boucle with RS
il y a une erreur (Cette classe ne gère pas Automation )
comment la declarer

Commentaire de sonoboss le 05/06/2004 11:50:26

as tu bien vérifié que la référence Microsoft ActiveX Data Object 2.1 (ou syp) était cochée?

Commentaire de pointbin le 05/06/2004 13:24:51

c'etait Microsoft ActiveX Data Object 2.5 qui n'a pas marcher mais avec Microsoft ActiveX Data Object 2.1 tout est bien.

Merci

Commentaire de sonoboss le 05/06/2004 15:49:22

De nada ;-)

Commentaire de pointbin le 05/06/2004 17:55:00

Pardon, mais ça n'a pas marcher le brobleme persiste car j'ai mis avant RS on error resume next et je l'ai oublier.
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.

Commentaire de sonoboss le 05/06/2004 19:35:17

je ne sais pas trop en fait car je n'ai jamais utilisé ce source o final...

regarde peut être a ce niveau : http://www.vbfrance.com/code.aspx?ID=1566 mais je ne te promet rien...

Commentaire de pointbin le 05/06/2004 21:19:44

Merci pour votre aide,
en fait même cet source me renvoi la meme erreur.
Merci en tout cas.