insert into tb_Data_'+inttostr(i)+'_5 select * from tb_Data_'+inttostr(i)+'_4'+ ' where batchName='+Quoteds(CurrBatchName)+' and PicName='+Quotedstr(sPicName)
解决方案 »
- 如何美化按钮?加倒角,和立体效果?
- 怎么获得系统进程数量?
- 关于导出数据到EXcel时出错。
- 请教串口通讯数据处理
- 请教控件安装时老是把前面安装的另一个控件删掉了,为什么?
- 外部控件是怎么安装的啊?是不是只要打开那些.dpk文件?
- 我的程序在自己机器好的在别的机器出现(Access violation at address 00540707 in module 'a.exe';read of address 00000000000000)!
- +++++++如何将toolbar的按钮上的image显示在caption的左边?++++++++
- delphi中关于日历组件的问题
- 各位帮忙呀
- XLSReadWriteII控件
- delphi编写一个从数据里的数据导execl中
从一个表里筛选出部分记录插入到有相同数据数据结构的另外一个表中
-------------------------------
需多多看书
batchName='+Quoteds(CurrBatchName)+'
和PicName='+Quotedstr(sPicName)
的所有记录导入到 tb_Data_'+inttostr(i)+'_5 中
begin
sql.clear;
sql.add('select * from tb_Data_'+inttostr(i)+'_4'+ ' where batchName='+Quoteds(CurrBatchName)+' and PicName='+Quotedstr(sPicName));
open;
end;while not ADOQuery do
begin
with ADOQuery2 do
begin
sql.clear;
sql.add(insert into tb_Data_'+inttostr(i)+'_5 );
ExecSql;
end;
ADOQuery.next;
end;