又出怪事了(也许是我不懂的事太多,也许是我的错):
我在程序中设定了一个Query2,用于查询:
这是它的SQL:用SQL Builder做出来的:
SELECT SeqID, SeqName, SeqDate, SeqContent, SeqLength, Sequence
FROM "SwissProt.db" Swissprot
WHERE Sequence LIKE '%EAMAPK%'
在SQL Builder中,如果我让它运行,它会运行(硬盘狂转不止),
但是在我的程序中,它却毫无反应:
procedure TForm1.QueryBtnClick(Sender: TObject);
begin
if not Table1.Exists then
begin
NewBtn.Click;
exit;
end;
if(bDatabaseOpened) then
begin
Table1.Close;
bDatabaseOpened := false;
end;
DataSource1.DataSet := Query2;
Query2.ExecSQL;
//运行这一句的时候,硬盘都不响,什么反应都没有,怎么回事?
end;