Discussion :

[vitch8]

Bonjour,

Je dois enregistrer dans une base de données ACCESS une image au format bmp.

Dans la table le champs image est de type "Objet OLE"

Pour me connecter à a base ACCESS j'utilise le composant ADOConnection et donc un ADOQuery pour insérer mon image.

Voici ma requête SQL d'insertion :

insert into Table1
(IMAGE)
values
(:IMAGE)

La propriété ParamCheck de mon composant ADOQuery est activé

Voici ensuite mon code delphi pour envoyer l'image en tant que paramètre :

ADOQInsert.Parameters.ParamByName('IMAGE').LoadFromFile('.\2-1-1-.BMP', ftBlob);
ADOQInsert.ExecSQL;

A l'exécution de la requête d'insertion, delphi me retourne le message suivant :

Le projet xxxxxxx.exe a déclenché la classe d'exception EOleException avec le message 'Erreur de syntaxe dans l'instruction INSERT INTO'


J'avoue que je ne vois pas quelle est mon erreur dans ma requête SQL.

Merci d'avance pour votre aide !!!!

[ShaiLeTroll]

Pour le type en blob, joue sur ftString, ftBlob, ftGraphic ... il semble qu'il ne gère pas correctement le bind du paramètre IMAGE
Mais pour ORACLE, pour mémoriser des fichiers textes dans un Blob, j'ai exactement le même code

Dans certains SQL, on peut aussi passer le blob sous la forme d'une chaine en Base64 ou en Hexa avec un préfixe 0x ou un suffixe h, c'est selon le SGBD

Enfin, tente aussi un TADOQuery en lecture écriture, oui c'est moche mais j'ai été obligé de le faire ainsi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
with TADOQuery.Create(nil) do
try
  Connection ... ;
 
  SQL.Text := 'SELECT IMAGE FROM Table1  WHERE 0 = 1';
  Open();
  Append();
  (FieldByName('IMAGE') as TBlobField).LoadFromFile('.\2-1-1-.BMP');  
  Post();
 
finally
  Free();
end;