2,497
社区成员
发帖
与我相关
我的任务
分享
var
StrT : string;
begin
//上传
if not FileExists(path) then exit;
with condatabase.DataModule1.ADOQuery1 do
begin
StrT := 'insert into imgtest(id,imgstor)values(:id,:imgstor)';
//showmessage(strt);
Close;
SQL.Clear;
SQL.Add(StrT);
Clipboard.SetTextBuf(PChar(sql.text));
with Parameters do
begin
ParamByName('id').value := id;
ParamByName('imgstor').LoadFromFile(path, ftBlob);
//ParamByName('MateFlag').Value := MateFlag;
end;
ExecSQL;
end;
end;