dionysos6868
Messages postés310Date d'inscriptionjeudi 4 septembre 2003StatutMembreDernière intervention 9 juin 2005
-
22 janv. 2004 à 19:39
pointbin
Messages postés71Date d'inscriptionlundi 5 janvier 2004StatutMembreDernière intervention13 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.
pointbin
Messages postés71Date d'inscriptionlundi 5 janvier 2004StatutMembreDernière intervention13 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és178Date d'inscriptionlundi 17 juin 2002StatutMembreDernière intervention 2 octobre 2007 5 juin 2004 à 15:49
De nada ;-)
pointbin
Messages postés71Date d'inscriptionlundi 5 janvier 2004StatutMembreDernière intervention13 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és178Date d'inscriptionlundi 17 juin 2002StatutMembreDerniè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és71Date d'inscriptionlundi 5 janvier 2004StatutMembreDernière intervention13 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és178Date d'inscriptionlundi 17 juin 2002StatutMembreDernière intervention 2 octobre 2007 27 janv. 2004 à 20:26
thx ;)
bioman2
Messages postés24Date d'inscriptiondimanche 1 décembre 2002StatutMembreDernière intervention27 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és178Date d'inscriptionlundi 17 juin 2002StatutMembreDerniè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és310Date d'inscriptionjeudi 4 septembre 2003StatutMembreDernière intervention 9 juin 20051 22 janv. 2004 à 19:39
5 juin 2004 à 21:19
en fait même cet source me renvoi la meme erreur.
Merci en tout cas.
5 juin 2004 à 19:35
regarde peut être a ce niveau : http://www.vbfrance.com/code.aspx?ID=1566 mais je ne te promet rien...
5 juin 2004 à 17:55
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.
5 juin 2004 à 15:49
5 juin 2004 à 13:24
Merci
5 juin 2004 à 11:50
5 juin 2004 à 01:30
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
27 janv. 2004 à 20:26
27 janv. 2004 à 17:19
J'aurais dû préciser le type de variable pour bytData...
C'est :
Dim bytData() As Byte
Je corrige dans mon source...
23 janv. 2004 à 00:09
une ID?
22 janv. 2004 à 19:39