各位高手先進們請為小弟解惑一下.... 我了解使用TQuery元件若要讓其可編輯便要將其... RequestLive設定為true....方可使元件進入編輯模式... 但當RequestLive:=true時，即無法使用下列語法查詢資料... Tab_STA01.RequestLive:=False; Tab_STA01.Close; Tab_STA01.SQL.Clear; Tab_STA01.SQL.Add('Select * from STAPACK Where CDate >= "' ME_DateB.Text '" and CDate <= "' ME_DateE.Text '" order by CDATE'); Tab_STA01.Open; Tab_STA01.RequestLive:=True; 故我在查詢鍵上又加了上二列(上列黑體字)... 如此解決了無法查詢的問題... 但卻又出現了另一問題.... 當我下edit指令要更新欄位資料時卻出現... "不能對一個唯讀的dataset作修改" 修改的指令如下: Tab_STA01.Edit; Tab_STA01.FieldByName('CDATE').AsString := ME_Cdate.Text; Tab_STA01.FieldByName('IN_QTY').AsString := ME_INQTY.Text; Tab_STA01.FieldByName('QTY').AsString := ME_QTY.Text; Tab_STA01.FieldByName('USERS').AsString := ME_Users.Text; Tab_STA01.FieldByName('MAC_NO').AsString := ME_MAC.Text; Tab_STA01.FieldByName('J').AsString := ME_J.Text; Tab_STA01.FieldByName('K').AsString := ME_KA.Text; Tab_STA01.FieldByName('M').AsString := ME_MA.Text; Tab_STA01.FieldByName('Z').AsString := ME_Z.Text; Tab_STA01.Post; 真是奇怪我在查詢鍵的最後不是已下了 Tab_STA01.RequestLive:=True;了嗎???為何還是算唯讀狀態嗎??? 煩請各位前輩高手指導~~~~

requestlive 須下在 open 之前

可不可以查詢跟你Tab_STA01.RequestLive 沒有關係 而是要寫在open之前 天行健 君子當自強不息~~@.@

------
天行健
君子當自強不息~~@.@

謝謝大大指導.... 但當我把Tab_STA01.RequestLive:=True; 搬到open之前時檔我設定好條件按下查詢鈕時... 卻出現下列錯誤訊息耶~~~"找不到物件" 查詣鈕程式碼變更為如下: Tab_STA01.RequestLive:=False; Tab_STA01.Close; Tab_STA01.SQL.Clear; Tab_STA01.SQL.Add('Select * from STAPACK Where CDate >= "' ME_DateB.Text '" and CDate <= "' ME_DateE.Text '" order by CDATE'); Tab_STA01.RequestLive:=True; <===本行變更 Tab_STA01.Open;

錯誤訊息停在哪一行 天行健 君子當自強不息~~@.@ 發表人 - T.J.B 於 2002/12/16 17:30:21 發表人 - T.J.B 於 2002/12/16 17:37:40

------
天行健
君子當自強不息~~@.@

Tab_STA01.Open; <===執行到此行時發生錯誤~~~

Tab_STA01.SQL.Add('Select * from STAPACK Where CDate >= "' ME_DateB.Text '" and CDate <= "' ME_DateE.Text '" order by CDATE');

上行裡的雙引號改成用兩個單引號試試。 -- Everything I say is a lie.

你檢查一下你SQL語法裡面用到的元件名稱 跟你所用的元件名稱是否符合 天行健 君子當自強不息~~@.@

------
天行健
君子當自強不息~~@.@

你用的 DataBase 是哪一種 "STAPACK" 是 Table ? View ? Login User 是否有 Insert/Update/Delete "STAPACK" 的權限 ? 如果確認權限無問題 SQL 中給定 STAPACK 的全名(大小寫要正確) ( Oracle: [UserName].STAPACK ; MSSQL/SYBASE : [DatabaseName].dbo.STAPACK ) 發表人 - Mickey 於 2002/12/17 10:45:50 發表人 - Mickey 於 2002/12/17 11:15:00

