如何解决在 ado 记录集中设置变量 - VBA
我需要创建一些财务操作的累进平衡。我创建了变量 SaldoProgr
并尝试将 sql 导入到我的 Heidisql 中,没问题。
问题是当我将 sql 传递给 ado 记录集时:
sql =
"set @SaldoProgr := 0;
SELECT cvCodLan,cdData,ccMovimento,ccDocto,ccCredito,ccDebito,ROUND((@SaldoProgr := @SaldoProgr + ifnull(ccCredito,0)-ifnull(ccDebito,0)),2) as Saldo
FROM tbl_FluxoCaixa
WHERE (cdData Between 'xxxx-xx-xx' And 'xxxx-xx-xx') order by cdData"
当我将此字符串传递给 ado 记录集时,它返回错误
gRs
是一个 ADODB.Recordset
With gRs
Set .ActiveConnection = dbADO
.source = sql
.LockType = adLockOptimistic
.CursorType = adOpenKeyset
.CursorLocation = adUseClient
.Open
End With
好吧,我想知道如何创建变量并将其传递给 ado
感谢大家
解决方法
我是这样解决的:
SELECT cvCodLan,cdData,ccMovimento,ccDocto,ccCredito,ccDebito,ROUND((@SaldoProgr := @SaldoProgr + ifnull(ccCredito,0)-ifnull(ccDebito,0)),2) as Saldo
FROM tbl_FluxoCaixa
JOIN (SELECT @SaldoProgr := 0) R
WHERE (cdData Between 'xxxx-xx-xx' And 'xxxx-xx-xx') order by cdData
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。