Discussion :

[kmsoft]

Bonjour
Je débute avec IB7
Et Je n’arrivais pas a remplir mes Blobs avec un insert, alors après avoir effectué des recherches sur le net et sur le forum j’ai trouvé un bout de code (http://www.developpez.net/forums/viewtopic.php?t=76625 de Barbibulle) que j’ai adapté :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
     datamodule2.IBQuery1.close;
     DataModule2.IBQuery1.SQL.Clear;
 
     DataModule2.IBQuery1.SQL.Text:=
     'insert into HISTORIQUE(id,memo) Values(:id, :memo);'; 
 
 // lenom        de      mon blob c historique et memo c’est son type(domain)
 
     DataModule2.IBQuery1.ParamByName('id').AsString:=Id_cons;
 //id_cons et la valeur de la clé primaire de l’enregistrement qui se trouve dans de la table consultation( qui contient mon blob)
     DataModule2.IBQuery1.ParamByName('memo').AsString:=MemoHistorique.text;
     datamodule2.IBQuery1.ExecSQL;
     DataModule2.IBTransaction1.Commit;

[code]


Lorsque j’exécute , IB me dit ‘’Table unknow HISTORIQUE ‘’ (ce qui est plutot normal puisque historique est un mémo )
Vous savez d’où vient l’erreur ?



Merci pour votre aide

[kmsoft]

désole de vous avoir déranger , je viens de trouver la solution :

Code :

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

1
2
3
4
5
6
 
'INSERT INTO CONSULTATION(ID_C,HISTORIQUE) VALUES(:ID,:HISTORIQUE)';
     DataModule2.IBQuery1.ParamByName('id').AsString:=id_cons;
     DataModule2.IBQuery1.ParamByName('HISTORIQUE').AsString:=MemoHistorique.text;
     datamodule2.IBQuery1.ExecSQL;
     DataModule2.IBTransaction1.Commit;

Enfaîte c'est cet exemple (que j'ai évoqué plus haut) qui m'a induis en erreur :

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;

j'ai cru qu'il fallait remplacé "MON_BLOB" avec le nom de mon blob !