用adoquery可不可以?我只保存过cad文件。sql 7,字段类型 image
var
  s : TMemoryStream;
begin
  s := TMemoryStream.Create;
  s.LoadFromFile('C:\temp.dwg');
  s.Position := 0;
  with ADOQuery1 do begin
    Close;
    SQL.Clear;
    SQL.Add('insert into drawdwg (tabno,filedwg) values (:no,:dwg)');
    Parameters.ParamByName('no').Value := Edit1.Text;
    Parameters.ParamByName('dwg').LoadFromStream(s,ftBlob);
    Execsql;
  end;
  s.Free;
  showmessage('save ok!');
end;

解决方案 »

  1.   

    用adoquery:
    adoquery1.close;
    adoquery1.sql.clear;
    adoquery1.sql.add('exec 存储过程 :Pic');
    adoquery1.Parameters.ParamByName('Pic').LoadFromFile('图片路径',ftGraphic);
    adoquery1.execSql;
      

  2.   

    用adoquery:
    adoquery1.close;
    adoquery1.sql.clear;
    adoquery1.sql.add('exec 存储过程 :Pic');
    adoquery1.Parameters.ParamByName('Pic').LoadFromFile('图片路径',ftGraphic);
    adoquery1.execSql;