主题:oracle数据库中2个表之间的数据导入
我学delphi 才2个月。前段时间做了个程序实现oracle数据库中表A和表B之间的数据导入。用Simpledataset1.commtext=select * from 表A,Simpledataset2.commtext
=select * from 表B.实现将A中数据导出到B中。这个程序能成功运行。
然而当在这个程序的基础上改动时,将Simpledataset1.commtext该成=select * from 表C,Simpledataset2.commtext该成select * from 表D时,却提示
DBX Error :No Mapping for error code Found.谁能告诉我这是怎么回事吗?
代码如下:
SimpleDataSet2.Insert ;
SimpleDataSet2.FieldByName('编号').AsString :=SimpleDataSet1.FieldByName('编号').AsString;
SimpleDataSet2.FieldByName('填表日期').AsString :=SimpleDataSet1.FieldByName('填表日期').AsString;
SimpleDataSet2.FieldByName('填报单位名称').AsString :=SimpleDataSet1.FieldByName('填报单位名称').AsString;
SimpleDataSet2.FieldByName('填报单位法人代码').AsString :=SimpleDataSet1.FieldByName('填报单位法人代码').AsString;
SimpleDataSet2.FieldByName('填报单位法人姓名').AsString :=SimpleDataSet1.FieldByName('填报单位法人姓名').AsString;
SimpleDataSet2.ApplyUpdates(0);
程序老是运行到最后一条更新的语句时就出问题。
=select * from 表B.实现将A中数据导出到B中。这个程序能成功运行。
然而当在这个程序的基础上改动时,将Simpledataset1.commtext该成=select * from 表C,Simpledataset2.commtext该成select * from 表D时,却提示
DBX Error :No Mapping for error code Found.谁能告诉我这是怎么回事吗?
代码如下:
SimpleDataSet2.Insert ;
SimpleDataSet2.FieldByName('编号').AsString :=SimpleDataSet1.FieldByName('编号').AsString;
SimpleDataSet2.FieldByName('填表日期').AsString :=SimpleDataSet1.FieldByName('填表日期').AsString;
SimpleDataSet2.FieldByName('填报单位名称').AsString :=SimpleDataSet1.FieldByName('填报单位名称').AsString;
SimpleDataSet2.FieldByName('填报单位法人代码').AsString :=SimpleDataSet1.FieldByName('填报单位法人代码').AsString;
SimpleDataSet2.FieldByName('填报单位法人姓名').AsString :=SimpleDataSet1.FieldByName('填报单位法人姓名').AsString;
SimpleDataSet2.ApplyUpdates(0);
程序老是运行到最后一条更新的语句时就出问题。