begin process at 2010 02 10 14:03:45
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Base de Donnees

 > IMAGE DANS DB CHAMP OLE - ADO

IMAGE DANS DB CHAMP OLE - ADO


 Information sur la source

Note :
7 / 10 - par 1 personne
7,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
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 :5 407
Auteur : bioman2

Ecrire un message privé
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

Source avec Zip Source .NET (Dotnet) DATA ACCESS COMPONENT par zaimfaycal
Source avec Zip GESTION ENSEIGNANTS par Elmarzougui
Source avec Zip GESTION D'UNE BIBLIOTHÈQUE par Elmarzougui
Source avec Zip VISUALISATION BASE ACCESS par claude440
Source avec Zip SUPER MONEY par MdelM
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&#1125;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.

 Ajouter un commentaire

Nos sponsors


Sondage...

Comparez les prix


Console Sony PSP-3000 Black
Entre 200€ et 200€

Visiter le guide achat

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,577 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)