感謝各位大大的熱情回應.... 我使用的環境為:98se,DELPHI3,NT4,SQL6.5 當我的FROM上的[查詢]鈕為下列程式碼時,執行上完全沒有任何錯誤, 但一但TQUERY進入EDIT模式就會出現"不能對一個唯讀的dataset作修改"的錯誤訊息~~~~ Tab_STA01.RequestLive:=False; Tab_STA01.Close; Tab_STA01.SQL.Clear; Tab_STA01.SQL.Add('Select * from STAPACK Where CDate >= "' ME_DateB.Text '" and CDate <= "' ME_DateE.Text '" order by CDATE'); Tab_STA01.Open; Tab_STA01.RequestLive:=True; PS:STAPACK--->為實際存在資料庫內的TABLE.... 以T.J.B版主的建議我將[查詢]鈕的程式碼改為下列時... 一按查詢鈕執行程式碼時,卻出現下列錯誤訊息~~~"找不到物件" Tab_STA01.RequestLive:=False; Tab_STA01.Close; Tab_STA01.SQL.Clear; Tab_STA01.SQL.Add('Select * from STAPACK Where CDate >= "' ME_DateB.Text '" and CDate <= "' ME_DateE.Text '" order by CDATE'); Tab_STA01.RequestLive:=True; <===本行更改在OPEN之前~~~ Tab_STA01.Open; 還是找不到問題的菜鳥留~~~~

Extracted from Delphi help:    A true value for RequestLive is a request for an updatable result set. It does not guarantee that the database back-end will return an updatable result set. See the documentation for the specific database system used for the criteria needed for a live query result set. If the database cannot return an updatable result set, a read-only result set is returned instead. This is done automatically and usually without error. Some database systems may raise an exception on requests for live result sets that cannot be fulfilled. Check the success of the request by inspecting the dataset component’s CanModify property. So the dataset may not be editable even after setting RequestLive to True.

sql 拿到 SQL Explorer 上 option -> query -> Request Live query Checked 執行看看

RICH777 你好 根據你的錯誤訊息 我可以跟你說明一下 但一但TQUERY進入EDIT模式就會出現"不能對一個唯讀的dataset作修改"的錯誤訊息~~~~ 這是因為你沒有去改變query的存取狀態 所以不能對一個唯讀的dataset作修改 假設你要新增 舉例如下 if not( query1.state in [dsinsert] ) then <---判斷是否在新增模式 query1.insert; <-----進入新增狀態 //處理你寫入欄位的動作 query1.POST; <--- 回存後進入瀏覽模式 //------------------------------------------------------- 假設你要修改 舉例如下 if not( query1.state in [dedit] ) then <---判斷是否在修改模式 query1.EDIT ; <----進入修改狀態 //處理你寫入欄位的動作 query1.POST; <--- 回存後進入瀏覽模式 天行健 君子當自強不息~~@.@ 發表人 - T.J.B 於 2002/12/17 15:48:16 發表人 - T.J.B 於 2002/12/17 15:53:54 發表人 - T.J.B 於 2002/12/17 16:17:39

------
天行健
君子當自強不息~~@.@

