初級問題,給100分


用Access中:
1、如何插入一個日期+時間的記錄
2、在日期+時間字段里查找滿足條件的日期
用ADO或直接寫出SQL
謝謝

9 个解决方案

#1


留言有分,急

#2


關注:
http://expert.csdn.net/Expert/PostNew.asp?room=5105

#3


ADO連接:
工程--->引用--->Microsoft ActiveX Data Object 2.x(版本號)

Option Explicit

Dim WithEvents adoRS As Recordset
Dim db As Connection


'提數據事件
    Set db = New Connection
    db.CursorLocation = adUseClient
    db.Open"Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\db1.mdb;Jet OLEDB:Database Password=1234;"
'                           ##########################################
'打開密碼是1234的Access2000數據庫db1.mdb
'不需要密碼,就把Jet OLEDB:Database Password=1234;這段去掉

    Set adoRS = New Recordset
    
    adoRS.Open "SELECT * FROM 表", db, adOpenStatic, adLockOptimistic
    Set DataGrid1.DataSource = adoRS
    DataGrid1.Refresh






'添加事件
    adoRS.AddNew
    adoRS![字段a] = text1.Text
    adoRS![字段b] = text2.Text
    adoRS.UpdateBatch adAffectAll

'刪除
    adoRS.Delete
    adoRS.Requery
    Set DataGrid1.DataSource = adoRS
    DataGrid1.Refresh

#4


至於日期加時間,在數據庫里可以設置的,用常規日期,格式是這樣:yy-mm-dd hh:mm:ss

SQL語句比較時,可以先將字段值格式成日期格式加以比較,用Format函數

舉例吧:將03-07-02 08:10:56格式成2003-7-2
字符串變量 = Format("03-07-02 08:10:56","yyyy-m-d")


函數相關資料:
Format函數
根據格式表達式中的指令來格式化參數

語法
Format(expression[,format[,firstdayofweek[,firstweekofyear]]])

說明
其中expression是必需的任何有效的表達式.format是可選的有效的命名表達式或用戶自定義格式表達式.firstdayofweek是可選的常數.firstweekofyear是可選的常數.
firstdayofweek參數的設置如下所示:
vbUseSystem:使用NLSAPI設置
vbSunday:星期日(缺省)
vbMonday:星期一
vbTuesday:星期二
vbWednesday:星期三
vbThursday:星期四
vbFriday:星期五
vbSaturday:星期六
firstweekofyear參數的設置如下所示:
vbUseSystem:使用NLSAPI設置
vbFirstJan:從包含一月一日的那一周開始(缺省)
vbFirstFourDays:從本年第一周開始,而此周至少有四天在本年中
vbFirstFullWeek:從本年第一周開始,而此周完全在本年中
對於數字,該函數使用預先定義的命名數值格式或創建用戶自定義數值格式.
對於日期和時間,該函數使用預先定義的命名日期/時間格式或創建用戶自定義日期/時間格式
對於日期和時間序數,該函數使用日期和時間格式或數值格式
對於字符串,該函數創建自定義的字符串格式

范例
Dim VarTime,VarDate,VarStr
VarTime=#18:27:25#
VarDate=#January7,2002#
'以系統設置的長時間格式返回當前系統時間.
VarStr=Format(Time,"LongTime")
'以系統設置的長日期格式返回當前系統日期.
VarStr=Format(Date,"LongDate")
VarStr=Format(VarTime,"h:m:s")  '返回"18:27:25"
VarStr=Format(VarTime,"hh:mm:ssAMPM") '返回"06:27:25PM"
'如果沒有指定格式,則返回字符串
VarStr=Format(27)'返回"27"
'以下為用戶自定義的格式
VarStr=Format(1234.5,"##,##0.00") '返回"1,234.50"
VarStr=Format(334.9,"###0.00") '返回"334.90"
VarStr=Format("VB","<") '返回"vb"
VarStr=Format("vb",">") '返回"VB"

#5


up

#6


UP2

#7


1、插入
SQL="insert into 數據表 values('aaa',5,#2003-9-8 12:34:23#,6,'tr',78)"
2、查詢
SQL="select * from 數據表 where DateValue(日期時間)= #2003-7-8#"

#8


up

#9


都說完了。來遲了

注意!

本站转载的文章为个人学习借鉴使用,本站对版权不负任何法律责任。如果侵犯了您的隐私权益,请联系我们删除。



 
粤ICP备14056181号  © 2014-2021 ITdaan.com