Problème composant Oracle

8) J'ai changée mes composants ADO par Oracle Access sous Delphi

mais iln'y a pas les même options ?

Avec ADO

Code:

---

1 2 3 4 5 6 7 8

With ADO_Query do Begin sql.clear; sql.add('Insert into tanle_image values(2, :dw)'); Parameters.ParaByName('dw').LoadFromFile('c:\test.jpg', ftBlob) ExecSql; End;

---

:roll: Avec Oracle Access

Code:

---

1 2 3 4 5 6 7 8 9

With Oracle_query do Begin sql.clear; sql.add('Insert into tanle_image values(2, :dw)'); {Mais ça n'existe pas   Parameters.ParaByName('dw').LoadFromFile('c:\test.jpg', ftBlob)   } end;

---

:idea: Le but est d'envoier des fichiers Blob dans ma base !!

Alors merci d'avance

Salut,

dans les propriétés de ton copmposant (que je ne connais pas.... :? ) tu dois avoir quelque chose comme ParameterDef, ou parameter... quelque chose... non ?

c'est là dessus que tu dois "jouer"...

@+

Si c'étais si facile je n'aurais pas poser la question , il n'y a rien qui a comme nom para* .

Donc si vous avez comment merci beaucoup

Hum,

Citation:

---

Envoyé par alexmorel

Si c'étais si facile je n'aurais pas poser la question...

---

Désolé de vous avoir froissé Monsieur "Pas si Master que ça" Oracle... :roll:

Je ne suis pas froissé , c'est sympa de m'aider mais j'en ai marre de cherche ...

Et je connais Bien Oracle et Delphi au fur et a mesure que je l'utilise mais si tu as une proposition pour mon problème !

Merci d'avance

La syntaxe utilisée n'est pas la pls standard... En général c'est : ( à vérifier )

Code:

---

1 2 3 4 5 6 7

With Oracle_query do Begin sql.clear; sql.add('Insert into tanle_image values(2, :dw)'); ParamByName('dw').LoadFromFile('c:\test.jpg', ftBlob); end;

---

avec les composant Oracle il n'y a pas de

Code:

---

1 2	ParamByName('dw').LoadFromFile('c:\test.jpg', ftBlob);

---

Donc si vous avez une solution !

Merci

si on parle bien de DOA, je pense qu'une visite sur le forum des concepteurs s'impose :

http://www.allroundautomations.nl/doa.html

une recherche sur blob et loadfromfile devrait déjà apporter pas mal de réponses.

:o avec une recherche sur le site ..

8) J'ai cree le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

var LOB:TLobLocator; Begin With OracleQuery do Begin SQL.Clear; SQL.Add('INSERT INTO imagesB VALUES(44, :image)'); LOB:=TLobLocator.Create(OracleSession1, otBLOB); DeclareVariable('image', otBLOB); LOB.LoadFromFile(OpenPictureDialog1.FileName); SetComplexVariable('image', LOB); Execute; LOB.Free; OracleSession1.Commit; End; End;

---

:x Mais sa me fait l'erreur suivante

Code:

---

1 2	TLOBLocator: Invalid handle

---

:evil: Et je vois pas ou est l'erreur :?: :?:

Merci d'avance

:idea: PS :
Ma base

Code:

---

1 2 3 4

ImagesB( id_image number(6), image BLOB);

---

peut-être en mettant le loadfromfile avant le setcomplex?

J'ai juste recopier faux sur le forum sinon dans mon applic il est avant.


Mais l'erreur est bien là

J'ai trouvé la solution ...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

var LOB:TLobLocator; Begin With OracleQuery do Begin SQL.Clear; SQL.Add('INSERT INTO imagesB VALUES(44, empty_blob()) returning image into :image'); LOB:=TLobLocator.Create(OracleSession1, otBLOB); DeclareVariable('image', otBLOB); SetComplexVariable('image', LOB); Execute; LOB.LoadFromFile(OpenPictureDialog1.FileName); LOB.Free; OracleSession1.Commit; End; End;

---

Eh voilà

J'ai trouvé la solution ...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

var LOB:TLobLocator; Begin With OracleQuery do Begin SQL.Clear; SQL.Add('INSERT INTO imagesB VALUES(44, empty_blob()) returning image into :image'); LOB:=TLobLocator.Create(OracleSession1, otBLOB); DeclareVariable('image', otBLOB); SetComplexVariable('image', LOB); Execute; LOB.LoadFromFile(OpenPictureDialog1.FileName); LOB.Free; OracleSession1.Commit; End; End;

---

Eh voilà