【搞定】无效的列类型**

lili7912

导出
procedure TYWGNZCT.btExportClick(Sender: TObject);
begin
  query1.CommandText:='select * from table_sbjbxx where '
    +' GUID=''6FE86CAA67BC4EFBABDB8061ECB22010'' AND SBXZ=''BM1501''';//'select * from table_bmkzb where dwdm=''S11JH001''';
  query1.Open;
  query1.SaveToFile('E:        able_sbjbxx.xml',TDataPacketFormat.dfXML);
  query1.Close
end;

导入
procedure TYWGNZCT.btImportClick(Sender: TObject);
var
  I,j:Integer;
  lValues,lFields,lInsertSQL:string;
  lFieldList:TFieldlist;
begin
Query2.LoadFromFile('E:        able_sbjbxx.xml');
  lFields:='';
  lValues:='';
  for i:=0 to query2.FieldCount-1 do
  begin
    if (i<query2.FieldCount-1) then
    begin
     lFields:=lFields+query2.FieldList.FieldName+',';
     lValues:=lValues+':'+query2.FieldList.FieldName+',' ;
    end
    else begin
      lFields:=lFields+query2.FieldList.FieldName ;
      lValues:=lValues+':'+query2.FieldList.FieldName;
    end
  end;
  lFields:='('+lFields+')';
  lValues:='Values('+lValues+')';
  lInsertSQL:='Insert into table_sbjbxx '+lFields+' '+lValues;
  QueryInsert.CommandText:=lInsertSQL;
  lFieldList:=query2.FieldList;
  While not query2.Eof do
  begin
    for I := 0 to lFieldList.Count - 1 do
    begin
      QueryInsert.Params.AssignFieldValue(lFieldList[I],lFieldList[I].Value);
    end;
    QueryInsert.Execute;//运行到该处出错，见图片
    query2.Next;
  end ;
end;
查其原因，是因为有一个字段JMFDS(number(10))，导出到XML的值
JMFDS=""。上面一段通用导数据表的程序基本不能用，以前发过其它贴，日期型字段空出现问题，blob字段有图片也出现问题。
不知道有什么其它通用方法，导入XML的数据。

atiger

楼主，
1/在执行哪句报出来的

2/当时是在导入啥类型的字段

lili7912

QueryInsert.Execute;//运行到该处出错，见图片
    query2.Next;
  end ;
end;
查其原因，是因为有一个字段JMFDS(number(10))，导出到XML的值
JMFDS=""，导出前原值为JMFDS=0。

atiger

哦，我测试一下，明天上午下班前给你结果

lili7912

上面在方法导xml数据，确实有问题,，改用下面的代码，没有问题，blob字段导入没有问题，日期型字段为空也没有问题。
procedure TYWGNZCT.btImportClick(Sender: TObject);
var
  lFieldName:string;
  I:Integer;
begin
  Query1.LoadFromFile('E:\table_bmkzb.xml');
  Query2.CommandText:='SELECT * FROM TABLE_bmkzb WHERE 1<>1' ;
  Query2.open;

  While not Query1.Eof do
  begin
    Query2.Insert;
    for I := 0 to Query1.FieldList.Count-1  do
    begin
      lFieldName:=Query1.FieldList[I].FieldName;
      if (Query1.FieldList[I].DataType=TFieldType.ftOraBlob) then//二进制字段
        Query2.FieldByName(lFieldName).Assign(Query1.FieldByName(lFieldName))
      else
        Query2.FieldByName(lFieldName).Value:=Query1.FieldList[I].Value;
    end;
    Query2.ApplyUpdates;
    Query1.Next;
  end ;
end;

atiger

ok
谢谢楼主把方法共享，那我结贴了：）