Discussion :

[Thomad]

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

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

(comme ça il aime pas )

Merci pour votre aide.

A+

[Barbibulle]

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

Tu programmes avec quel langage pour te connecter à Interbase ?

[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+

[Barbibulle]

Essaye ca :
Pour le sauvegarder Memo1:

Code :

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

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 :

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

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.