DEAR ALL 請問小弟下了SQL指令 Query1.Close; Query1.SQL.Clear; Query1.SQL.Add('Select* from BGBILP, '); Query1.SQL.Add(' (select max(index_key) max_a from bgbilp) t2 '); Query1.SQL.Add('where bgbilp.index_key = t2.max_a '); Query1.ExecSQL; 接著要如何將值傳給STRING A1 謝謝 發表人 - shiungyi 於 2003/08/25 16:44:53

您好﹗    請問要傳哪個值﹖ Select *... 會回傳的欄位名是什么呢﹖ 另外﹐回傳查詢請使用><>===================== 努力,相信會獲得美麗! 忻晟 發表人 -

------
忻晟

hi, 若是有傳回資料的 query 時, 必須使用 Open Method 來傳回, 否則是無法取得資料的, 如下:    

Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('Select* from BGBILP, ');
Query1.SQL.Add(' (select max(index_key) max_a from bgbilp) t2 ');
Query1.SQL.Add('where bgbilp.index_key = t2.max_a ');
Query1.ExecSQL;
Query1.Open;
A1 := Query1.FieldByName('col_name').AsString;

將 Query1.ExecSQL; 改成 Query1.open;後 出現error message ProjectBIL1.exe raised exception calss EDBEngineError with message '不正確的使用關鍵字' Token:select Link Number:2'.Process stopped 這程式的用意是要在bgbilp table中找出index_key最大的一筆record 取得c_fvh_id,t_rele_time這兩個欄位的值 將資料傳至StoredProcedure

您好﹗    有些不了解您需要的SQL﹐能否描述得具體一些﹒ 因為僅從您以上描述的要求來看﹐似乎><>===================== 努力,相信會獲得美麗! 忻晟 發表人 -

------
忻晟

DEAL cashxin2002 依照您的改法 Query1.Close; Query1.SQL.Add('Select c_fvh_id, t_rele_time From bgbilp' ); Query1.SQL.Add('Where index_key = (Select Max(index_key) from bgbilp)'); Query1.Open; 出現MESSAGE為 ProjectBIL1.exe raised execption calss EDBEngineError with message'沒有支援此功能' Token: NESTED SELECT.Process stopped. 這程式的用意是要在CTC資料庫中的bgbilp table 找出index_key最大的一筆record 取得c_fvh_id,t_rele_time這兩個欄位的值 將資料傳至StoredProcedure 再以c_fvh_id,t_rele_time為key值 而StoredProcedure以此二欄位為key值 至V4Trx的ECLMFV1,ECLMFVH這兩table中搜尋資料 再回傳至DELPHI 謝謝 發表人 - shiungyi 於 2003/08/26 14:17:46

Hi.    I test this SQL in Access Database, It's ok? what's the kind of your Database?    Please add Query1.SQL.Clear; after Query1.Close; and try it again! ===================== 努力,相信會獲得美麗! 忻晟

------
忻晟

SQL Server2000 我在程式中加上Query1.SQL.SaveToFile('c:\insert10.txt'); 然後將此程式置於SQL Query Analyzer去run 結果正常 我想SQL語法應該是沒錯 可是在DELPHI RUN時 出現MESSAGE為 ProjectBIL1.exe raised execption calss EDBEngineError with message'沒有支援此功能' Token: NESTED SELECT.Process stopped.

Hi.    Please split your SQL and test them in Delphi. Then Looking for which SQL have this error message. 1. Query1.SQL.Add('Select c_fvh_id, t_rele_time From bgbilp'); 2. Query1.SQL.Add('Select Max(index_key) from bgbilp');    ===================== 努力,相信會獲得美麗! 忻晟

------
忻晟

select * from bgbilp where index_key in (select max(index_key) from bgbilp) try~~

Please split your SQL and test them in Delphi. Then Looking for which SQL have this error message. 1. Query1.SQL.Add('Select c_fvh_id, t_rele_time From bgbilp'); 2. Query1.SQL.Add('Select Max(index_key) from bgbilp'); USE NO1 正常 USE NO2 Error Message '資料表是唯讀的'

[quote] select * from bgbilp where index_key in (select max(index_key) from bgbilp) try~~ 依然出現"沒有支援此功能" 謝謝

Using BDE? Perhaps ADO is better... anyway I guess you need to use a pass through query... In your alias, set SQLQRYMODE to SERVER.

您好﹗    Query1.Close; Query1.Clear; Query1.SQL.Add('Select c_fvh_id, t_rele_time From bgbilp' ); Query1.SQL.Add('Where index_key = (Select Max(index_key) index_key from bgbilp)'); Query1.Open;    參考看看﹗    ===================== 努力,相信會獲得美麗! 忻晟

------
忻晟

[quote] Using BDE? Perhaps ADO is better... anyway I guess you need to use a pass through query... In your alias, set SQLQRYMODE to SERVER. 抱歉 我目前用的是DELPHI4.0 而且客戶堅持要用StoredProcedure

您好﹗    小弟比較贊同William版主的建議﹐使用ADO來得方便許多﹐可以擺脫BDE系統設定中那么多的參數﹒    ===================== 努力,相信會獲得美麗! 忻晟

------
忻晟

如果您用bde，请确认您的tdatabase已经正常连接数据库。 如果能够正确连接，那么 select * from bgbilp where index_key in (select max(index_key) from bgbilp) 或 select * from bgbilp where index_key =(select max(index_key) from bgbilp) 不会出现错误的，我试验过！ 用ado方法也测试过，至少说sql语法肯定没有问题；那么可能出现您的设置方面的不足，建议重新设置；最好能将您的机器重新启动一下哦！

I mean setting your DB alias for pass through query mode... I wonder whether you have a live query (i.e. RequestLive=True) or not? I don't think you can get a live query using nested select 

DEAR ALL 遵照sos_admin的指示重新設定後 程式已正常運作 發現是因Query1的RequestLive:=True 才導致錯誤 因為All multi-table queries return read-only result sets 只是小弟不太懂 既然return read-only result 為什麼RequestLive可以自行修改 謝謝