ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from ps.v_city');
ADOQuery1.Open;// showmessage(inttostr(adoquery1.RecordCount)); for i:=0 to adoquery1.RecordCount-1 do
begin Qweb.Close;
Qweb.SQL.Clear;
Qweb.SQL.Add('insert into city values(u1=:u1,u2=:u2)');
Qweb.FieldByName('u1').AsString:=Adoquery1.paramByname('code').AsString;
Qweb.FieldByName('u2').AsString:=Adoquery1.paramByname('c_name').AsString;
Qweb.ExecSQL;提示PARAMBYNAME出问题
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from ps.v_city');
ADOQuery1.Open;// showmessage(inttostr(adoquery1.RecordCount)); for i:=0 to adoquery1.RecordCount-1 do
begin Qweb.Close;
Qweb.SQL.Clear;
Qweb.SQL.Add('insert into city values(u1=:u1,u2=:u2)');
Qweb.FieldByName('u1').AsString:=Adoquery1.paramByname('code').AsString;
Qweb.FieldByName('u2').AsString:=Adoquery1.paramByname('c_name').AsString;
Qweb.ExecSQL;提示PARAMBYNAME出问题
Qweb.FieldByName('u1').AsString:=Adoquery1.paramByname('code').AsString;
Qweb.FieldByName('u2').AsString:=Adoquery1.paramByname('c_name').AsString;
搞错了,你应该这样写
Qweb.paramByname('u1').AsString:=Adoquery1.FieldByName('code').AsString;
Qweb.paramByname('u2').AsString:=Adoquery1.FieldByName('c_name').AsString
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from ps.v_city');
ADOQuery1.Open;// showmessage(inttostr(adoquery1.RecordCount)); for i:=0 to adoquery1.RecordCount-1 do
begin
Qweb.close;
qweb.SQL.clear;
qweb.SQL.add('select * from city');
qweb.Open;
qweb.Insert;
qweb.fields[0].AsString:=Adoquery1.Fieldbyname('code').Asstring;
qweb.Fields[1].AsString:=Adoquery1.fieldbyname('c_name').AsString;
qweb.Post;
qweb.Close;
adoquery1.Next;
end;