调用ParamByname时出错,难道这个方法不支持 AsDate和AsDatetime? |
|
答題得分者是：mypigbaby
|
|
waytounknow
一般會員   發表：4 回覆：7 積分：2 註冊：2007-08-11 發送簡訊給我 |
------------------------------------------------------------------------------程式码---------------------------------------------
.... dtpOrg: TDateTimePicker; dtpNow: TDateTimePicker; .... procedure TForm1.Button1Click(Sender: TObject); var dDate : TDate; dDate2 : TDate; aParam : TParam; begin dDate2 := dtpOrg.DateTime; dDate := IncDay(dDate2,seDays.Value); dtpNow.Date := dDate; with DM.sqlq do begin sql.Clear; close; sql.Add('update member set mb_days=:days,mb_end_date=:EndDate where mb_code=:mbcode'); ParamByName('mbcode').AsString := Trim(edtMCode.Text); paramByName('EndDate').AsDateTime := dtpNow.DateTime; showmessage(paramByName('EndDate').AsString); paramByName('days').AsInteger := seDays.Value; ExecSQL; end; end; ------------------------------------------------------------------------------程式码--------------------------------------------- 程式码如上,我所操作的数据库为Oracle8.i. .当我通过ParamByname()参数Enddate传递值时,程序就会报Unknow data type (11)(D:\Projects\Delphi\DBx\Source\deexp.pas,line 859)' .这是为何啊,我的电脑根本就没有D盘啊.那位大大知道,劳请告之.谢谢
------
My way .... way to unknow |
|
mypigbaby
高階會員   發表：11 回覆：168 積分：155 註冊：2006-07-20 發送簡訊給我 |
ParamByName('mbcode').AsString := Trim(edtMCode.Text);
paramByName('EndDate').AsDateTime := dtpNow.DateTime; 把這二行改為 ParamByName('mbcode').VALUE := Trim(edtMCode.Text); paramByName('EndDate').value := dtpNow.DateTime; 試看看 而且 你的寫法也怪怪的 with DM.sqlq do begin <--在這段裡面,所有的語法不是都會先加上DM.sqlq showmessage(paramByName('EndDate').AsString); <--這樣會被compiler看成 .DM.sqlqshowmessage(paramByName('EndDate').AsString)
編輯記錄
mypigbaby 重新編輯於 2008-06-03 14:08:11， 註解 無‧
|
|
waytounknow
一般會員 發表：4 回覆：7 積分：2 註冊：2007-08-11 發送簡訊給我 |
===================引 用 mypigbaby 文 章=================== ParamByName('mbcode').AsString := Trim(edtMCode.Text); paramByName('EndDate').AsDateTime := dtpNow.DateTime; 把這二行改為 ParamByName('mbcode').VALUE := Trim(edtMCode.Text); paramByName('EndDate').value := dtpNow.DateTime; 試看看 而且 你的寫法也怪怪的 with DM.sqlq do begin <--在這段裡面,所有的語法不是都會先加上DM.sqlq showmessage(paramByName('EndDate').AsString); <--這樣會被compiler看成 .DM.sqlqshowmessage(paramByName('EndDate').AsString) mypigbaby 你的方法我试了一下,行不通.我通过SQLMonitor 看到,Delphi并没有将传递进去的参数转换成日期类型.只是传递了一个double类型的数字.因此执行SQL的时候会报错. 找到了一种解决方法 http://delphi.ktop.com.tw/board.php?fid=66&tid=27625
------
My way .... way to unknow
編輯記錄
waytounknow 重新編輯於 2008-06-10 19:33:56， 註解 無‧
|
發表時間：2008-06-03 12:39:48
IP:118.146.xxx.xxx 訂閱
系統時間：2024-05-06 19:58:28
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |