K
KAKE
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button1Click(Sender: TObject);
begin
//错误提示:至少有一个参数没有设定!
with unit2.DataModule2 do
begin
ADOCommand1.CommandText:='insert into log(name,st,ft) values (name=:name,st=:st,ft=:ft)';
ADOCommand1.Parameters.ParamByName('name').Value :='s1';
ADOCommand1.Parameters.ParamByName('st').Value :='s2';
ADOCommand1.Parameters.ParamByName('ft').Value :='s3';
ADOCommand1.Execute ;
ADODataSet1.Recordset :=unit2.DataModule2.ADOCommand1.Execute ;
end;
end;
begin
//错误提示:至少有一个参数没有设定!
with unit2.DataModule2 do
begin
ADOCommand1.CommandText:='insert into log(name,st,ft) values (name=:name,st=:st,ft=:ft)';
ADOCommand1.Parameters.ParamByName('name').Value :='s1';
ADOCommand1.Parameters.ParamByName('st').Value :='s2';
ADOCommand1.Parameters.ParamByName('ft').Value :='s3';
ADOCommand1.Execute ;
ADODataSet1.Recordset :=unit2.DataModule2.ADOCommand1.Execute ;
end;
end;