begin process at 2012 02 09 01:32:30
  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 :7 023
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 avec une capture BIEN ADMINISTRER LES ETUDIANTS ET LEURS CÔTES par okosa
Source avec Zip VBA EXEL GESTION DE PERSONEL NOUVEAU CONTRAT DE TRAVAI par oudlarbi
Source avec Zip Source avec une capture CREATION D'UN OBJET D'ACCÈS AUX DONNÉES par okosa
Source avec Zip Source .NET (Dotnet) MISAHORAIRE par MdelM
Source avec Zip Source avec une capture BASEDEDONNEES,GESTIONDEMALADES,DATABASSE par shadkitenge
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...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Waterfall in Kauai Hawaii With RainbowPhoto Photo aérienne de Saintes Maries de la Mer
Photo Single Large Rock Formation in Monument Valley 

Visiter la photothèque
 
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 : 1,279 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)