[求助]怎麼把時間塞到資料庫裡面?

[lewislau]

@@

[cadmus]

嗯..總之呢..SQL的datetime型態欄位..
要輸入時有點囉唆..我也是用mio這個方法..
先看哪一種字串可以丟進去..
然後再找可以把時間轉成這類字串的方法..
時間取出也沒有問題囉..thx all!!
mio果然是高手..

[mio]

自己兜成一個字串塞進去看看

如:

"020605 10:30:50"

表示2002年6月5日 10點30分50秒

[Niko]

sqltext = "insert into REQ (req_date,emp_no,requester,qst_type,qst_desc,meno) values ("
sqltext = sqltext & "'"&now_time&"',"


上面是我以前的練習.會帶入insert的時間,試試這個 now_time看看能不能解決你的問題.

這個抓進資料庫以後值都是"1900-01-01 00:00:00.000"

剛又試了一下那個aps,存進去的值有日期跟時間...
可能是資料形態的問題吧!!
不過恭喜你找到方法了...(趁機也偷學了一招)

[cadmus]

strSQL1 = "UPDATE NWLIST SET TIME1 = '"& FormatDateTime(Now,2) + " " + FormatDateTime(Now,4) & "'"

這樣就可以填進去了..型式是:
2002-06-05 17:16:00.000
不過不知道取出來會不會有問題..
唉唉..

[cadmus]

stringA="下午[空格]16:00"
就直接判斷空格
去抓空格後面的所有數字.也就是16:00
我的話可能會這樣做..

btw.
vb裡面沒有一個可以show出一個類似"絕對時間"的函數嗎?
我手邊沒書.
不過perl就有..
用了time..顯示的是從1900年到now的"所有秒數"
一大串數字..然後再經由另外一個內定函數就可以取得分..秒..etc..

這個聽不懂啦..

[cadmus]

sqltext = "insert into REQ (req_date,emp_no,requester,qst_type,qst_desc,meno) values ("
sqltext = sqltext & "'"&now_time&"',"


上面是我以前的練習.會帶入insert的時間,試試這個 now_time看看能不能解決你的問題.

這個抓進資料庫以後值都是"1900-01-01 00:00:00.000"

[cadmus]

FormatDateTime(Date[,NamedFormat])
FormatDateTime 函數需要兩個參數
第一個參數: 欲格式化的日期運算式。
第二個參數: 以數值表示所使用的日期/時間格式。若省略此引數，則使用 vbGeneralDate 。
第二個參數有下列的設定值：
vbGeneralDate 0
顯示日期和(或)時間。將以簡短日期格式顯示日期，以完整時間顯示時間。可以兩者皆顯示。
vbLongDate 1 以系統地區的完整日期格式設定值顯示日期。
vbShortDate 2 以系統地區的簡短日期格式設定值顯示日期。
vbLongTime 3 以系統地區的時間格式設定值顯示時間。
vbShortTime 4 以24小時制格式( (hh:mm)顯示時間。
試看看有沒有哪一種格式沒有空格的

這4個沒有可以同時加入日期和時間的啊..
而且其中0 和1 的型式都不能加入..
現在單獨輸入2和4的型式都沒有問題..
但是我想把兩個一起寫入就會造成:
char 資料型別轉換成 datetime 資料型別時，產生超出範圍的 datetime 值。
><..好難過啦..

[Niko]

sqltext = "insert into REQ (req_date,emp_no,requester,qst_type,qst_desc,meno) values ("
sqltext = sqltext & "'"&now_time&"',"


上面是我以前的練習.會帶入insert的時間,試試這個 now_time看看能不能解決你的問題.

[mio]

FormatDateTime(Date[,NamedFormat])

FormatDateTime 函數需要兩個參數

第一個參數: 欲格式化的日期運算式。

第二個參數: 以數值表示所使用的日期/時間格式。若省略此引數，則使用 vbGeneralDate 。

第二個參數有下列的設定值：

vbGeneralDate 0
顯示日期和(或)時間。將以簡短日期格式顯示日期，以完整時間顯示時間。可以兩者皆顯示。
vbLongDate 1 以系統地區的完整日期格式設定值顯示日期。
vbShortDate 2 以系統地區的簡短日期格式設定值顯示日期。
vbLongTime 3 以系統地區的時間格式設定值顯示時間。
vbShortTime 4 以24小時制格式( (hh:mm)顯示時間。


試看看有沒有哪一種格式沒有空格的

[Toy]

stringA="下午[空格]16:00"
就直接判斷空格
去抓空格後面的所有數字.也就是16:00
我的話可能會這樣做..

btw.
vb裡面沒有一個可以show出一個類似"絕對時間"的函數嗎?
我手邊沒書.
不過perl就有..
用了time..顯示的是從1900年到now的"所有秒數"
一大串數字..然後再經由另外一個內定函數就可以取得分..秒..etc..

[cadmus]

你是用vbscript寫asp語法的程式嗎??
我先說一下我的觀點:
(1)如果Now是一個function
你的FormatDateTime裏的Now要寫成Now()
如果只是變數,就可以只寫Now
(2)
第二個參數則是轉換後的格式: 有0,1,2,3,4幾種
都試看看吧

我解釋 一下卡住的地方:
Now是vb內定的時間函數..
型態如同:
2002/6/5 下午 02:00:37
問題在於後面的"下午 02:00:37"
因為SQL的datetime型態的資料無法接受"下午 "..
不過可以接受14:00:37..
所以就沒辦法輸入..
用Time也會有這樣的問題..
是不是有辦法可以解決呢?

[mio]

"UPDATE NWLIST SET TIME1 = " & Now
以上是這是我設定的字串..
因為資料表的時間欄位是datetime..
我如果用Date或Time都沒有問題..
但是Now中"日期"和"上下午"和"時間"之間會有空白..
所以他就會出現:
'上午' 附近的語法不正確。
即使用FormatDateTime(Now, 0)還是不行呀..
但是把Now前後加上引號又會被認為是char..
就會出現:
從字元 (char) 字串轉換到 datetime 的語法錯誤。
嗚嗚..怎麼辦?

你是用vbscript寫asp語法的程式嗎??

我先說一下我的觀點:

(1)如果Now是一個function
你的FormatDateTime裏的Now要寫成Now()
如果只是變數,就可以只寫Now
(2)
第二個參數則是轉換後的格式: 有0,1,2,3,4幾種
都試看看吧

[cadmus]

"UPDATE NWLIST SET TIME1 = " & Now
以上是這是我設定的字串..
因為資料表的時間欄位是datetime..
我如果用Date或Time都沒有問題..
但是Now中"日期"和"上下午"和"時間"之間會有空白..
所以他就會出現:
'上午' 附近的語法不正確。
即使用FormatDateTime(Now, 0)還是不行呀..
但是把Now前後加上引號又會被認為是char..
就會出現:
從字元 (char) 字串轉換到 datetime 的語法錯誤。
嗚嗚..怎麼辦?