IMAGE DANS DB CHAMP OLE - ADO

dionysos6868 Messages postés 310 Date d'inscription jeudi 4 septembre 2003 Statut Membre Dernière intervention 9 juin 2005 - 22 janv. 2004 à 19:39
pointbin Messages postés 71 Date d'inscription lundi 5 janvier 2004 Statut Membre Dernière intervention 13 mai 2010 - 5 juin 2004 à 21:19
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/19694-image-dans-db-champ-ole-ado

pointbin Messages postés 71 Date d'inscription lundi 5 janvier 2004 Statut Membre Dernière intervention 13 mai 2010
5 juin 2004 à 21:19
Merci pour votre aide,
en fait même cet source me renvoi la meme erreur.
Merci en tout cas.
sonoboss Messages postés 178 Date d'inscription lundi 17 juin 2002 Statut Membre Dernière intervention 2 octobre 2007
5 juin 2004 à 19:35
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...
pointbin Messages postés 71 Date d'inscription lundi 5 janvier 2004 Statut Membre Dernière intervention 13 mai 2010
5 juin 2004 à 17:55
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.
sonoboss Messages postés 178 Date d'inscription lundi 17 juin 2002 Statut Membre Dernière intervention 2 octobre 2007
5 juin 2004 à 15:49
De nada ;-)
pointbin Messages postés 71 Date d'inscription lundi 5 janvier 2004 Statut Membre Dernière intervention 13 mai 2010
5 juin 2004 à 13:24
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
sonoboss Messages postés 178 Date d'inscription lundi 17 juin 2002 Statut Membre Dernière intervention 2 octobre 2007
5 juin 2004 à 11:50
as tu bien vérifié que la référence Microsoft ActiveX Data Object 2.1 (ou syp) était cochée?
pointbin Messages postés 71 Date d'inscription lundi 5 janvier 2004 Statut Membre Dernière intervention 13 mai 2010
5 juin 2004 à 01:30
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
sonoboss Messages postés 178 Date d'inscription lundi 17 juin 2002 Statut Membre Dernière intervention 2 octobre 2007
27 janv. 2004 à 20:26
thx ;)
bioman2 Messages postés 24 Date d'inscription dimanche 1 décembre 2002 Statut Membre Dernière intervention 27 janvier 2004
27 janv. 2004 à 17:19
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...
sonoboss Messages postés 178 Date d'inscription lundi 17 juin 2002 Statut Membre Dernière intervention 2 octobre 2007
23 janv. 2004 à 00:09
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?
dionysos6868 Messages postés 310 Date d'inscription jeudi 4 septembre 2003 Statut Membre Dernière intervention 9 juin 2005 1
22 janv. 2004 à 19:39
Merci de ton code je vais m'en servire cool
Rejoignez-nous