|
var
fs : Tfilestream;
bs: TStream;
begin
ADOQuery1.active:=false;
ADOQuery1.SQL.Clear;
Adoquery1.SQL.Add('INSERT INTO FICHEROS (idempresa,Archivo) VALUES (:idempresa,:idnumero,:Archivo)');
Adoquery1.Parameters.FindParam('idempresa').Value:=1;
bs := Adoquery1.CreateBlobStream(Adoquery1.FieldByName('Archivo'),bmWrite);
TADOBlobStream(bs).LoadFromFile('c:\VICENTE.txt');
Adoquery1.ExecSQL;
me dice que el campo Archivo no existe pero si que existe ya que si hago un Adoquery1.Parameters.FindParam('Archivo').Value:='dfsfa'; me lo inserta.
¿que puede estar pasando?
Gracias
|