【搞定】ExcuteSQL:For input string "1986-3-1"类型：Exception**

lili7912

可能没有签入的原因，对不起。
test.rar我导入不了，出现格式不对。

amao800613

“导入格式不对”是因为我用的版本可能比你用的版本底好像是2403到的；只要用一个老版本的导入工具就可以导入新版本里了。我再导入时报如下错误：
=========================================================
5:        失败        11:02:41
任务执行完毕，在执行过程中产生 4 个错误。
详细信息：
==========================================================4:        失败        11:02:21
复制业务模型对象 (BIZ2:\YTSBGLXT) 时发生了错误。错误信息: 错误类型：Exception
错误信息：对象BIZ:\YTSBGLXT\YTSBSJK.DATABASE\TABLE_SBJBXX.TABLE被签出，不能导入
错误描述：
详细信息：
==========================================================3:        失败        11:02:21
复制业务模型对象 (BIZ2:\YTSBGLXT) 时发生了错误。错误信息: 错误类型：Exception
错误信息：对象BIZ:\YTSBGLXT\CSGN\YWGN1.FUNC被签出，不能导入
错误描述：
详细信息：
==========================================================2:        失败        11:02:21
复制业务模型对象 (BIZ2:\YTSBGLXT\YTSBSJK.DATABASE\TABLE_SBJBXX.TABLE) 时发生了错误。错误信息: 错误类型：Exception
错误信息：对象BIZ:\YTSBGLXT\YTSBSJK.DATABASE\TABLE_SBJBXX.TABLE被签出，不能导入
错误描述：
详细信息：
==========================================================1:        失败        11:02:20
复制业务模型对象 (BIZ2:\YTSBGLXT\CSGN\YWGN1.FUNC) 时发生了错误。错误信息: 错误类型：Exception
错误信息：对象BIZ:\YTSBGLXT\CSGN\YWGN1.FUNC被签出，不能导入
错误描述：
详细信息：==========================================================

lili7912

5楼上已说过，是因为升到2603以后出现的问题，在原版本2401中1楼的代码没有问题。

amao800613

我在本地高版本中作了测试，的确存在问题。请在代码段  
QueryInsert.Params.AssignFieldValue(lFieldList[I],lFieldList[I].Value);
后面  end; 之前加上如下语句：      
if lFieldList[I].DataType=Business.Data.TFieldType.ftTimeStamp then
        QueryInsert.Params[I].DataType := Business.Data.TFieldType.ftDateTime;
如果还不行请及时回复；该代码已经在高底版本中均测试通过！

lili7912

代码如下，仍然有问题，问题一样。
While not query2.Eof do
  begin
    for I := 0 to lFieldList.Count - 1 do
    begin
      if lFieldList[I].DataType=Business.Data.TFieldType.ftTimeStamp then
      begin
        //Dialogs.ShowMessage(lFieldList[I].DisplayName+lFieldList[I].AsString);
        QueryInsert.Params[I].DataType := Business.Data.TFieldType.ftDateTime;
      end;
      QueryInsert.Params.AssignFieldValue(lFieldList[I],lFieldList[I].Value);
    end;

    QueryInsert.Execute;
    query2.Next;
  end ;

改成下面的代码，仍然有问题，问题一样

  While not query2.Eof do
  begin
    for I := 0 to lFieldList.Count - 1 do
    begin
      if lFieldList[I].DataType=Business.Data.TFieldType.ftTimeStamp then
      begin
        //Dialogs.ShowMessage(lFieldList[I].DisplayName+lFieldList[I].AsString);
        QueryInsert.Params[I].DataType := Business.Data.TFieldType.ftDateTime;
        QueryInsert.Params.AssignFieldValue(lFieldList[I],lFieldList[I].AsDateTime);
      end
      else begin
        QueryInsert.Params.AssignFieldValue(lFieldList[I],lFieldList[I].Value);
      end;
    end;

    QueryInsert.Execute;
    query2.Next;
  end ;

amao800613

procedure TMainForm.BitBtn1Click(Sender: TObject);
var
   lFields,lValues,lInsertSQL:String;
   i:integer;
   lFieldList:TFieldList;
begin
    Query1.LoadFromFile('C:\a.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 testA '+lFields+' '+lValues;
  QueryInsert.CommandText:=lInsertSQL;
  lFieldList:=Query1.FieldList;
  While not Query1.Eof do
  begin
    for I := 0 to lFieldList.Count - 1 do
    begin
      QueryInsert.Params.AssignFieldValue(lFieldList[I],lFieldList[I].Value);
      if lFieldList[I].DataType=Business.Data.TFieldType.ftTimeStamp then
        QueryInsert.Params[I].DataType := Business.Data.TFieldType.ftDateTime;
    end;
    QueryInsert.Execute;
    Query1.Next;
  end ;
end;

procedure TMainForm.BitBtn2Click(Sender: TObject);
begin
  if not query1.Active then query1.Open;
  query1.SaveToFile('C:\a.xml',business.Data.TDataPacketFormat.dfXML);
end;


以上是我在本地测试的代码，在没有加if lFieldList[I].DataType=Business.Data.TFieldType.ftTimeStamp then
        QueryInsert.Params[I].DataType := Business.Data.TFieldType.ftDateTime;
时再高版本下运行就报错。

lili7912

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);
      if lFieldList[I].DataType=Business.Data.TFieldType.ftTimeStamp then
         QueryInsert.Params[I].DataType := Business.Data.TFieldType.ftDateTime;
     end;
    QueryInsert.Execute;
    query2.Next;
  end ;
修改后出现如下问题：

shl07

由于升级后TQuery的更新机制发生了变化。
TQuery参数无法自动区分数据类型，所以需要做类似如下处理。
也就是将上面为TQuery参数赋值的那一句
QueryInsert.Params.AssignFieldValue(lFieldList[I],lFieldList[I].Value);替换为下面的逻辑：
      case lFieldList[I].DataType of
        Business.Data.TFieldType.ftTimeStamp:
        begin
          QueryInsert.Params[I].DataType := Business.Data.TFieldType.ftDateTime;
          QueryInsert.Params[I].AsDateTime := lFieldList[I].AsDateTime;
        end;
        Business.Data.TFieldType.ftFMTBcd:
        begin
          QueryInsert.Params[I].DataType := Business.Data.TFieldType.ftFMTBcd;
          QueryInsert.Params[I].AsFloat := lFieldList[I].AsFloat;
        end;
        {若源数据表还有别的字段类型，也需要处理一下}
      else
        QueryInsert.Params[I].DataType := TFieldType.ftString;
        QueryInsert.Params[I].AssignFieldValue(lFieldList[I],lFieldList[I].Value);
      end;

lili7912

Business.Data.TFieldType.ftOraBlob类型如何处理

SMP

楼主先不要急着改，这一问题可能跟版本有关，结果还在处理中!