Ⅰ excel vba 的sql語句如何把文本型欄位轉為日期格式
我查詢EXCEL表格用的SQL語句如下，不是查詢ACCESS中的表格，不過SQL語句語法應該相同，給你參考如下：
查詢日期格式的欄位
select * From [a表$] where 日期>#2016/5/1#
或者
select * From [a表$] where 日期>#2016-5-1#
如果因為是文本格式的欄位導致查詢結果不對，再試試
select * From [a表$] where 日期>'2016-5-1'
或者
select * From [a表$] where 日期>"2016-5-1"
Ⅱ access 時間比較的SQL語句怎麼寫
以下是方法：
1，打開access，點擊創建，點擊查詢設計，打開後切換成SQL語句。
2，在框框中輸入以下語句：SELECT * from 學生 where 出生日期=#日期#;
以下以查詢1992/7/11日的學生為例：
3，然後點擊保存，更改表名。點擊運行就可以了，然後把設計視圖切換會數據視圖就可以看到效果了。
Ⅲ access中如何快速輸入日期
可以在設計時期的時候，將時期的類型設為「日期/時間」在默認值處寫上now()，這樣access就可以自動填寫時間了
Ⅳ access 如何計算執行一條sql語句所用的時間
在執行前記錄當前時間，執行後在用當前時間-執行前記錄的時間，最好要精確到千分之一秒
Ⅳ access 怎樣用vba語句對進出庫表按照時間篩選
如果 你是單純地 使用access 資料庫的話 我倒是建議你不進行這樣的 使用代碼來進行查詢……
既然 你已經使用了 窗體 那麼建議 你繼續使用 子窗體 來顯示 你需要的結果 子窗體的數據源 可以通過 使用主窗體的 條件 建立一個查詢 的方式來完成……
最後 你只要 在主窗體 的條件 控制項上 分別 增加一個 更新後的 事件過程 刷新窗體數據就可以了……
Access 資料庫 最大的優勢 就是 不用使用太復雜的 代碼 通過可視化的設計 就可以完成大部分的需要……
重點：查詢、子窗體 數據刷新代碼……這幾項就足夠了
Ⅵ Access SQL語句 日期時間段查詢問題
access 的日期好像是用 #括起來的，比如：
SELECT *
FROM FIX
WHERE TAG In ('TI301AI') And INTERVAL='00:01:00' And DATETIME>#2013-7-7 00:00:01# And DATETIME<#2013-7-17 23:55:59#;
Ⅶ VBA 如何計算SQL 中的 datetime數據類型 日期 時間
MDT= "1900-1-1 16:20:26"
MD = format(MDT,"yyyy-m-d") 'MD = 1900-1-1
MT = format(MDT,"hh:mm:ss") 'MT = 16:20:26
Mydate = Now() 'Mydate = 2011-7-2 16:54:39
DateDiff("YYYY", MDT, Mydate) '返回整年數
DateDiff("M", MDT, Mydate) '返回整月數
DateDiff("D", MDT, Mydate) '返回整天數
Ⅷ Access資料庫怎麼用sql語句創建每隔一個時間段執行更新表的作業
ACCESS資料庫不支持自動化，但是可以通過ACCESS窗體VBA編程實現定時執行某個更新操作。
下面舉例，利用窗體"定時器觸發"事件過程，每天凌晨1點將數據表的A欄位值增加10：
編寫窗體打開事件過程：
PrivateSubForm_Open(CancelAsInteger)
'設置窗體計時器間隔為1秒
Me.TimerInterval=1000
EndSub
編寫窗體「計時器觸發」事件過程：
PrivateSubForm_Timer()
DimtmAsString
tm=Format(Now(),"hh:nn:ss")
Iftm>"01:00:59"ThenMe.TimerInterval=1000'設置窗體計時器間隔恢復為1秒
Iftm>="01:00:00"Andtm<="01:00:59"Then
DimstrSqlAsString
strSql="updatet1seta=a+10"
CurrentProject.Connection.ExecutestrSql
Me.TimerInterval=60000'設置窗體計時器間隔為60秒，防止一天執行多過一次
EndIf
EndSub
注意：窗體必須保持打開狀態才能起到定時執行數據表更新操作
Ⅸ ACCESS中VBA調用SQL語句的問題
ID不要打上單引號：
rsql = "UPDATE 員工表 set 備注 ='" & 員工備注.Value & "' WHERE ID =" & 員工選擇框.ListIndex
如果還是不行，就再加上VAL轉化一下試試：
rsql = "UPDATE 員工表 set 備注 ='" & 員工備注.Value & "' WHERE ID =" & Val(員工選擇框.ListIndex)
Ⅹ access2013 VBA中怎樣運行sql語句
sql在vba里的運用比較專業需要認真的學習研究一下，給你詳細一點的資料和一個實例
你自己學著模擬練習一下
一、簡單的查詢
1、建立查詢
數據選項卡—現有連接—瀏覽更多或者按快捷鍵Alt+D+D+D
選擇要查詢的Excel文件和文件中的的工作表，就可以將相應工作表的數據取過來。表現形式可以是表，也可以是數據透視表等。
2、SQL查詢語句
如果是挑選部分列數據，就需要用SQL語句（取所有數據也可以用SQL語句）。
建立查詢時，選擇工作表後不要點擊「確定」按鈕，而是先點擊「屬性」按鈕，彈出窗口中選擇「定義」選項卡，在命令文本框中輸入SQL查詢語句（原來的工作表名稱，表示所有數據，可以認為是取所有數據的SQL的一種特殊寫法）：
Select欄位列表from[工作表名$]
--其中欄位列表就是需要選擇的欄位，數據源用工作表名稱加「$「再用中括弧括起來，例如：
selectprov_name,city_name,xs_mc,xs_codefrom[Sheet1$]
select*from[Sheet1$]--取所有數據
偶然發現，欄位名不能用no，估計是保留字，如需要，用中括弧括起來，例如：
select[no],prov_name,city_name,xs_mc,xs_codefrom[Sheet1$]
欄位名中含有特殊字元的也要用中括弧括起來，如/?空格等
Excel查詢沒有偽表概念，對於表達式的計算直接用select既可，例如
Select23+45--返回68
Selectdate()--返回當前日期
3、修改查詢語句
方法：點擊右鍵—彈出菜單—表格—編輯查詢
通過修改SQL語句可以變更所取的數據，也可以將建立查詢時的簡單SQL語句改成復雜的SQL語句。
欄位名更換：如果想換個欄位名，用「as新欄位名」既可，例如：
selectprov_nameas省,city_nameas城市,xs_mcas縣市,xs_codeas編碼from[Sheet1$]
非正常表格：數據區域（含欄位名）不在第一行
需要在工作表名稱後面指定數據范圍，例如：
selectprov_name,city_name,xs_mc,xs_codefrom[Sheet1$B2:G2000]
或者，將數據塊定義為一個名稱，假設定義為mydata，SQL語句如下：
selectprov_name,city_name,xs_mc,xs_codefrommydata
注意：使用名稱時沒有$符號，也沒有方括弧了。
數據更新：數據源發生變化，需要更新數據，方法：點擊右鍵—彈出菜單—刷新
意外：如果打開Excel文件後彈出不是選擇工作表的窗口而是一個「數據連接屬性」窗口，可以關閉這個窗口，然後將Excel應用極小化再極大化方式消除，或者在彈出選擇文件的窗口時，退回上一級文件夾，刪除那個Queries文件夾，就行了。
二、復雜的查詢
1、多表聯合
相同結構的多個表合並到一起，用union連接SQL語句，例如：
Select*from[財務部$]unionallSelect*from[市場部$]
Union是去重復的，即相同的記錄保留一個（類似distinct），Unionall則是直接相加兩個結果，不去重復。
增加一個部門欄位可以將查詢結果中的區分開來，以便知道數據來自哪個表。Union的三個一致，即：欄位的數量、類型和順序。例如：
Select「財務部」as部門,*from[財務部$]unionallSelect「市場部」as部門,*from[市場部$]
多表聯合查詢
Select*from[部門$]bm,[員工$]ygwherebm.部門編碼=yg.部門編碼跨工作簿查詢果數據不僅來自不同的工作表，還來自不同的文件，一樣可以用union聯合，例如：
Select「分公司1」as公司,「財務部」as部門,*from[F:SQL之Excel應用分公司1.xlsx].[財務部$]unionall
Select「分公司1」as公司,「市場部」as部門,*from[F:SQL之Excel應用分公司1.xlsx].[市場部$]unionall
Select「分公司2」as公司,「財務部」as部門,*from[F:SQL之Excel應用分公司2.xlsx].[財務部$]unionall
Select「分公司2」as公司,「市場部」as部門,*from[F:SQL之Excel應用分公司2.xlsx].[市場部$]
因為SQL中已經指定了文件名和表名，所以建立連接時連接誰並不重要，這種情況下，建立連接的時候就連接自己，然後再改寫SQL語句。
SubUsingSQL()
DimSqlAsString
DimjAsInteger
DimrAsInteger
DimCnnAsADODB.Connection
DimrsAsADODB.Recordset
WithSheet1
.Cells.Clear
SetCnn=NewADODB.Connection
WithCnn
.Provider="Microsoft.ACE.OLEDB.12.0"
.ConnectionString="ExtendedProperties=Excel12.0;"_
&"DataSource="&ThisWorkbook.Path&"數據.xlsx"
.Open
EndWith
Setrs=NewADODB.Recordset
Sql="Select*From[Sheet1$]"
rs.OpenSql,Cnn,adOpenKeyset,adLockOptimistic
Forj=0Tors.Fields.Count-1
.Cells(1,j+1)=rs.Fields(j).Name
Next
r=.Cells(.Rows.Count,1).End(xlUp).Row
.Range("A"&r+1).CopyFromRecordsetrs
EndWith
rs.Close
Cnn.Close
Setrs=Nothing
SetCnn=Nothing
EndSub
