下面这段代码在数据空中有数据时运行正常,没有的时候就报错!~不知道为什么,请各位高手看看:
Set rs = New ADODB.Recordset
rs.Open "SELECT jyb.交易号, jyb.交易类型, jyb.金额, jyb.交易日期, jyb.卡号, ckrb.持卡人姓名, ckrb.现有金额 FROM jyb INNER JOIN ckrb ON jyb.卡号 = ckrb.卡号;", conn, adOpenDynamic, adLockOptimistic
If rs.EOF Or rs.BOF Then
Text1.Text = rs!持卡人姓名
Text2.Text = rs!卡号
Text3.Text = rs!交易类型
Text4.Text = rs!现有金额
Text5.Text = rs!交易日期
Text6.Text = rs!交易号
Text7.Text = rs!金额
Else
MsgBox ("无任何记录")
End If
Set rs = New ADODB.Recordset
rs.Open "SELECT jyb.交易号, jyb.交易类型, jyb.金额, jyb.交易日期, jyb.卡号, ckrb.持卡人姓名, ckrb.现有金额 FROM jyb INNER JOIN ckrb ON jyb.卡号 = ckrb.卡号;", conn, adOpenDynamic, adLockOptimistic
If rs.EOF Or rs.BOF Then
Text1.Text = rs!持卡人姓名
Text2.Text = rs!卡号
Text3.Text = rs!交易类型
Text4.Text = rs!现有金额
Text5.Text = rs!交易日期
Text6.Text = rs!交易号
Text7.Text = rs!金额
Else
MsgBox ("无任何记录")
End If
解决方案 »
- vb 如何判断执行的修改和添加是否成功?
- 关于SetWindowPos的窗口排序的问题!(高分)
- 在中文环境下开发的VB程序,现想把该程序制成英文版,有什么好的方法吗?使用Multilizer 6.1工具发现不能显示按钮和代码里的字符串,没法
- 利用ADO产生的recordset对象 可以在窗体间共享吗?
- 十万火急怎么控制打印进纸啊
- ODBC数据源连接sql server数据库时出现了问题?(请各位帮帮忙!Thank you!)
- vb问题请教:如何判断一个文件是否正在被某个进程占用?
- vb中的回车换行是用什么来表示的?
- 请问怎样在vb中使用DirectShow?
- 请问各位有什么办法可以快速的验证大批链接是否有效?
- 通过CommonDialog设置打印属性,修改纸张类型,但怎样才能返回所选的纸张类型呢?
- 有关onclick事件
if rs.state=adstateopen then rs.close
rs.Open "SELECT jyb.交易号, jyb.交易类型, jyb.金额, jyb.交易日期, jyb.卡号, ckrb.持卡人姓名, ckrb.现有金额 FROM jyb INNER JOIN ckrb ON jyb.卡号 = ckrb.卡号;", conn, adOpenDynamic, adLockOptimistic
if rs.recordcount>0 then
Text1.Text = rs!持卡人姓名 & ""
Text2.Text = rs!卡号 & ""
Text3.Text = rs!交易类型 & ""
Text4.Text = rs!现有金额 & ""
Text5.Text = rs!交易日期 & ""
Text6.Text = rs!交易号 & ""
Text7.Text = rs!金额 & ""
Else
MsgBox ("无任何记录")
End If