2,498
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.Button3Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.ParamCheck:=True;
ADOQuery1.SQL.Text:='select * from StdItems where name = :@name)';
ADOQuery1.Parameters.Clear;
ADOQuery1.Parameters.ParamByName('Name').Size:=10;
ADOQuery1.ExecSQL;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Text:='Update StdItems Set name =:name'; // 后面可以跟where条件
Parameters.ParamByName('Name').Value :=10;
ExecSQL;
end;
end;