程序前晚运行一切正常,但昨晚运行时被自动关闭,今早检查时发现错误:
部分代码如下:
Set xlSheet = xlBook.Worksheets("卡帐数据") '设置活动工作表
i = 3
Set rs = New ADODB.Recordset
rs.Open "Select * from err_kz_detail where err_mode='2' and balance=0 order by check_date,cardno ", Cn_Access
If Not rs.EOF Then
Do While (Not rs.EOF)
i = i + 1
xlSheet.cells(i, 1) = rs!check_date
xlSheet.cells(i, 2) = rs!kz
xlSheet.cells(i, 3) = rs!kqb
xlSheet.cells(i, 4) = rs!cardno
xlSheet.cells(i, 5) = rs!kz - rs!kqb
xlSheet.cells(i, 7) = rs!err_type
rs.MoveNext
Loop
End If
'不平的卡帐数据,错误类型为2
Set xlSheet = xlBook.Worksheets("全部卡帐不平数据") '设置活动工作表
i = 3 Set rs = New ADODB.Recordset
rs.Open "Select * from err_kz_detail where balance=0 order by cardno ", Cn_Access ‘昨晚原程序运行到此处被踢出
If Not rs.EOF Then
Do While (Not rs.EOF)
i = i + 1
xlSheet.cells(i, 1) = rs!check_date
xlSheet.cells(i, 2) = rs!kz
xlSheet.cells(i, 3) = rs!kqb
xlSheet.cells(i, 4) = rs!cardno
xlSheet.cells(i, 5) = rs!kz - rs!kqb
xlSheet.cells(i, 7) = rs!err_type
xlSheet.cells(i, 10) = rs!err_mode
rs.MoveNext
Loop
End If
xlBook.Close (1) '关闭工作簿
部分代码如下:
Set xlSheet = xlBook.Worksheets("卡帐数据") '设置活动工作表
i = 3
Set rs = New ADODB.Recordset
rs.Open "Select * from err_kz_detail where err_mode='2' and balance=0 order by check_date,cardno ", Cn_Access
If Not rs.EOF Then
Do While (Not rs.EOF)
i = i + 1
xlSheet.cells(i, 1) = rs!check_date
xlSheet.cells(i, 2) = rs!kz
xlSheet.cells(i, 3) = rs!kqb
xlSheet.cells(i, 4) = rs!cardno
xlSheet.cells(i, 5) = rs!kz - rs!kqb
xlSheet.cells(i, 7) = rs!err_type
rs.MoveNext
Loop
End If
'不平的卡帐数据,错误类型为2
Set xlSheet = xlBook.Worksheets("全部卡帐不平数据") '设置活动工作表
i = 3 Set rs = New ADODB.Recordset
rs.Open "Select * from err_kz_detail where balance=0 order by cardno ", Cn_Access ‘昨晚原程序运行到此处被踢出
If Not rs.EOF Then
Do While (Not rs.EOF)
i = i + 1
xlSheet.cells(i, 1) = rs!check_date
xlSheet.cells(i, 2) = rs!kz
xlSheet.cells(i, 3) = rs!kqb
xlSheet.cells(i, 4) = rs!cardno
xlSheet.cells(i, 5) = rs!kz - rs!kqb
xlSheet.cells(i, 7) = rs!err_type
xlSheet.cells(i, 10) = rs!err_mode
rs.MoveNext
Loop
End If
xlBook.Close (1) '关闭工作簿
解决方案 »
- txt导入excel用动态数组,但不知怎样写到excel
- 如何加速百亿次FOR循环
- 远程控制例子
- 请问 “Public Function ParseTab(ByVal T$, v%) As String” 是什么意思呀?
- 如何结贴,如何将分送出去?
- 如何用编程的方法 禁用光驱设备???
- Windows優化大師的內存優化軟件是調用了一個操作系統自帶的VBS腳本文件﹐請問是哪個及如何在VB中使用﹖
- 最初级问题,为什么要用Call调用函数?
- 有没有较简单的方法实现activereport中金额为零就不打印(为空)
- ras拨号
- 关于ini文件:高手帮忙啊,菜鸟焦急等待中
- VB中,LISTBOX控件的使用
Cn_Access.Open "Provider=MSDASQL.1;Password=sinopec;User ID=sa;Extended Properties='DRIVER={Sybase System 11};UID=sa;PWD=sinopec;DB=ic;SRVR=FJIC-LINCQ'"当本次DO while循环到30时出现提示“多步OLE DB操作产生错误。请检查每个 OLE DB 状态值。没有工作被完成。” 请各位大侠们救命啊