在删除功能里,在Delete一条数据前,我想先把数据insert到一张备份表里(数据在A表,备份表是B,A和B数据结构一样),然后再Delete,请问怎么动态的得到要插入的数据呢?
解决方案 »
- 我用以下代码动态生成了N个窗口,如何得到每个窗口的句柄呢?谢谢
- 高分回报:如何用ADO实现两个SQLserver数据库(或MDB->SQLSERVER)单向数据传输,拜托各位能讲讲。
- 使用ShellExecute需要引用哪个单元,我的会报错!!
- 请教:如何做透明的容器!或者做个透明的tpanel也行!
- 求助:如何编程实现交换鼠标左右键的同时也改变鼠标指针的指向?
- 怎么让panel在运行时可以拖动其边界改变大小?
- 远程控制协议
- 请问Delphi中如何定义VCL编译环境?
- delphi中用深麼函數來實現程序暫停一小段時間?
- 送份!送分!请问收取邮件后如何不重新连接就可以得到新的邮件头
- 求救,明天就要用了,delphi+ado+access添加删除修改的语句怎么写啊.为什么跟连接SQLserver的不一样
- 在delpi中,使192.168.167.22变为192.168.167.*有那些算法和主要用到的函数?
with DataModule1.ADOQueryPrjmaintain do
begin
SQL.Add('insert??')//怎么得到插入的数据呢 delete;
DrawAdvStringGrid;
end;
insert;
fieldByName(xxx).asstring:=adotable.fieldByName('xxx').asstring;
post;
这样就插入了,接着就可以删除了!
begin
sql.clear;
SQL.Add( 'insert into b select * from a where xx=xx ')//怎么得到插入的数据呢 delete;
ExecSQL;
sql.clear;
sql.add( 'delete from a where xx=xx' );
ExecSQL;
DrawAdvStringGrid;
end
begin
sql.clear;
SQL.Add( 'insert into b select * from a where xx=xx ')//怎么得到插入的数据呢 delete;
ExecSQL;
sql.clear;
sql.add( 'delete from a where xx=xx ' );
ExecSQL;
DrawAdvStringGrid;
end
在右键菜单某个的onclick事件中:
// 首先备份
ADOTable.Open;//ADOTable链接的是A表
with ADOTable do
begin
Insert;
FieldByName('XXX').asString:=BTable.FieldByName('xxx').asString;
....
Post;
end;
//这样就给A表中要删除的记录保存到B表中了
//然后删除A表中的记录
//这里直接使用sql语句
with ADOTable do
begin
close;
sql.text:='delete from A where XXX='+FieldByName('xxx').asstring;
ExeSql;
end;