segunda-feira, 19 de maio de 2008

Importação com campos blob


Você teve problema ao criar uma importação por causa dos campos blob? deixou de importar alguma informação importante? Seus problemas acabaram :

Dados: TSQLDataSet;
var MemStream: TMemoryStream; SQL : string;begin SQL := 'insert into tb_biometria_digital (CD_BASE, BB_DIGITAL, NR_SIZE) values (:CD_BASE, :BB_DIGITAL, :NR_SIZE)';
MemStream := TMemoryStream.Create;
Dados.Close; Dados.CommandText := SQL;
Dados.ParamByName('CD_BASE').AsInteger := 1; Dados.ParamByName('NR_SIZE').AsInteger := 512;
TbData.SaveToStream(MemStream); Dados.ParamByName('BB_DIGITAL').LoadFromStream(MemStream, ftBlob);
Dados.Prepared := True; Dados.ExecSQL;
MemStream.Free;end;
autor: http://nerdpoint.blogspot.com/

  © Blogger template 'Perfection' by Ourblogtemplates.com 2008

Back to TOP