access sql 数据类型问题

zhaogang1960

4楼附件中SQL语句在Access查询中出错，但在ExcelVBA中使用正常：

1. Sub CreateQuery() 'Excel中使用
   
2.     Dim cnn As New ADODB.Connection
   
3.     Dim rst As New ADODB.Recordset
   
4.     Dim myPath As String
   
5.     Dim SQL As String
   
6.     Dim i As Integer
   
7.     myPath = ThisWorkbook.Path & "\工作记录 - 副本.accdb"
   
8.     cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & myPath
   
9.     SQL = "SELECT 姓名, cdate(开通日期) AS 开通日期, cdate(截止日期) AS 截止日期, MAC地址 FROM 工作记录 WHERE DateDiff('d',cdate(截止日期),date()) >0 and 姓名<>'/' and 截止日期<> '∞'"
   
10.     rst.Open SQL, cnn, adOpenKeyset, adLockOptimistic
    
11.     Cells.ClearContents
    
12.     For i = 0 To rst.Fields.Count - 1
    
13.         Cells(1, i + 1) = rst.Fields(i).Name
    
14.     Next
    
15.     Range("A2").CopyFromRecordset rst
    
16.     rst.Close
    
17.     cnn.Close
    
18.     Set rst = Nothing
    
19.     Set cnn = Nothing
    
20. End Sub

复制代码

kookkey

zhaogang1960 发表于 2014-12-18 17:09
创建一个查询，"/"修改"-"即可：

这样的话，那不是每次有数据进去后都要进行一次这个查询操作么？没有直接修改日期选取的输出格式么？

zhaogang1960

kookkey 发表于 2014-12-18 18:54
这样的话，那不是每次有数据进去后都要进行一次这个查询操作么？没有直接修改日期选取的输出格式么？

不懂datepicker是什么，是否可以修改它的日期输出格式，是否受电脑日期格式的影响，如果是请修改电脑日期格式

kookkey

zhaogang1960 发表于 2014-12-18 19:33
不懂datepicker是什么，是否可以修改它的日期输出格式，是否受电脑日期格式的影响，如果是请修改电脑日期 ...

感谢回复，找到问题了，其实不是日期格式的问题。
而是我的有些“截止日期”字段的数据是其他中文之类的字符
现在我在思考怎么避开DateDiff函数会处理到非日期类数据的情况
我将sql语句修改成
select 姓名,开通日期,截止日期,MAC地址,日期差
from (SELECT 姓名, 开通日期, 截止日期, MAC地址,CInt( CDate(截止日期)-Date()) AS 日期差 FROM 工作记录 WHERE 姓名<>'/' AND 截止日期<>'∞')
where 日期差 < 0;
还是提示“标准表达式中数据类型不匹配”
伤脑筋啊

wuxiang_123

kookkey 发表于 2014-12-18 20:12
感谢回复，找到问题了，其实不是日期格式的问题。
而是我的有些“截止日期”字段的数据是其他中文之类的 ...

1. SELECT 姓名, 开通日期, 截止日期, MAC地址 FROM 工作记录 WHERE 姓名<>'/' AND IIF(ISDATE(截止日期),cdate(截止日期)<date())

复制代码

附件打不开，看不到具体情况。

zhaogang1960

wuxiang_123 发表于 2014-12-18 23:17
附件打不开，看不到具体情况。

吴版威武，用第一个附件测试正确
IIF函数与VBA中的似乎不一样，后者是如果——则——否则——
请吴版介绍一下IIF函数在SQL中的使用方法

wuxiang_123

zhaogang1960 发表于 2014-12-19 00:12
吴版威武，用第一个附件测试正确
IIF函数与VBA中的似乎不一样，后者是如果——则——否则——
请吴版介 ...

IIF(表达式,TRUE返回值,FLASE返回值)
第三参数可省，若缺省，则返回NULL。

zhaogang1960

wuxiang_123 发表于 2014-12-19 00:18
IIF(表达式,TRUE返回值,FLASE返回值)
第三参数可省，若缺省，则返回NULL。

与VBA的用法相似，但我看你用它过滤掉了非日期记录，即第三参数省略返回NULL，就能过滤掉了非日期？

roych

依老衲看来，应该是日期选择器匹配的文本框设置有问题。把对应的文本框字段类型改为短日期格式，此外，还跟电脑系统日期的配置有关。有些用户使用了中文日期，那么录入数据时就有问题了。这种查找替换的方式只是治标不治本。关键还是要统一系统日期格式，例如在输入框的有效性里设置禁用中文