CREATE procedure add_new(
p_id in number,
p_name in varchar2,
p_addr in varchar2)
is
begin
insert into liudzh.liu_table values(p_id,p_name,p_addr);
commit;
end;
with StoredProc1 do
for i := StrToInt(Edit1.text) to StrToInt(Edit4.Text) do
try
StoredProc1.Params[0].AsInteger := i;
StoredProc1.Params[1].AsString := Edit2.Text+IntToStr(i);
StoredProc1.Params[2].AsString := Edit3.Text+IntToStr(i);
StoredProc1.Prepare;
StoredProc1.ExecProc;
except
ShowMessage('error');
end;