procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
ADOConnection1.Open;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('insert into tbzqdm (zqdm,zqmc)');
ADOQuery1.SQL.Add('values(:dm,:mc)');
ADOQuery1.Parameters.ParamValues['dm']:='600597';
ADOQuery1.Parameters.ParamValues['mc']:='光明乳业';
for i :=1 to 1000 do ADOQuery1.ExecSQL;
ADOQuery1.Close;
ADOConnection1.Close;
end;
conectionstring是
Provider=VFPOLEDB.1;Data Source=D:\myVFP;Password="";Collating Sequence=MACHINE运行到i=512时就出错:too many var....
为什么?
var
i:integer;
begin
ADOConnection1.Open;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('insert into tbzqdm (zqdm,zqmc)');
ADOQuery1.SQL.Add('values(:dm,:mc)');
ADOQuery1.Parameters.ParamValues['dm']:='600597';
ADOQuery1.Parameters.ParamValues['mc']:='光明乳业';
for i :=1 to 1000 do ADOQuery1.ExecSQL;
ADOQuery1.Close;
ADOConnection1.Close;
end;
conectionstring是
Provider=VFPOLEDB.1;Data Source=D:\myVFP;Password="";Collating Sequence=MACHINE运行到i=512时就出错:too many var....
为什么?
ADOQuery1.SQL.Add(' values(:dm,:mc)'); //value前加空格