【结贴】Excel to table的问题**

spark

我的代码如下,其中'DataSetBroker1数据集代理已与相关的表关联问一下怎么没有导入数据成功呀
procedure TSCJH.Button4Click(Sender: TObject);
var

  ErrStr,FileNameStr:String;
begin
     opendialog1.Execute;
     FileNameStr :=sysutils.ExtractFileDir(opendialog1.FileName)+''+SysUtils.ExtractFileName(opendialog1.FileName);
    ExcelToTable1.FileName := FileNameStr;
      ExcelToTable1.StartRow :=4;
    ExcelToTable1.EndRow :=160;
     ExcelToTable1.FieldMap.Clear;
     ExcelToTable1.FieldMap.Add('DataSetBroker1.FSCPPBH=Sheet1[1,0]');   
    ExcelToTable1.FieldMap.Add('DataSetBroker1.FSCCYHJ=Sheet1[5,0]');
    ExcelToTable1.FieldMap.Add('DataSetBroker1.FSCSCXJ=Sheet1[6,0]');
    ExcelToTable1.FieldMap.Add('DataSetBroker1.FSCCD=Sheet1[7,0]');
    ExcelToTable1.FieldMap.Add('DataSetBroker1.FSCSF=Sheet1[8,0]');
    ExcelToTable1.FieldMap.Add('DataSetBroker1.FSCMY=Sheet1[9,0]');
    ExcelToTable1.FieldMap.Add('DataSetBroker1.FSCXC=Sheet1[10,0]');
    ExcelToTable1.FieldMap.Add('DataSetBroker1.FSCCQXJ=Sheet1[11,0]');
    ExcelToTable1.FieldMap.Add('DataSetBroker1.FSCCQFC=Sheet1[12,0]');
    ExcelToTable1.FieldMap.Add('DataSetBroker1.FSCFL=Sheet1[13,0]');
    ExcelToTable1.FieldMap.Add('DataSetBroker1.FSCCQFC=Sheet1[14,0]');
    ExcelToTable1.FieldMap.Add('DataSetBroker1.FSCFL=Sheet1[15,0]');
    ExcelToTable1.FieldMap.Add('DataSetBroker1.FSCQJ=Sheet1[16,0]');
    ExcelToTable1.FieldMap.Add('DataSetBroker1.ccxjyc=Sheet1[17,0]');
      ExcelToTable1.Execute(ErrStr);
       DataSetBroker1.DataSet.ApplyUpdates;
   finally
      if ErrStr<>'' then   dialogs.ShowMessage(ErrStr);
   end;

    DataSetBroker1.DataSet.Open;

end;

zfang

看看ErrStr是什么值。

zfang

另外，ExcelToTable1.DataSource是否指定？

atiger

用一个DataGrid 连接到这个 DataSetBroker1，看看执行   ExcelToTable1.Execute(ErrStr);
后，DataGrid 上是否有数据呢？

spark

ExcelToTable1.DataSource我已指定为DataSetBroker1
DataGrid 我也连接的DataSetBroker1数据库里面我查了也没有数据插入
ErrStr没有值,没有报错

atiger

那DataGrid 上有数据显示吗？如果没有，说明没有导入数据哦，那就跟你上面的赋值代码有关

spark

还有个问题就是,我用上面的代码后Datagrid里显示出我原来数据库中的数据而不是EXCEL中的数据

spark

是必须每个字段都要赋值吗

zfang

回8楼，是必填字段列要给他赋值（非必填的可以不用给他赋值）
你说的导入不成功，需要检查一下你映射关系是否有做对。
  if Business.Forms.ExcelFieldMapFunc.ShowFieldMapEditor(ExcelToTable1) then//加上这句，会弹出一个映射关系的界面，你检查看看
  if ExcelToTable1.Execute(lMsg) then

atiger

1、如果DataGrid 中没有显示出来你导入的数据，那么说明上面赋值的代码有问题，你设置断点跟踪一下。
2、是否每个字段都要赋值，
不是的，主键需要赋值，其他的就要看你要导入哪些字段了。