Insertion d'image dans un champ de type Objet OLE apartir du code VB (Tech ADO)
cs_hassinoure
Messages postés
12
Date d'inscription
samedi 12 avril 2003
Statut
Membre
Dernière intervention
1 septembre 2007
-
1 juin 2003 à 18:23
cs_hassinoure Messages postés 12 Date d'inscription samedi 12 avril 2003 Statut Membre Dernière intervention 1 septembre 2007 - 7 juin 2003 à 03:12
cs_hassinoure Messages postés 12 Date d'inscription samedi 12 avril 2003 Statut Membre Dernière intervention 1 septembre 2007 - 7 juin 2003 à 03:12
A voir également:
- Insertion d'image dans un champ de type Objet OLE apartir du code VB (Tech ADO)
- La référence d'objet n'est pas définie à une instance d'un objet ✓ - Forum C# / .NET
- Objet requis vba ✓ - Forum Visual Basic 6
- Recuperation objet wow - Forum Java
- Erreur ole db ou odbc: exception de hresult : 0x80040e4e. - Forum ASP / ASP3
- Type mismatch - Forum Visual Basic
1 réponse
cs_hassinoure
Messages postés
12
Date d'inscription
samedi 12 avril 2003
Statut
Membre
Dernière intervention
1 septembre 2007
7 juin 2003 à 03:12
7 juin 2003 à 03:12
-------------------------------
Réponse au message :
-------------------------------
> Dans mon exemple j'ai utlisé l'objet ADO.
> supposant qu'on a une table nomée "users" dont les champs sont:
>
> table : users
> -------------------------
> champs | type
> -------------------------
> code | Text
> nom | Text
> img | Objet OLE
> --------------------------
>
> l'image à inseré se trouve dans un repértoire "images" dans le répértoire de l'application
> soi rs : est un recordset attaché à la table users
>
> sCode = "001"
> sNom = "Hassi Noureddine"
> sImg = App.Path & "\images\mon_imag.bmp"
>
> rs.AddNew
> rs!code = sCode
> rs!nom = sNom
>
> Dim lgFic AS Long
>
> lgFic = FreeFile
> Open sImg For Binary As lgFic
>
> rs("file_img").AppendChunk InputB(LOF(lgFic), lgFic)
>
> rs.Update
> Close lgFic
Réponse au message :
-------------------------------
> Dans mon exemple j'ai utlisé l'objet ADO.
> supposant qu'on a une table nomée "users" dont les champs sont:
>
> table : users
> -------------------------
> champs | type
> -------------------------
> code | Text
> nom | Text
> img | Objet OLE
> --------------------------
>
> l'image à inseré se trouve dans un repértoire "images" dans le répértoire de l'application
> soi rs : est un recordset attaché à la table users
>
> sCode = "001"
> sNom = "Hassi Noureddine"
> sImg = App.Path & "\images\mon_imag.bmp"
>
> rs.AddNew
> rs!code = sCode
> rs!nom = sNom
>
> Dim lgFic AS Long
>
> lgFic = FreeFile
> Open sImg For Binary As lgFic
>
> rs("file_img").AppendChunk InputB(LOF(lgFic), lgFic)
>
> rs.Update
> Close lgFic