重试打开记录集--------如果执行失败了，如何等待一定时间后重试。

Question

如果执行失败了，如何等待一定时间后重试。       aSql = ""
            aSql = aSql & " Select * From MMISE"
            aSql = aSql & " FOR UPDATE NOWAIT"            ConnectOraDatabase()            OraCmd.CommandText = aSql            Dim OraDa As New OleDb.OleDbDataAdapter(OraCmd)
            If aDs.Tables.Contains("MMISE") Then aDs.Tables("MMISE").Clear()
            OraDa.Fill(aDs, "MMISE")            'データ存在チェック
            If aDs.Tables("MMISE").Rows.Count = 0 Then
                aRet = False
            Else
                aRet = True
            End If            CloseOraDatabase()

Answer 1

为什么不到VB板块去处理了？这个是程序逻辑问题，不是ORACLE的问题。

Answer 2

等待一段时间用doevents
可以for i=0 to 1000
      doevents
    next for