|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
本帖最后由 danhanqing 于 2017-10-15 10:52 编辑
数据库练习.rar (646.88 KB, 下载次数: 0)
财务管理中,想生成请款结算明细表,但出错了,请老师们指教!
If Me.Controls(页面名称 & "_" & "起始时间") = "" Then 起始时间 = "2016/01/01" Else 起始时间 = Me.Controls(页面名称 & "_" & "起始时间")
If Me.Controls(页面名称 & "_" & "结束时间") = "" Then 结束时间 = Format(Now(), "yyyy/mm/dd") Else 结束时间 = Me.Controls(页面名称 & "_" & "结束时间")
MsgBox "起始时间=" & 起始时间 & ";结束时间=" & 结束时间
Dim y&, x&
Dim Conn As ADODB.Connection
Set Conn = LinkDB
Dim Rs As New ADODB.Recordset
sql = "select 日期,单据编号,商品名称,品牌规格,核心参数,备注,单位,数量,单价,金额 from 财务结算总表 where 单位名称='" & Me.Controls(页面名称 & "_" & "单位名称") & "' and 尚欠<>0 and 日期 between '起始时间' and '结束时间'"
请老师帮我看一下,SQL=这句错在哪里了?不加 and 日期 between '起始时间' and '结束时间' 时是正确的。
谢谢!
在线等!
|
|