小弟 trace delphi 6 的程式, 結果當 qryT.open 執行時, 出現 capability not supported 的錯誤訊息, 請問在何種情況下會出現這種錯誤.

begin
lblFWD.Caption:=qry1FWD.FieldByName('uniname').asString '[' cbFWD.text ']';
qrlabel20.Caption:='¶i¤f´Á¶¡·~°È·~ÁZªí';
qrlabel22.Caption:=xetaC;
qrsysdata1.Caption:='»sªí¤é´Á:';
end;//..2004/05/21}
qryH.close;
qryH.SQL.clear;
qryH.SQL.Add('select * from thblrev');
qryH.SQL.Add('where fn is not null');
if cbSales.Text<>'' then
qryH.SQL.Add('and sales like "%' cbSales.Text '%" ' );
case cbTCK.ItemIndex of
1: qryH.SQL.Add('and loc =''T''');
2: qryH.SQL.Add('and loc =''C''');
3: qryH.SQL.Add('and loc =''K''');
end;
if cbLine.ItemIndex>0 then
qryH.SQL.Add('and line =''' cbLine.Text '''');
case cbSort.ItemIndex of
0: qryH.SQL.Add('order by sales, type, job, hbl');//JOB HBL
1: qryH.SQL.Add('order by sales, guest , type, job , hbl');//³f¥D JOB
2: qryH.SQL.Add('order by sales, type, fn'); //..2004/07/12 «C¯è¥u¥ÎJob±Æ§Ç
3: qryH.SQL.Add('order by sales, type, line, fn');
end;
qryH.open; <-- 出現錯誤

根據我的使用, 這通常發生在 delphi 的計憶體不夠, 只要去掉不需要的應用程式, 就可以執行, 如果還不行, 就要關掉 delphi 再重新執行, 再不行, 就要重開機.

你是否有將TQuery 的 RequestLive 設為 true 呢?
capability not supported 似乎不容易聯想到記憶體不夠

------
~§~迷時師渡，悟了自渡~§~

===================引 用 energybody 文 章===================
小弟 trace delphi 6 的程式, 結果當 qryT.open 執行時, 出現 capability not supported 的錯誤訊息, 請問在何種情況下會出現這種錯誤.

begin
lblFWD.Caption:=qry1FWD.FieldByName('uniname').asString '[' cbFWD.text ']';
qrlabel20.Caption:='if~ȷ~Z';
qrlabel22.Caption:=xetaC;
qrsysdata1.Caption:='s:';
end;//..2004/05/21}
qryH.close;
qryH.SQL.clear;
qryH.SQL.Add('select * from thblrev');
qryH.SQL.Add('where fn is not null');
if cbSales.Text<>'' then
qryH.SQL.Add('and sales like "%' cbSales.Text '%" ' );
此行改成
qryH.SQL.Add('and sales like QuotedStr(%' cbSales.Text '%' );

以下依此類推，以後建議 sql中的條件字串都用 QuotedStr() 會比較好處理，也比較不會搞錯。

case cbTCK.ItemIndex of
1: qryH.SQL.Add('and loc =''T''');
2: qryH.SQL.Add('and loc =''C''');
3: qryH.SQL.Add('and loc =''K''');
end;
if cbLine.ItemIndex>0 then
qryH.SQL.Add('and line =''' cbLine.Text '''');
case cbSort.ItemIndex of
0: qryH.SQL.Add('order by sales, type, job, hbl');//JOB HBL
1: qryH.SQL.Add('order by sales, guest , type, job , hbl');//fD JOB
2: qryH.SQL.Add('order by sales, type, fn'); //..2004/07/12 CuJobƧ
3: qryH.SQL.Add('order by sales, type, line, fn');
end;
qryH.open; <-- 出現錯誤

------
Kadee/BigRed Ent.
www.tw165.com

你好:

BDE 從 5.2 版後, 已不再更新.....

看看你 Table "thblrev" 是不是有啥 "特別" 的欄位

可以改用 select F1,F2... 不要用 select *

小弟的 delphi 6 常常會在 qry.open 時會出現 capability not supported, 查 delphi 的論壇, 是 sql 的語法錯誤, 可是檢查 sql 語法確是正確的, 如果把應用程式少開一些, 並且在 qry.open 時設中斷點, 程式再執行就不會出現錯誤. 而且下次再執行時就不會再出現此錯誤.

資料庫最好每次執行完程式都要做連線關閉的動作

------
======================
昏睡~
不昏睡~
不由昏睡~

我猜(看po上來的部份)
'select * from thblrev'
'where fn is not null'
似乎並沒有預留各保留字的空格，是否會因為這樣把語法串起來後變成
select * from thblrevwhere fn is not nullorder by ......
結果有一些字可能變成組合後違反保留字的定義，
建議你把字串後都加入一個空白
'select * from thblrev '
'where fn is not null '

等一下,有一個問題要先釐清~~

您說的是 qryT.open 時會有錯誤,可是您列出的程式碼卻都是使用qryH.......

是筆誤還是?我猜應該是筆誤~~~

建議您將您的sql查詢逐一分解後測試,先用最單純的開始再逐一加上後面的查詢,若是語法錯誤我相信是很容易查得出來的.

減少記憶體 設中斷點就不會出錯 ->
這是一個印象式的概念誤導,在delphi會因為記憶體而造成您的adoquery使用出錯...我是沒遇到過,
除非您的程式很龐大所以有交叉影響(這就沒人幫得了你了),我想寫delphi的最大好處就是....不用太過擔心系統會對您的"程式碼"造成莫名的錯誤,
有錯大多是寫法或語法的問題,試試吧!

此程式很大, 大約要 40~50 M 的計憶體用量(包括虛擬計憶體).

檢查一下qryH是否有在其他地方或某個時間點"同時"使用,或是新增一個adoqyer1元件然後讓這裡獨立使用。

我是常常犯這樣的錯誤，總以為共用沒關係，但有時...就是會有衝突的時候，不然就不要用元件的方式，直接建立然後使用完釋放。

小弟有檢查過程式, 並沒有與其他程式共用, 用另一台電腦就可以執行, 末非是 BDE 有問題.