x32617导入出现数据类型不一致

atiger

来了，正在测试，有结果马上跟贴，不过感觉应该是问题

atiger

我在Oracle10.1上测试了，空的日期是可以导入进来，不会报错

atiger

你这样做一个简单的带日期时间字段的表，然后不要给日期时间赋值，用简单的两句话进行导入和导出

导入  dsData.DataSet.SaveToFile('E:\aa.XML',TDatapacketFormat.dfXML)
导出  dsData.DataSet..LoadFromFile('E:\aa.XML');

这样看看是否正常

lili7912

我正是这样做的
导出
procedure TYWGNZCT.btExportClick(Sender: TObject);
begin
  query1.CommandText:='select * from table_bmkzb where dwdm=''S11JH001''';
  query1.Open;
  query1.SaveToFile('E:\table_bmkzb.xml',TDataPacketFormat.dfXML);
end;

导入
procedure TYWGNZCT.btImportClick(Sender: TObject);
var
  I,j:Integer;
  lValues,lFields,lInsertSQL:string;
  lFieldList:TFieldlist;
  lStr:string;
begin
  Query1.LoadFromFile('E:\table_bmkzb.xml');
//Query1.LoadFromFile('E:\测试\zjcs\table_sbjbxx.xml');
  //Query1.LoadFromFile('E:\table_sbjbxx.xml');
  lFields:='';
  lValues:='';
  for i:=0 to Query1.FieldCount-1 do
  begin
    if (i<Query1.FieldCount-1) then
    begin
     lFields:=lFields+Query1.FieldList.FieldName+',';
     lValues:=lValues+':'+Query1.FieldList.FieldName+',' ;
    end
    else begin
      lFields:=lFields+Query1.FieldList.FieldName ;
      lValues:=lValues+':'+Query1.FieldList.FieldName;
    end
  end;
  lFields:='('+lFields+')';
  lValues:='Values('+lValues+')';
  //lInsertSQL:='Insert into table_sbjbxx '+lFields+' '+lValues;
  lInsertSQL:='Insert into table_bmkzb '+lFields+' '+lValues;
  QueryInsert.CommandText:=lInsertSQL;
  Dialogs.ShowMessage(QueryInsert.CommandText) ;
  lFieldList:=Query1.FieldList;
  While not Query1.Eof do
  begin
    for I := 0 to lFieldList.Count - 1 do
    begin
      QueryInsert.Params.DataType := lFieldList[I].DataType;{增加}
      QueryInsert.Params.ParamType := TParamType.ptInput;{增加}
      QueryInsert.Params.AssignFieldValue(lFieldList[I],lFieldList[I].Value);
    end;
    QueryInsert.Execute;//运行该语句时出错
    Query1.Next;
  end ;

出现一楼的错误，因为导出的记录只有一条，发现日期为空值，然后直接在table_bmkzb.xml加入
QSRQ="1990-1-1"再导入则没有问题。

atiger

收到，稍后跟贴告知。

atiger

我测试了你的代码了，但跟你的错误不一样，

周一给你结果

lili7912

有结果吗？？？

atiger

来了，是缺陷，已经提交

现在可以用方法绕开，
例如日期为空的时候不传也不赋值，

lili7912

不传也不赋值，有可能保留上一条记录的日期值，还是等图片字段问题解决一起解决再说。

atiger

好，但近期应该不会去解决这些