奇怪

Question

adotable1.LoadFromFile('sj.xml');
          adotable1.open;
           adotable1.edit;
             adotable1.Post;我想接受了数据之后，再提交到数据里。
为什么提交了，数据库里还是没有数据呢？
只是在运行时的控件里看得到。

Answer 1

晕 这是对本地文件(xml文件)进行操作 ，想提交到数据库中 只有一条一条的导！我有导的算法try
 application.ProcessMessages;
p_adoquery:=tadoquery.create(nil);
p_adoquery.Connection:=adoconn1;//初始化查询 本地XML数据
p_adoquery.SQL.Clear;
p_adoquery.LoadFromFile('sj.xml',ptxml);//好象不是这样的 呵呵
try
p_adoquery.Open;
except
exit;
end;
adoquery1:=tadoquery.create(nil);
adoquery1.Connection:=adoconn2;//初始化查询 接受数据 adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add('select * from '+tab);
 adoquery1.ParamCheck:=false;
   adoquery1.open;
while(not p_adoquery.Eof) do
begin
 adoquery1.Insert;for i:=0 to p_adoquery.FieldList.Count-1 do
begin
try
adoquery1.FieldByName(p_adoquery.FieldList.Fields[i].FieldName).Value:=p_adoquery.FieldByName(p_adoquery.FieldList.Fields[i].FieldName).Value;
exceptend;
end;
  try
    adoquery1.Post;
     application.ProcessMessages;
   except
 p_adoquery.Next;
 continue;
   end;
p_adoquery.Next;
end;
finally
p_adoquery.Close;
p_adoquery.free;
adoquery1.Close;
adoquery1.free;
 application.ProcessMessages;
end;
end;