用adoquery和sql语句

解决方案 »

  1.   

    http://community.csdn.net/Expert/topic/3302/3302475.xml?temp=.5156824
      

  2.   

    procedure TForm1.Button1Click(Sender: TObject);
    var
      tempFile:TMemoryStream;
      strName:string;
    begin
    strName:='xxx';//你的文件
    try
      tempFile := TMemoryStream.Create ;
      tempFile.LoadFromFile(strName);
      with adoquery1 do
        begin
          close;
          sql.Clear;
          sql.Add('insert into file1(id, afile) values(1,:FileSelf)');
          parameters.ParamByName('FileSelf').LoadFromStream(tempFile, ftBlob);
          ExecSql;
        end;
    finally
      tempFile.Free;
    end
    以上是转帖的。不过记得uses db