sql查询个人编号相同，结果不等于“o.k.”数据且以后没有继续发生的数据，语句错误

yczzwy

qiuzhu.rar (9.38 KB, 下载次数: 10)

2013-7-28 21:19 上传

点击文件名下载附件

sql查询个人编号相同，结果不等于“o.k.”数据且以后日期没有继续发生的数据下面语句错误，帮忙修改，vba用下面语句
Sub 测试查询()

    Dim cnn, SQL$
   Set cnn = CreateObject("adodb.connection")
   Set Sh1 = Sheets("欢迎")
   cnn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & ThisWorkbook.Path & "\Database1.mdb"
  SQL = "SELECT 社保个人编号,身份证号码,卡号,金额,户名,扣款结果,扣费日期,批次号,扣费项目,扣费银行  from 数据表 a WHERE 社保个人编号 =a.社保个人编号 and 扣费日期 < a.扣费日期 and  扣款结果 <>'O.K. " '

事例数据库应该自显示
数据表 户名 扣款结果 扣费日期
       姜泉 没有足够可用资金 2012-03-21
这一笔，

wudixin96

{:soso_e117:} 这是啥高级用法，只有一张表，却相互引用

zxb7679

SELECT 数据表.社保个人编号, 数据表.身份证号码, 数据表.卡号, 数据表.金额, 数据表.户名, 数据表.扣款结果, 数据表.扣费日期, 数据表.批次号, 数据表.扣费项目, 数据表.扣费银行
FROM 数据表 INNER JOIN
(SELECT 数据表.社保个人编号, Max(数据表.扣费日期) AS 扣费日期
FROM 数据表
GROUP BY 数据表.社保个人编号) as
a ON (数据表.社保个人编号 = a.社保个人编号) AND (数据表.扣费日期 = a.[扣费日期])
WHERE (((数据表.扣款结果)<>"O.K."));

yczzwy

zxb7679 发表于 2013-7-31 12:17
SELECT 数据表.社保个人编号, 数据表.身份证号码, 数据表.卡号, 数据表.金额, 数据表.户名, 数据表.扣款结果 ...

在excelvba中运行提示join语法错误

zxb7679

ACCESS测试通过了的！

zxb7679

excelvba不通过过可能是语法有些许差异，你可以根据access的查询语句变换一下。

zxb7679

SELECT 社保个人编号,身份证号码,卡号,金额,户名,扣款结果,扣费日期,批次号,扣费项目,扣费银行  from 数据表 a WHERE 社保个人编号 =a.社保个人编号 and 扣费日期 < a.扣费日期 and  扣款结果 <>'O.K. ‘
主要是查询语句混乱，看了你的需求不知道你为什么这么写。