1樓：山水阿銳
您好，可以用時間函式比如：
date 擷取當前系統時間（不包含時分秒）now 擷取當前系統時間（包含時分秒）
day(date) 擷取當前天
month(date) 擷取當前月
year(date) 擷取當前年
hour(now) 擷取當前時
minute(now) 擷取當前分
second (now) 擷取當前秒
然後連線資料庫把取到的資料插入裡面就可以了。
使用timer控制元件，設定每一秒調一次。然後顯示在窗體上或存到資料庫中。
我使用的是vb，我用text輸入日期獲取日期，可是我的資料庫中的記錄卻與我輸入的記錄不同，這是為什麼啊？
2樓：
1.你在資料庫中定義的此個欄位是什麼屬性，有沒設定格式？
2.text輸入日期獲取日期？？有點亂，是不是你使用now()之類的函式得到了本機的時間日期。你要轉換時間或日期格式:
format(time,"hh:mm:ss") ' 轉換時間為 小時:分:秒
format(data,"yyyy-mm-dd") '轉換日期為 年年年年-月月-日日 中間的-可以替換成你想要的字元
組合起來就是: mydata=format(data,"yyyy-mm-dd") & chr(0) & format(time,"hh:mm:ss") '中間用空字元間隔
3樓：
插入資料庫時用datevalue轉換一下：
rs.fields(日期)=datevalue("1988-2-2")
vb查詢access資料庫中的日期型資料
4樓：
sql="select top 1 actiondate from shop_action where actiondate<'"+text1.text+"' order by actiondate desc"
5樓：匿名使用者
直接比較，date其實也是數字，可以直接用大小等於號比較?clng(date)
39468
?clng(cdate("2000/1/1"))36526
?date>"2000/1/1"
true
?date<"2000/1/1"
false
vb資料庫查詢日期範圍
6樓：dl_會飛的青蛙
access裡面 如果你資料庫設定成日期格式 那麼比較的時候要用#
sql = "select * from 維修記錄 where 日期》=#" & text1.text & "# and 日期<=#" & text2.text & "# order by 日期 desc
這樣就可以！~
7樓：
用format()是最好的
"select * from 維修記錄 where format(日期,'yyyy-mm-dd')>'" & format(text1.text,'yyyy-mm-dd') & "' and format(日期,'yyyy-mm-dd')<'" & format(text2.text,'yyyy-mm-dd') & "'"
8樓：匿名使用者
第一個問題:
我一般的做法是得到所有記錄集,將日期型資料的年份,月份,日期用函式得到,然後再進行比較得到你所要的資料.,如果資料量大的話,就用一條sql語句.你下面的這條語句可以這樣改一下
sql = "select * from 維修記錄 where 日期》=#" & date(text1.text) & "# and 日期<=#" & date(text2.text) & "# order by 日期 desc"
兩邊要用#括起來,再加個轉換函式吧
9樓：渾曄澹臺鴻運
sql=
"select
*from
維修記錄
where
日期》=#"
&text1.text&"#
and日期<=#"
&text2.text&"#
order
by日期
desc"
兩邊要用#括起來,建議最好用between來寫
10樓：紀採鎮苑博
說明:仔細看了看你的**,你肯定是用combox控制元件來組合了一個年月日的
時間表,其實有個dtpicker控制元件
可能更適合.但你這樣做也沒有錯,某些情況下也具有優點.
正確使用sql,在這裡
你要查詢的條件是對的.但你資料庫裡的日期欄位的格式一定要設定正確(相匹配的),否則在查詢有於時間變數原因可能會出現意想不到的結果,這就是你錯誤的原因所在.
下面是你要的sql語句.代入使用即刻
sql="select
*from
data
where
sf='"
&text1.text
&"'and
beteewn
'"&data1
&"'and
'"&data1
&"'"
11樓：匿名使用者
日期是關鍵字，應該吧sql的日期替換成[日期]，或者把日期這個欄位名替換成其他的名字。
12樓：藍方自控
用between 語句.
但是access的日期你最好不要用日期型.要用字串型,應該就可以了.
你把你資料庫裡的型別改下應該就能用了.
vb將系統時間存到sql資料庫？資料庫中的列為datetime型
13樓：匿名使用者
是sqlserver嗎？
把日期轉換成 yyyy-mm-dd hh:mm:ss 的格式，然後直接插入（最終應該是這樣的格式）：
insert into ta(dtcol) values('2014-03-18 11:48:50')
14樓：
dim cn as adodb.connection,cn_strcn_str= "provider=sqloledb.1;password=;persist security info=true;user id=sa;initial catalog=資料庫名;data source=192.
168.0.1"
cn.open cn_str
cn.execute "insert into 表(列名) values('"+now+"')"
cn.close
set cn=nothing
在vb中怎麼將資料庫中的日期與系統當前日期做比較然後得出是否到期
15樓：匿名使用者
發貨日期是字串型別麼？
strsql = "select 姓名,**,是否訂單,發貨日期 from 銷售預期客戶 where str(發貨日期) ='" & text1.text & "'"
控制元件做麼？
一樣的adodc1重新整理後判斷有沒有返回記錄集(eof屬性)
16樓：匿名使用者
'查詢今天的：
strsql = "select 姓名,**,是否訂單,發貨日期 from 銷售預期客戶 where str(發貨日期) =
cdate('" & format(date, "yyyy-mm-dd") & "')"
'查詢匹配text中日期的：
strsql = "select 姓名,**,是否訂單,發貨日期 from 銷售預期客戶 where str(發貨日期) =
cdate('" & format(text1.text, "yyyy-mm-dd") & "')"
17樓：岔路程式緣
關鍵看text1.text 中放置內容的格式與 myday 的格式是否相同。
在vb的text中輸入日期來同access資料庫中的時間進行比較提示型別不匹配 5
18樓：無敵軟體精英
您將< " + cdate(text3.text) + " 換成< " & cdate(text3.text) & " 即可，您實驗一下
19樓：匿名使用者
< "" & cdate(text3.text) & ""試試這個
VB中label顯示怎麼換行，在VB中怎麼怎麼設定label自動換行
有兩種方法實現label換行 1 將label控制元件的可以調整控制元件label的寬度和高度，即可實現自動換行 2 控制換行。例如 private sub form load with label1 caption 12 vbcrlf 345 vbcrlf 6789 end with end su...
vb中怎麼控制LINE的寬度，vb中怎麼控制一個LINE的寬度
1 在窗體上新增一個line1控制元件。2 在它的屬性框裡修改borderwidth的值為想要的值，比如輸入5。3 程式設計實現 line1.borderwidth 6 堵義 事先在窗體裡新增一個line控制元件 需要顯示的時候指定它的位置 寬度用width屬性試試。 line沒有寬度可設，你要設 ...
VB怎麼宣告陣列，VB中陣列怎麼定義
如果有規律就可以用for next 來賦值，如果沒有規律，資料又很多的話，就從檔案裡面讀。dim 陣列名 as int new int vb中陣列怎麼定義 是這麼定義的 陣列中的第一個元素的下標稱為下界，最後一個元素的下標稱為上界，其餘的元素連續地分佈在上下界之間，且陣列在記憶體中也是用連續的區域來...