引言: 感謝各位大大的熱情回應.... 我使用的環境為:98se,DELPHI3,NT4,SQL6.5 當我的FROM上的[查詢]鈕為下列程式碼時,執行上完全沒有任何錯誤, 但一但TQUERY進入EDIT模式就會出現"不能對一個唯讀的dataset作修改"的錯誤訊息~~~~ Tab_STA01.RequestLive:=False;//將這行移到close之後 Tab_STA01.Close; Tab_STA01.SQL.Clear; Tab_STA01.SQL.Add('Select * from STAPACK Where CDate >= "' ME_DateB.Text '" and CDate <= "' ME_DateE.Text '" order by CDATE'); Tab_STA01.Open; Tab_STA01.RequestLive:=True; PS:STAPACK--->為實際存在資料庫內的TABLE.... 以T.J.B版主的建議我將[查詢]鈕的程式碼改為下列時... 一按查詢鈕執行程式碼時,卻出現下列錯誤訊息~~~"找不到物件" Tab_STA01.RequestLive:=False; Tab_STA01.Close; Tab_STA01.SQL.Clear; Tab_STA01.SQL.Add('Select * from STAPACK Where CDate >= "' ME_DateB.Text '" and CDate <= "' ME_DateE.Text '" order by CDATE'); Tab_STA01.RequestLive:=True; <===本行更改在OPEN之前~~~ Tab_STA01.Open; 還是找不到問題的菜鳥留~~~~

@@~~飛翔在天際的精靈~~@@

william 大大所截的 help 中已說明 即使 RequestLive 屬性設為 True 並不保證 TQuery 所 Select 的 Dataset 就可增/刪/改 最好的方法就是看能不能用 ADO  或者 TQuery 搭配 TUpdateSQL 元件來做異動 Dataset 的動作    -- Everything I say is a lie.

RICH777 你好 補充一點 既然用的是bde的tquery元件 建議你把RequestLive屬性直接設定在元件上 然後把程式碼針對RequestLive的部分拿掉 較沒有問題 天行健 君子當自強不息~~@.@

------
天行健
君子當自強不息~~@.@

以前我也遇过这样的问题，后来用了缓冲方式。将query的cachedupdated设为true,在POst之后，加上query.applyupdate.

hagar 版主說的有道理, MSSQL/Sybase 有一個 Database option "quoted_identifier" 當該 option 設定為 on (default 好像是 off)時, Sql Paser 會嘗試將雙引號視為物件名稱識別, 建議你改 SQL: 'Select * from STAPACK Where CDate >= '#39 ME_DateB.Text #39' and CDate <= '#39 ME_DateE.Text #39' order by CDATE' 試試看 發表人 - Mickey 於 2002/12/18 10:03:55

感謝各位大大的回應...但問題依然存在....可能我的表達能力不好... 所以我再說一次.... 因我希望用同一個TQuery元件同時可使用[修改]及[查詢]的功能~~~ 所以我在設計時期將元件的RequestLive:=true 並在[查詢]鈕加入下列程式碼,並可正常執行~~~ Tab_STA01.RequestLive:=False;<---如沒加本行會出現"找不到物件" Tab_STA01.Close; Tab_STA01.SQL.Clear; Tab_STA01.SQL.Add('Select * from STAPACK Where CDate >= "' ME_DateB.Text '" and CDate <= "' ME_DateE.Text '" order by CDATE'); Tab_STA01.Open; 而在[修改]的程式碼如下: Tab_STA01.Edit; Tab_STA01.FieldByName('CDATE').AsString := ME_Cdate.Text; Tab_STA01.FieldByName('IN_QTY').AsString := ME_INQTY.Text; Tab_STA01.FieldByName('QTY').AsString := ME_QTY.Text; Tab_STA01.FieldByName('USERS').AsString := ME_Users.Text; Tab_STA01.FieldByName('MAC_NO').AsString := ME_MAC.Text; Tab_STA01.FieldByName('J').AsString := ME_J.Text; Tab_STA01.FieldByName('K').AsString := ME_KA.Text; Tab_STA01.FieldByName('M').AsString := ME_MA.Text; Tab_STA01.FieldByName('Z').AsString := ME_Z.Text; Tab_STA01.Post; Tab_STA01.CommitUpdates; 今發生錯誤主要是在於[修改]... 若我一開始沒執行過[查詢]而以[修改]資料並沒有任何的錯誤訊息 但我先執行過[查詢]鈕的程式碼後 再按修改鈕便會出現"不能對一個唯讀的dataset作修改" 故我就聯想到是不是因為RequestLive沒設為Ture的關係... 所以我將[查詢]的程式碼改為: Tab_STA01.RequestLive:=False; Tab_STA01.Close; Tab_STA01.SQL.Clear; Tab_STA01.SQL.Add('Select * from STAPACK Where CDate >= "' ME_DateB.Text '" and CDate <= "' ME_DateE.Text '" order by CDATE'); Tab_STA01.Open; Tab_STA01.RequestLive:=True;<===多加了本行 查詢的功能還是一樣可執行沒錯誤訊息 但一樣的在我先執行過[查詢]鈕的程式碼後 再按修改鈕便會出現"不能對一個唯讀的dataset作修改" 依照大大的回答是需將"Tab_STA01.RequestLive:=True"加在open之前.... 但若將[查詢]鈕的程式碼改為 Tab_STA01.RequestLive:=False; Tab_STA01.Close; Tab_STA01.SQL.Clear; Tab_STA01.SQL.Add('Select * from STAPACK Where CDate >= "' ME_DateB.Text '" and CDate <= "' ME_DateE.Text '" order by CDATE'); Tab_STA01.RequestLive:=True;<===更改了本行的位置 Tab_STA01.Open; 則當我按下[查詢]鈕執行程式碼時會出現"找不到物件"的錯誤訊息~~~ 由以上判斷TQuery無法執行 [查詢]的程式碼是因為RequestLive=True 而無法執行 [修改]模式是因為RequestLive=False 但在執行時期又無法將RequestLive=True 所以[修改]鈕的程式碼便會在執行過[查詢]後便會出現錯誤訊息??? 還是RequestLive何處設定才對呢??? 我使用的環境為:98se,DELPHI3,NT4,SQL6.5

1.建立臨時表 數據輸入是開發數據庫程序的必然環節。在Client/Server結構中，客戶端可能要輸入一批數 據后，再向服務器的后台數據庫提交，這就需要在本地（客戶端）建立臨時數據表來存儲用戶輸 入的數據，待提交后，清除本地表數據。這種方法的好處是：提高輸入效率，減小網絡負擔。 由于用戶一次輸入的數據量一般情況下較小（不會超過几百條記錄），所以臨時表可以建立 在內存中，這樣處理速度較快。 方法1：使用查詢控件(TQuery) 第1步：在窗體上放上查詢控件(TQuery)，設置好所連接的數據表。 第2步：使TQuery. CachedUpdates=True; TQuery. RequestLive=True 第3步：在原有的SQL語句后加入一條Where子語句，要求加入這條Where子語句后SQL 查詢結果為空。 例如： SELECT Biolife.〞Species No〞, Category, Common_Name, Biolife.〞Species Name〞, Biolife. 〞Length (cm)〞, Length_In, Notes, Graphic FROM 〞biolife.db〞 Biolife where Biolife.Category=′A′ and Biolife.Category=′B′ 這樣臨時表就建立完成了。 方法2：使用代碼創建臨時表 代碼如下： function CreateTableInMemory(const AFieldDefs:TFieldDefs): TDataSet; var TempTable:TClientDataSet; begin TempTable:=nil; Result:=nil; if AFieldDefs<>nil then begin try TempTable:=TClientDataSet.Create(Application); TempTable.FieldDefs.Assign(AFieldDefs); TempTable.CreateDataSet; Result:=(TempTable as TDataSet); Except if TempTable<>nil then TempTable.Free; Result:=nil; raise; end end end; 在程序中按如下方法使用： procedure TForm1.Button1Click(Sender: TObject); var ADataSet:TDataSet; begin ADataSet:=TDataSet.Create(Self); with ADataSet.FieldDefs do begin Add(′Name′,ftString,30,False); Add(′Value′,ftInteger,0,False); end; with DataSource1 do begin DataSet:=CreateTableInMemory(ADataSet.FieldDefs); DataSet.Open; end; ADataSet.Free; end; 臨時表創建完成。 方法1使用簡單，但由于利用查詢控件，清空數據時需要查詢服務器后台數據庫，所以速度 稍慢，而且不適用于臨時表中各個字段由數個數據表的字段拼湊而成的情況。方法2適用范圍廣、 速度快，但需要編寫代碼。（代碼中TFieldDefs的使用方法十分簡單，見Delphi的聯機幫助）。 2.配置數據引擎（BDE、SQL Link） 有關數據庫程序分發時，需要攜帶數據引擎（BDE、SQL Link），并且在客戶端安裝完程序 后還需要配置數據引擎，如用戶名（username）、密碼（Password）等等。如果手工配置的話， 工作量比較大（根據客戶機數量而定）。而InstallShield For Delphi又好像沒有這方面的選項，其 實InstallShield For Delphi可以做到，在生成安裝程序的目錄里有一個＊.iwz的文本文件，只要 在[IDAPI Alias]片段中手工加入即可。 例如： [IDAPI Alias] usesname=SYSDBA password=masterkey 安裝程序后數據引擎自動配置完畢。 3.在InterBase數據庫中使用函數 程序員可能在用InterBase作為后台數據庫時，會為其提供的函數過少而感到不方便（只有 四個），無法方便地編寫出復雜的存儲過程。InterBase本身無法編寫函數，但它可以使用外部函 數（調用DLL中的函數）。下例中說明如何在InterBase 中聲明SUBSTR函數。 DECLARE EXTERNAL FUNCTION SUBSTR CSTRING(80), SMALLINT, SMALLINT RETURNS CSTRING(80) ENTRY_POINT 〞IB_UDF_substr〞 MODULE_NAME 〞ib_udf〞 其中：MODULE_NAME為DLL的名稱，ENTRY_POINT為函數名。 聲明后便可以使用，例如： select SUBSTR(country) from country

