TQuery 想新增一筆資料但是卻無法新增 我覺得應該是日期的關係 我開了一個 TEMP.db 的資料庫規格入下 ----------------------------------- Field Name Type Orderno Number Custno Number Itemno Number SaleDate Date ----------------------------------- 程式: ------------------------- ESaleDate.text := '1988/12/23'; query1.Close; query1.SQL.Clear; query1.Params.Clear; query1.SQL.Add('insert into temp (orderno,custno,Itemno,SaleDate) VALUES(1003,201,2002,' strtodate(ESaleDate.text) ') '); query4.ExecSQL; ---------------------------------- 但是卻無法存檔 好像是日期問題 請問各位有誰知道如何 寫可以讓它能存進去

同樣的問題已不知出現幾百遍了 query1.SQL.Add('insert into temp (orderno,custno,Itemno,SaleDate) VALUES(1003,201,2002,' strtodate(ESaleDate.text) ') '); 如此寫,是直接送給Database driver解讀, 日期一定是以字串方式傳入, 至於格式須看資料庫而定, 可能是如'2002/12/16'或'12/16/2002',也可能更麻煩,你可以用上兩方式先試試 改成VALUES(1003,201,2002,' QuotedStr(ESaleDate.text) ') ');看看 可以用Paramater方式改寫就可以直接用DateTime,如何用paramter, 找一找吧

建議我 Parameter 做 ... 另外, 最後一行的 Query4 ... 也應該用 Query1 吧

請問用 Parameter 需如何設定 不好意思剛接觸 Delphi 所以問的都很基礎~~~~

引言: ESaleDate.text := '1988/12/23'; query1.Close; query1.SQL.Clear; query1.Params.Clear; query1.SQL.Add('insert into temp (orderno,custno,Itemno,SaleDate) VALUES(1003,201,2002,' strtodate(ESaleDate.text) ') '); query4.ExecSQL;

改寫 ESaleDate.text := '1988/12/23'; query1.Close; query1.SQL.Clear; query1.Params.Clear; query1.SQL.Add('insert into temp (orderno,custno,Itemno,SaleDate) VALUES(1003,201,2002,:DATE) '); query1.ParamByName('DATE').ASSTRING:=ESaleDate.text; query1.ExecSQL; :DATE-->變數所以有冒號 DATE-->Parameter裡的指定名稱在SQL.ADD()裡= :DATE

謝謝各位的執導~~~ 結果發現是Paradox 的資料庫日期格式是 '05/23/1989' 但是卻顯示 '1989/05/23' 只要以上面的格式丟入即可~~~

其實會事發生這樣的問題,應該在於外國人表示日期的方式為 mmddYYYY 而在我們台灣 local 的表示方法為 YYYmmdd,因此才會發生顯示和輸入樣式不同.