全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1799
推到 Plurk!
推到 Facebook!

為什么不能使用SQLQuery1.RecordCount?

缺席
maysoft
一般會員


發表:4
回覆:3
積分:1
註冊:2007-03-06

發送簡訊給我
#1 引用回覆 回覆 發表時間:2007-04-09 19:25:47 IP:222.208.xxx.xxx 訂閱
我用SQLQuery1查詢數據後,需要獲得查詢出的記錄數,結果使用SQLQuery1.RecordCount,程式運行時提示:[0x0005] Operation Not Supported。去掉獲得SQLQuery1.RecordCount這句後就正常了。為什么不能使用?
Stallion
版主


發表:52
回覆:1600
積分:1995
註冊:2004-09-15

發送簡訊給我
#2 引用回覆 回覆 發表時間:2007-04-09 21:03:49 IP:211.22.xxx.xxx 未訂閱
我沒有辦法猜到為什麼?
為什麼你不列出關鍵部分的程式碼呢?
===================引 用 文 章===================
我用SQLQuery1查詢數據後,需要獲得查詢出的記錄數,結果使用SQLQuery1.RecordCount,程式運行時提示:[0x0005] Operation Not Supported。去掉獲得SQLQuery1.RecordCount這句後就正常了。為什么不能使用?
maysoft
一般會員


發表:4
回覆:3
積分:1
註冊:2007-03-06

發送簡訊給我
#3 引用回覆 回覆 發表時間:2007-04-10 13:13:08 IP:222.208.xxx.xxx 訂閱

procedure TForm1.Button2Click(Sender: TObject);
begin
SQLQuery1.close;
SQLQuery1.SQL.text:=select * from table_1;
SQLQuery1.Active:=True;
if SQLQuery1.RecordCount=1 then
begin

ShowMessage('已存在');
end;
end;

就這么簡單的代碼啊!編譯不會髮生錯誤,但是運行時會報錯!去掉SQLQuery1.RecordCount=1就OK了

Stallion
版主


發表:52
回覆:1600
積分:1995
註冊:2004-09-15

發送簡訊給我
#4 引用回覆 回覆 發表時間:2007-04-10 19:35:22 IP:211.22.xxx.xxx 未訂閱
procedure TForm1.Button2Click(Sender: TObject);
begin
//前面沒有看見連結資料庫的程式碼,當作你正確連結了!
SQLQuery1.Close;
SQLQuery1.SQL.Clear;
//SQLQuery1.SQL.Add('select * from table_1'); //這個SQL陳述式不是用來查詢資料是否存在的正確查詢吧!而且資料庫伺服器太累了
SQLQuery1.SQL.Add('select 某欄位 from table_1 WHERE 某欄位='' Edit1.Text ''''); //範例
SQLQuery1.Open;
if SQLQuery1.RecordCount > 1 then
begin
ShowMessage('已存在');
end;
end;


maysoft
一般會員


發表:4
回覆:3
積分:1
註冊:2007-03-06

發送簡訊給我
#5 引用回覆 回覆 發表時間:2007-04-11 01:30:03 IP:220.166.xxx.xxx 訂閱
我主要是想取得有多少記錄!目前我隻有用IsEmpty來判斷是否有記錄,而不知道有多少條
Stallion
版主


發表:52
回覆:1600
積分:1995
註冊:2004-09-15

發送簡訊給我
#6 引用回覆 回覆 發表時間:2007-04-12 00:17:46 IP:211.22.xxx.xxx 未訂閱
SQLQuery1.SQL.Add('Select COUNT(*) AS TOTAL From Table_1 WHERE 1=1');
TotalRecord :=
SQLQuery1.FieldByName('Total').AsInteger;
chih_kuan
中階會員


發表:38
回覆:82
積分:54
註冊:2003-02-20

發送簡訊給我
#7 引用回覆 回覆 發表時間:2007-05-04 15:51:03 IP:220.228.xxx.xxx 訂閱
Try
...
...
..

SQLQuery1.Open ==>大都使用於 Select
SQLQuery1.ExecSQL ==>大都使用於 Insert 、Update、Delete


Finally
SQLQuery1.Active := False;
End;
------
叔叔有練過,初學者不要學。
系統時間:2024-05-18 21:24:59
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!