線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1401
推到 Plurk!
推到 Facebook!

dbgrid通过ado显示access中日期型字段的问题!

尚未結案
maxbo
一般會員


發表:11
回覆:15
積分:5
註冊:2003-05-11

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-10-30 20:15:08 IP:211.96.xxx.xxx 未訂閱
环境:delphi6,access xp。 access中有一表中的字段为“日期/时间”型,格式为“长时间”,也就是用hh:mm:ss的方式表示时间。通过ADO来提取access数据库中资料,用dbgrid显示出来,在显示该字段时,每一个记录前面都要加上"1899-12-30"这样一个日期,而表中该字段只输入了时间,而没有日期。不知如何处理?请各位多多指教!
hagar
版主


發表:143
回覆:4056
積分:4445
註冊:2002-04-14

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-10-30 21:07:33 IP:202.39.xxx.xxx 未訂閱
設定該 TField.DisplayFormat := 'hh:nn:ss'; 即可 --- Everything I say is a lie.
maxbo
一般會員


發表:11
回覆:15
積分:5
註冊:2003-05-11

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-10-30 22:43:00 IP:211.96.xxx.xxx 未訂閱
你这样,只能是在设计阶段把adoquery的field设好!那要在运行阶段,如何处理?
solnone
中階會員


發表:2
回覆:97
積分:69
註冊:2003-05-06

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-10-31 01:21:49 IP:203.66.xxx.xxx 未訂閱
也是一樣的做法 var f: TDateTimeField; begin f := TDateTimeField(ADODataSet1.FieldByName('CREATETIME')); f.DisplayFormat := 'hh:nn:ss'; // ..... end;
maxbo
一般會員


發表:11
回覆:15
積分:5
註冊:2003-05-11

發送簡訊給我
#5 引用回覆 回覆 發表時間:2003-10-31 23:16:58 IP:211.96.xxx.xxx 未訂閱
那如何在dbgrid中控制显示呢?
solnone
中階會員


發表:2
回覆:97
積分:69
註冊:2003-05-06

發送簡訊給我
#6 引用回覆 回覆 發表時間:2003-11-01 01:39:55 IP:203.66.xxx.xxx 未訂閱
也是一樣的做法 TDateTimeField( DBGrid.Columns.Items[n].Field ).DisplayFormat := 'hh:nn:ss';
maxbo
一般會員


發表:11
回覆:15
積分:5
註冊:2003-05-11

發送簡訊給我
#7 引用回覆 回覆 發表時間:2003-11-01 13:17:57 IP:211.96.xxx.xxx 未訂閱
还是不行!我的代码如下: procedure TForm1.queryBitBtnClick(Sender: TObject); var    temp:string; begin      TdateTimeField(dailyDBGrid.Columns.items[1].field).DisplayFormat:='hh:nn:ss';   运行到此处出错 temp:='Select * from daily where RQ>=' '#' datetostr(sdatetimepicker.Date) '#'; temp:=temp ' and RQ<=' '#' datetostr(edatetimepicker.Date 1) '#'; temp:=temp ' order by rq,sj'; ADOQuerydaily.Close; ADOQuerydaily.SQL.Clear; ADOQuerydaily.SQL.Add(temp); adoquerydaily.Prepared; ADOQuerydaily.Open; ADOQuerydaily.Last; end;
solnone
中階會員


發表:2
回覆:97
積分:69
註冊:2003-05-06

發送簡訊給我
#8 引用回覆 回覆 發表時間:2003-11-03 01:41:07 IP:203.66.xxx.xxx 未訂閱
要寫在 open 之後 ADOQuerydaily.Open; TdateTimeField(dailyDBGrid.Columns.items[1].field).DisplayFormat:='hh:nn:ss';
maxbo
一般會員


發表:11
回覆:15
積分:5
註冊:2003-05-11

發送簡訊給我
#9 引用回覆 回覆 發表時間:2003-11-03 10:50:38 IP:211.96.xxx.xxx 未訂閱
多谢solnone!! 问题解决!正如solnone所说的那样!
系統時間:2024-06-02 21:33:24
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!