應該是這樣 'Select * from STAPACK Where CDate >= ' #39 ME_DateB.Text #39 ' and CDate <= ' #39 ME_DateE.Text #39 ' order by CDATE';

引言: hagar 版主說的有道理, MSSQL/Sybase 有一個 Database option "quoted_identifier" 當該 option 設定為 on (default 好像是 off)時, Sql Paser 會嘗試將雙引號視為物件名稱識別, 建議你改 SQL: 'Select * from STAPACK Where CDate >= '#39 ME_DateB.Text #39' and CDate <= '#39 ME_DateE.Text #39' order by CDATE' 試試看 發表人 - Mickey 於 2002/12/18 10:03:55

Hi 您好 我的經驗是出在 Order By 這個指令, 當你用到 Order By 時, 就不能對所查詢出來的資料直接修改 必須把你要修改的資料, 以搜尋主編號的方式 找到'唯一'一筆RecordSet 此時才可使用 Edit 進行修改 像是 banson1716 兄所講的, 是臨時數據表 "向服務器的后台數據庫提交，這就需要在本地（客戶端）建立[臨時]數據表來存儲用戶輸" 入的數據 試試看喔

就如同greentop講的一樣，問題是出在Order By這個指令。 您有兩個解決方法：(RequestLive = True不要寫在程式裹，直接在屬性表設為True) (1)將Select語法的Order By拿掉。 (2)若堅持用Order By,則將TQuery的CashedUpdates設為True,搭配UpdatSQL元件，即可在同一個TQuery作查詢及更新 您可以試試看，有問題再問吧!

------
~小弟淺見，參考看看~

Tab_STA01.RequestLive:=False; Tab_STA01.Close; Tab_STA01.SQL.Clear; Tab_STA01.SQL.Add('Select * from STAPACK Where CDate >= "' ME_DateB.Text '" and CDate <= "' ME_DateE.Text '" order by CDATE'); Tab_STA01.Open; Tab_STA01.Active := False; <---試試加這2行 Tab_STA01.RequestLive:=True; Tab_STA01.Active := True; <----------