Courrupted table using blob field
Posted: Fri 20 Aug 2010 03:12
This is the code I use to update the table or insert
But my table keep currupting what can I do.
Im using D2007 and IBDac June release.
TIA
rcm
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;
Im using D2007 and IBDac June release.
TIA
rcm