oracle连库ado发生异常,vb中用ado查询oracle数据库的数据出现异常错误

迷南。 2022-10-21 12:55 82阅读 0赞

该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

Do While True

If Return\_Tname(strBeginDate) <> "" Then

strSql = strSql & "select rownum 序号,dtlcardno   卡号             ,dtlbefbal/100   交易前卡余额     ," \_

& "dtlamt/100      交易金额         ,dtlslamt/100    退售卡押金       ,dtlaftbal/100   交易后卡余额     ," \_

& "dtldate     交易日期         ,dtltime     交易时间         ,dtlsettdate 结算日期         ," \_

& "dtlposid    设备代码         ,dtlinntype  内部交易代码     ,b.valdesc   交易代码         ,dtlcdcnt    计数器           ," \_

& "dtlcenseq   中心流水号       ,       " \_

& "dtlposseq   设备流水号       ,       " \_

& "dtlcity     城市代码         ," \_

& "dtlstatid   站点代码线路代码,        " \_

& "dtlerrcode  错误代码         ,dtlinnerr   内部错误代码             " \_

& "from " & Return\_Tname(Val(strBeginDate)) & " a,DictAccTypeTb b" \_

& " where a.dtltxcode= b.outbusitype(+) and a.dtlcardno = '" & txtCrdNo.Text & "'"

If Trim(cmbTxnType.Text) <> "" Then

strSql = strSql & " and a.dtltxcode='" & Return\_Id("outbusitype", "valdesc", cmbTxnType.Text, "DictAccTypeTb") & "'"

End If

strSql = strSql & " union all "

End If

strBeginDate = add\_date(Val(strBeginDate), 1)

'If strBeginDate > Trim(txtEndDate.Text) Then

If strBeginDate > Format(dp2.value, "yyyymmdd") Then

If strSql <> "" Then

strSql = Mid(strSql, 1, Len(strSql) - 10)

Else

MsgBox "提示,此卡在指定时间段内没有交易明细!"

Exit Sub

End If

Exit Do

End If

Loop

strSql = "select rownum 序号,卡号             ,交易前卡余额     ," \_

& "交易金额         ,退售卡押金       ,交易后卡余额     ," \_

& "交易日期         ,交易时间         ,结算日期         ," \_

& "设备代码         ,交易代码         ,内部交易代码     ," \_

& "计数器           ,中心流水号       ,              " \_

& "城市代码         ," \_

& "设备流水号       ,        " \_

& "站点代码线路代码,        " \_

& "错误代码         ,内部错误代码             " \_

& "from (" & strSql & ")"

'End If

'End If

'sort by cnt

strSql = strSql & " order by 计数器 "

Lab2:

'lBeginTime = Val(Format(Now(), "hhmmss"))

lBeginTime = GetTickCount

Adodc1.ConnectionString = GConnStr

Adodc1.RecordSource = strSql

'WriteStrSql strSql

Adodc1.Refresh

上面的代码的功能是查询一段时间内的交易记录，如果选择的交易时间超过三个月，有的时候偶尔会第一次查询的时候会正常一下，如果再查询其他的话，连提示都没有，就强行关闭运行程序！不知道是什么原因，异常也捕抓不到。。。�

发表评论取消回复

表情：

评论列表（有 0 条评论，82人围观）

还没有评论，来说两句吧...

相关阅读

相关 ADO 数据库连接

在从某个网页访问数据之前，必须先建立一个数据库连接。 -------------------- 创建一个 DSN-less 数据库连接连接到某一个数据库的最简单的方

落日映苍穹つ/ 2024年02月23日 08:28/ 0 赞/ 27 阅读

相关 ADO 查询

我们可以使用 SQL 来创建查询，这样就可以指定仅查看选定的记录和字段。 -------------------- 显示选定的数据我们希望仅仅显示 "Custome

墨蓝/ 2024年02月22日 03:48/ 0 赞/ 25 阅读

相关 vb mysql ado_VB使用ADO操作数据库的常用方法

ADO常用方法下面是我所掌握的使用ADO对数据库操作的一些常用方法，主要是提供给初学者作为参考，有不对的地方请指正。如有补充不胜荣幸准备工作 ======== Di

约定不等于承诺〃/ 2023年10月05日 21:18/ 0 赞/ 57 阅读

相关 oracle连库ado发生异常,vb中用ado查询oracle数据库的数据出现异常错误

该楼层疑似违规已被系统折叠隐藏此楼查看此楼 Do While True If Return\_Tname(strBeginDate) <> "" Then strSql

迷南。/ 2022年10月21日 12:55/ 0 赞/ 83 阅读

相关 ADO.NET(二) oracle数据库链接、和Oracle.DataAccess.dll 有关异常的各种问题

今天本来看数据库链接，做个简单demo.可是最后遇到各种问题。搞了4个小时，终于勉强搞定。一、Connection对象创建Connection对象时需要提供链接字符串

忘是亡心i/ 2022年09月18日 11:58/ 0 赞/ 110 阅读

相关用ADO连接SQL Server数据库

这篇文章不是介绍ADO连接数据库的原理的，而是写一下连接的步骤和简便方法。一、获取连接字符串。连接数据库时需要用到 \_ConnectionPtr 对象的open方

我会带着你远行/ 2022年06月12日 01:52/ 0 赞/ 282 阅读

相关 VB中使用ADO代码向Access数据库添加记录

代码如下： Option Explicit '工程->引用->勾选 Microsoft ActiveX Data Objects 2.X Library Dim Con

迈不过友情╰/ 2021年11月29日 11:32/ 0 赞/ 540 阅读

相关 ADO连接数据库

1. 引入ADO数据库文件msado15.dll，在stdafx.h文件中添加如下代码 1 import "C:\Program Files\Common Files

比眉伴天荒/ 2021年11月04日 12:24/ 0 赞/ 309 阅读

相关 Oracle异常错误处理

一、ORACLE 提供异常情况(EXCEPTION)和异常处理(EXCEPTION HANDLER)来实现错误处理。 1.异常处理的概念。异常情况处理(`EXCEPT

短命女/ 2021年06月26日 16:06/ 0 赞/ 525 阅读

相关 ORACLE 异常错误处理

即使是写得最好的`PL/SQL`程序也会遇到错误或未预料到的事件。一个优秀的程序都应该能够正确处理各种出错情况，并尽可能从错误中恢复。任何ORACLE错误（报告为`ORA-xx

一时失言乱红尘/ 2021年06月26日 16:06/ 0 赞/ 470 阅读