var strSQL, sfilename: string; MStream: TMemoryStream; begin adoquery1.sql.clear; strsql:='INSERT INTO test(upfile) VALUES (: upfile )' 表 test 中upfile 二进制字段 adoquery1.sql.add(strsql); sfilename := ExtractFileName('c:\abc.doc'); MStream := TMemoryStream.Create; MStream.LoadFromFile(sfilename ); ADOQuery1.Parameters.ParamByName('upfile').LoadFromStream(MStream, ftBlob); MStream.Free; adoquery1.exesql; |
|