ReTry——访问数据时失败，等待后重试

        Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Double)
< WebMethod() >  _
         Public   Function  ReTry()  As   Integer

             Dim  aDS  As   New  DataSet       
             Dim  aSql  As   String
             Dim  aRet  As   Integer
             Dim  CheckFlg  As   Boolean
             Dim  aRetry  As   Integer
             Dim  aWait  As   Integer
             Dim  OraDa2  As  OleDb.OleDbDataAdapter

             '等待时间
            aWait  =  LockWaitTime
            '重试次数
            aRetry  =  LockRetryMax

            OpenOraDatabase()

            OraTrans  =  OraConn.BeginTransaction()
            OraCmd.Transaction  =  OraTrans
             Try
                CheckFlg  =   True
                 For  i  =   1   To  aRetry
                     Try
                         '执行失败
                         If  CheckFlg  =   False   Then
                            '等待
                             Call  Sleep(aWait  *   1000 )
                         End   If
                        '指定SQL语句
                        aSql  =  “”
                        OraCmd.CommandText  =  aSql
                        OraDa2  =   New  OleDb.OleDbDataAdapter(OraCmd)
                         ' 打开记录集
                        OraDa2.Fill(aDS,  " TableName " )
                         If aDS .Tables( " TableName " ).Rows.Count  =   0   Then
                            aRet  =   0
                         Else
                            aRet  =   1
                         End   If
                        '执行成功
                        CheckFlg  =   True
                     Catch  ex  As  Exception
                        CheckFlg  =   False
                     End   Try
                    '执行成功退出循环
                     If  CheckFlg  =   True   Then
                         Exit   For
                     End   If
                 Next  i

                 If  CheckFlg  =   False   Then
                    aRet  =   2
                     Return  aRet
                     Exit Function
                 End   If

                 If  aRet  =   1   Then
                    
                 End   If
               
                OraTrans.Commit()
                aRet  =   1
             Catch  ex  As  Exception
                OraTrans.Rollback()
                aRet  =   0
                 Return  aRet
             Finally
                CloseOraDatabase()
             End   Try

             Return  aRet

         End Function