Courrupted table using blob field

[rcmz]

This is the code I use to update the table or insert

Code: Select all

          SQL.Text := 'INSERT INTO Cartas (IDCARTA, '+
                              'Tipo, CveCarta, Layout, cEmpresa) '+
                      'Values (NEXT VALUE FOR GEN_CARTAS_ID,'+
                                ':Tipo, :CveCarta, :Layout, :cEmpresa) ';

        ParamByName('TIPO').AsString     := Copy(Etipo.Text,1,1);
        ParamByName('CVECARTA').AsString := Ecarta.Text;
        ParamByName('LAYOUT').LoadFromStream(sSTream, ftBlob);
        ParamByName('cEmpresa').AsString := GuEmpresa;
        Prepare;
        Execute;
        Unprepare;

But my table keep currupting what can I do.

Im using D2007 and IBDac June release.

TIA
rcm

[Dimon]

Please try to compose a small sample to demonstrate the problem and send it to dmitryg*devart*com including script to create database objects.