我要把AdoQuery1中查询到的一行数据整行复制到AdoQuery2中请如何处理!请各位老大帮忙!!
解决方案 »
- 请教:cxgrid如何在单元格中连续输入字符?
- 想得到当前时间,包括几点几十分
- 现金求只读共享的代码
- mdichild跟随mdiform大小变化
- 如何在磁盘上建立并读写一个2进制的文件。如果用Stream操作怎么实现?
- 大哥们!帮帮忙啊!
- 紧急请教:在delphi中应用unicode的方法及与ansistring的区别,紧急!紧急!紧急!
- Delphi里面如何动态的添加事件?
- 北京通审公司招聘delphi程序员
- 做程序员的苦恼!谁能帮助解决一下。
- daoquery1.SQL.Text:='delete * from student where id='+intid ;这种情况就是在编译时出错
- 经典的杀人方法[图],收藏!暴汗!!!
var
i:Integer;
begin
AdoQuery2.Open;
with AdoQuery1 do
begin
First;
while not eof do
begin
AdoQuery2.append;
for i:=0 to AdoQuery2.FieldCount-1 do
begin
AdoQuery2.FieldByName(AdoQuery2.Fields[i].FieldName).AsString:=Fields[i].AsString;
end;
AdoQuery2.post;
next;
end;
end;
ShowMessage('拷贝成功!');
end;
select *
into
#temp
from(满足条件的数据)然口将临时表中的数据插入到库B表中
INSERT INTO B()
SELECT FIELD1,FIELD2。。 FROM A
WHERE A.A1 = B.B1
var
i:Integer;
begin
AdoQuery2.Open;
with AdoQuery1 do
begin
First;
while not eof do
begin
AdoQuery2.append;
for i:=0 to AdoQuery2.FieldCount-1 do
begin
AdoQuery2.FieldByName(AdoQuery2.Fields[i].FieldName).AsString:=Fields[i].AsString;
end;
AdoQuery2.post;
next;
end;
end;
ShowMessage('拷贝成功!');
end;
或者你查询两次一样的不是就行了吗