Posted on 2009-10-26 01:58
xyz 阅读(1416)
评论(0) 编辑 收藏 引用 所属分类:
Delphi
增加:
Query.Close;
Query.SQL.Clear;
Query.SQL.Add('INSERT INTO myimages(FileName,pic) VALUE(''Image1'',:pic)');
Query.ParamByName('pic').LoadFromFile('D:\Hasd.bmp',ftBlob);
Query.ExecSQL;
修改:
Query.Close;
Query.SQL.Clear;
Query.SQL.Add('UPDATE myimages SET pic=:pic WHERE filename=''Image1''');
Query.ParamByName('pic').LoadFromFile('D:\Hasd2.bmp',ftBlob);
Query.ExecSQL
存储过程:
stm:=TMemoryStream.Create;
stm.write(buf^,c); //buf:pbyte
freeMem(buf,c);
Ado1.ProcedureName:='UPDATE_USER';
Ado1.Parameters.Clear;
ado1.Parameters.refresh; //这句会自动获取存储过程的所有参数
ado1.Parameters[1].Value:='test';
ado1.Parameters[2].LoadFromStream(stm,ftBytes );
ado1.ExecProc;