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
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