在表1搜索到 N条记录,请问如何把搜索出来的N条记录一一存入到表2中去?(20)

  • 主题发起人 主题发起人 aa20000
  • 开始时间 开始时间
A

aa20000

Unregistered / Unconfirmed
GUEST, unregistred user!
请问一下在表1搜索到 N条记录,请问如何把搜索出来的N条记录一一存入到表2中去?能否给出完整的示例代码?
 
insert into 表2(字段)select 字段From 表1where 条件select 字段 Into 表2 --当前不存在表2可以这样写!From 表1where 条件
 
procedure TForm5.SpeedButton3Click(Sender: TObject);beginDataModule2.ADOQuery3.SQL.Clear;DataModule2.ADOQuery3.SQL.add('SELECT * into AAA From DXSX');DataModule2.ADOQuery3.SQL.add('where S1 ="'+Trim(edit1.Text)+'"');DataModule2.ADOQuery3.Open;DataModule2.ADOQuery3.Active:=TRUE;end;=======================这样是无法执行的了
 
procedure TForm5.SpeedButton3Click(Sender: TObject);beginDataModule2.ADOQuery3.SQL.Clear;DataModule2.ADOQuery3.SQL.add('SELECT * into AAA From DXSX');DataModule2.ADOQuery3.SQL.add('where S1 ="'+Trim(edit1.Text)+'"');DataModule2.ADOQuery3.Open;DataModule2.ADOQuery3.Active:=TRUE;end;=======================这样是无法执行的了 当然无法执行了 DataModule2.ADOQuery3.Open;DataModule2.ADOQuery3.Active:=TRUE;你都打开2次了。
 
当然无法执行了 DataModule2.ADOQuery3.Open;DataModule2.ADOQuery3.Active:=TRUE;你都打开2次了。~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~那该怎么才正确执行呢?
 
procedure TForm5.SpeedButton3Click(Sender: TObject);begin DataModule2.ADOQuery3.SQL.Clear; DataModule2.ADOQuery3.SQL.add('SELECT * into AAA From DXSX'); DataModule2.ADOQuery3.SQL.add('where S1 ="'+Trim(edit1.Text)+'"'); DataModule2.ADOQuery3.open; [red]//DataModule2.ADOQuery3.Active:=TRUE;去掉这一句[/red]end;
 
楼上的方法都不对! DataModule2.ADOQuery3.open;DataModule2.ADOQuery3.Active:=TRUE;//上面两句都要去掉改为DataModule2.ADOQuery3.ExecSql; //不是SELECT查询怎么能用OPEN?
 
多人接受答案了。
 
后退
顶部