哪里出问题了？谢谢~“~

zhansong333 发布于 2006-04-21 18:21， 884 次点击

想把从一个表查询到的结果生成新表，该怎么实现？
我用了 Query1 Datasource1 Dbgrid1 Button1

添加如下程序代码：
procedure Tform1.Button1.click(sender.TObject);
var str:string;
begin
str:='select * into 备用题库 from 题库 where 章节='' 1 ''';
Query1.close;
Query1.sql.clear;
Query1.sql.add(str);
Query1.EXECSQL;
end;
end.

程序运行没有问题，但运行后一点按钮就出问题了，不知道是什么原因，请大家意见

5 回复

CQDS2006-04-22 22:12

procedure TForm1.BitBtn2Click(Sender: TObject);
var str:string;
begin
str:='select * into NewTable from 二手房源销售信息 where 地理位置'+' like'+''''+'%'+edit1.Text+'%'+'''';
ADOQuery1.close;
ADOQuery1.sql.clear;
ADOQuery1.sql.add(str);
ADOQuery1.EXECSQL;
end;
我用此法在DELPHI7.0中能生成新表!

ysp_19842006-04-24 10:09

凡是用SQL属性中的语句有返回结果的,不能用ADOQuery1.EXECSQL;得用ADOQuery1.open;

zhansong3332006-04-24 13:48

还是出问题了；提示显示：
project zctg.exe raised exception class EDBEngineError with message 'invalid use of keyword'
token:into
line number:'1' .process stopped. use step or run to continue.
是哪里出问题了啊，谢谢指导！

ysp_19842006-04-25 08:56

str:='select * into 备用题库 from 题库 where 章节='' 1 ''';
是不是改为: str:='select * into 备用题库 from 题库 where 章节='+'1';

tianykun2006-06-18 10:38

斑竹..很厉害啊.