小弟想使用一個Tmemo寫下update SQL，update 資料
但出現”Table is read only ” error message. 為什麼呢？
coding 如下：

procedure TForm1.Button3Click(Sender: TObject);
begin
Query2.Close;
Query2.SQL.Clear;
Query2.SQL.Text:=Memo1.Text;／／內裡寫下Update staff set Apply_date='2006-02-25', PassNo='L659878' where Staff_ID='S000000002'

Query2.ExecSQL;
Query2.Close;
Query2.open;
end;

------
獨學無友則孤陋寡聞，相識滿天下能知天下事
小弟是來自香港的～～多多指教

編輯記錄

I think the "Query2.open" might be the cause of this error since you can not open a query with a update SQL.
===================引 用 chkkevin 文 章===================
小弟想使用一個Tmemo寫下update SQL，update 資料
但出現”Table is read only ” error message. 為什麼呢？
coding 如下：

procedure TForm1.Button3Click(Sender: TObject);
begin
Query2.Close;
Query2.SQL.Clear;
Query2.SQL.Text:=Memo1.Text;／／內裡寫下Update staff set Apply_date='2006-02-25', PassNo='L659878' where Staff_ID='S000000002'

Query2.ExecSQL;
Query2.Close;
Query2.open; <<=======This might be the problem===
end;

------
===波士頓夜未眠===
What a wonderful world!!
Jazz up the world with jazz!!
==================

When I am not programming...
you can find me here:
http://www.holy-war.de/EN/World3/bin/?advertiser=63190

不太清楚delphi的語法，把c++的方式套進去，有錯誤還煩請指正。
[code delphi]
procedure TForm1.Button3Click(Sender: TObject);
begin
Query2.Close;
Query2.Edit; //←好像要先加這行？試試看唄
Query2.SQL.Clear;
Query2.SQL.Text:=Memo1.Text;／／內裡寫下Update staff set Apply_date='2006-02-25', PassNo='L659878' where Staff_ID='S000000002'

Query2.ExecSQL;
Query2.Close; //←這兩行是不是多出來了呢？
Query2.open; //
end;
[/code]
===================引 用 chkkevin 文 章===================
小弟想使用一個Tmemo寫下update SQL，update 資料
但出現”Table is read only ” error message. 為什麼呢？
coding 如下：
[code delphi]
procedure TForm1.Button3Click(Sender: TObject);
begin
Query2.Close;
Query2.SQL.Clear;
Query2.SQL.Text:=Memo1.Text;／／內裡寫下Update staff set Apply_date='2006-02-25', PassNo='L659878' where Staff_ID='S000000002'

Query2.ExecSQL;
Query2.Close;
Query2.open;
end;
[/code]

編輯記錄

在Query2.ExecSQL;
Query2.Close;
及
Query2.open;
之間
加入一個 select 的 sql statement,
例 :
Query2.ExecSQL;
Query2.Close;
query2.sql.text := 'select * from staff where Staff_ID='S000000002';
Query2.open;

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

程式碼再怎麼看也沒用,因為staff.db這個檔案屬性被設成唯讀