错误捕捉时,不能把程序强行退出的情况捕捉,查询语句中如果有错误,可以捕捉,附上代码.大家帮帮看下,谢谢

Question

方法1
Private Function shipSailAccount_guozhang1101() As Boolean
On Error GoTo errhandle
shipSailAccount_guozhang1101 = True  '默认为true'''''''省略程序
Exit Function
errhandle:
    shipSailAccount_guozhang1101 = False
    Exit Function
End Function
共4个方法，类似于方法1窗体事情
Private Sub Form_Load()
''新添加
Dim blnIsFalse  As Boolean
    If shipSailAccount_guozhang1101() = False Then
     ssql = "insert into 过帐状态表(过帐时间,开船时间,状态) values ('" & DtToday & "','" & DepartDate & "','0') "
       cn.Execute ssql, rdExecDirect
       Exit Sub
    ElseIf shipSailAccount_guozhang1102() = False Then
         ssql = "insert into 过帐状态表(过帐时间,开船时间,状态) values ('" & DtToday & "','" & DepartDate & "','0') "
    cn.Execute ssql, rdExecDirect
       Exit Sub
    ElseIf shipSailAccount_guozhang1103() = False Then
         ssql = "insert into 过帐状态表(过帐时间,开船时间,状态) values ('" & DtToday & "','" & DepartDate & "','0') "
     cn.Execute ssql, rdExecDirect
       Exit Sub
    ElseIf shipSailAccount_guozhang1104() = False Then
   
         ssql = "insert into 过帐状态表(过帐时间,开船时间,状态) values ('" & DtToday & "','" & DepartDate & "','0') "     cn.Execute ssql, rdExecDirect
       
       Exit Sub
    Else
        ssql = "insert into 过帐状态表(过帐时间,开船时间,状态) values ('" & DtToday & "','" & DepartDate & "','1') "
        cn.Execute ssql, rdExecDirect
    End If
    Exit Sub
End Sub
我的程序想实现，当4个方法中只要有错误，进行错误捕捉，写入状态0，只有全部都正确，才写入状态1，
我已经设了错误捕捉，可是为什么当程序初始化时候，即自动作业时候，突然断电（程序强行退出）时候，我的状态表中没写入状态0呢？请问下如何解决呢？谢谢

Answer 1

我只知道COM+中好像有事务处理，不过能不能应付断电，俺就不知道了。

Answer 2

恩  是啊 断电电脑可能马上就断电了,还能写啥状态啊..那么，如果我在过帐状态表中 查询出所有开船时间,如何得到一个起始时间和终止时间中不是开船时间的,
比如我查询到的开船时间是5月1日 5月2日 5月3日 5月6日 5月8日
而我的时间段是5月1日-9日
我任何得到5月4日 5月5日 5月7日 5月9日(DepartDate)
得到这些时间后,提示不成功,并把记录
ssql = "insert into 过帐状态表(过帐时间,开船时间,状态) values ('" & now & "','" & DepartDate & "','0') " 
cn.Execute ssql, rdExecDirect 
如我下面时间是状态为0的时候做出提示，如果是不包含在状态表中的又如何提示呢？谢谢Dim msql As String
Dim strmsg As String
msql = "select 过帐状态表.开船时间 as 开船时间 from 过帐状态表 where 状态 = '0' and 开船时间 between '" & starDT & "' and '" & endDT & "' group by 开船时间"
Set rst = cn.OpenResultset(msql, rdOpenStatic, rdConcurReadOnly)
If Not rst.EOF Then
While Not rst.EOF
    strmsg = strmsg & Format(rst!开船时间, "yyyy年mm月dd日") & ","
    rst.MoveNext
Wend
rst.Close
MsgBox strmsg, 48, "以下日期自动过帐不成功，请进行手动过帐，再结算"
Exit Sub
End If

Answer 3

用ADO.Connection的事务处理
 

Answer 4

在下面查询的判断中,我想加入,不在表中的时间段,应该怎么改啊?
比如:我查询到的表中状态为0的开船时间是5月1日   5月6日 5月8日 ,状态为1的开船时间是5月2日,5月3日
而我的时间段是5月1日-9日 
在时间段里有但表中没有的时间是5月4日 5月5日 5月7日 5月9日,我下面代码得到的strmsg是状态为0的开船时间
是5月1日   5月6日 5月8日,而我想改得到的是strmsg是5月1日   5月6日 5月8日 5月4日 5月5日 5月7日 5月9日
既状态为0的开船时间和在时间段里但不在表里的时间,请问如何实现啊?谢谢Dim msql As String 
Dim strmsg As String 
msql = "select 过帐状态表.开船时间 as 开船时间 from 过帐状态表 where 状态 = '0' and 开船时间 between '" & starDT & "' and '" & endDT & "' group by 开船时间" 
Set rst = cn.OpenResultset(msql, rdOpenStatic, rdConcurReadOnly) 
If Not rst.EOF Then 
While Not rst.EOF 
    strmsg = strmsg & Format(rst!开船时间, "yyyy年mm月dd日") & "," 
    rst.MoveNext 
Wend 
rst.Close 
MsgBox strmsg, 48, "以下日期自动过帐不成功，请进行手动过帐，再结算" 
Exit Sub 
End If 

Answer 5

似乎电脑没有弥留之际教党费的功能，断电了就彻底死掉了你可以做的就是在开始更新前那你可以用 时间段表 left outer join 状态表 where ....，就出现那些没有在你的状态表的日期了

Answer 6

不明白,
比如:我查询到的表中状态为0的开船时间是5月1日  5月6日 5月8日 ,状态为1的开船时间是5月2日,5月3日 
而我的时间段是5月1日-9日 
在时间段里有但表中没有的时间是5月4日 5月5日 5月7日 5月9日,我下面代码得到的strmsg是状态为0的开船时间 
是5月1日  5月6日 5月8日,而我想改得到的是strmsg是5月1日  5月6日 5月8日 5月4日 5月5日 5月7日 5月9日 
既状态为0的开船时间和在时间段里但不在表里的时间,请问如何实现啊?谢谢 Dim msql As String 
Dim strmsg As String 
msql = "select 过帐状态表.开船时间 as 开船时间 from 过帐状态表 where 状态 = '0' and 开船时间 between '" & starDT & "' and '" & endDT & "' group by 开船时间" 
Set rst = cn.OpenResultset(msql, rdOpenStatic, rdConcurReadOnly) 
If Not rst.EOF Then 
While Not rst.EOF 
    strmsg = strmsg & Format(rst!开船时间, "yyyy年mm月dd日") & "," 
    rst.MoveNext 
Wend 
rst.Close 
MsgBox strmsg, 48, "以下日期自动过帐不成功，请进行手动过帐，再结算" 
Exit Sub 
End If 

Answer 7

 "select * from (select 过帐状态表.开船时间 as 开船时间 from 过帐状态表 where 状态 = '1' and 开船时间 between '" & starDT & "' and '" & endDT & "' group by 开船时间) not in ( starDT,endDT) "
记得好像有这么一种嵌套方法  你查一下吧