Ⅰ 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
