BLOB et INSERT

Version imprimable

25/04/2003, 11h39
Thomad

BLOB et INSERT

Dans une colonne Blob comment faire pour insérer du texte genre:

INSERT INTO MATABLE(BLOB) VALUES('TEST')

(comme ça il aime pas :evil: )

Merci pour votre aide.

A+
25/04/2003, 12h42
Barbibulle

Tu ne peux pas le faire avec une simple requete SQL...

Tu programmes avec quel langage pour te connecter à Interbase ?
25/04/2003, 12h53
Thomad

Dans ce cas c'est Delphi , c'est toujours mon problème du Verbose de GBAK.

J'ai une appli. en Delphi avec utilisation des composants Interbase.
J'ai dans un TMemo le résultat du TIBBackupService et je souhaite passer ce résultat (Verbose) dans une colonne de type BLOB. Une colonne CHAR est trop petite.

A+

Essaye ca :
Pour le sauvegarder Memo1:

Code:

1
2
3
4
5
6
7
8
 
    IBQuery1.Close;
    IBQuery1.SQL.Clear;
    IBQuery1.SQL.Add('insert into MON_BLOB (ID, TEXTBLOB) values(:ID, :TEXTBLOB);');
    IBQuery1.ParamByName('ID').AsString := Edit1.Text;
    IBQuery1.ParamByName('TEXTBLOB').AsString := Memo1.Text;
    IBQuery1.ExecSQL;
    IBTransaction1.Commit;

Pour le relire :

Code:

1
2
3
4
5
6
7
8
    IBQuery1.Close;
    IBQuery1.SQL.Clear;
    IBQuery1.SQL.Add('Select ID, TEXTBLOB from MON_BLOB where ID=:ID;');
    IBQuery1.ParamByName('ID').AsString := Edit1.Text;
    IBQuery1.Open;
    IBQuery1.First;
    Edit1.Text := IBQuery1.FieldByName('ID').AsString;
    Memo1.Text := IBQuery1.FieldByName('TEXTBLOB').AsString;

avec TEXTBLOB défini ainsi :
"TEXTBLOB" BLOB SUB_TYPE TEXT SEGMENT SIZE xx...,

xx étant le nombre de caractère pour le segment du blob.