'=====================================================================================================
'目的:
' 执行non-query SQL,如果有异常, psOutErrMsg 返回错误信息
'-----------------------------------------------------------------------------------------
'输入:
' psSQL
'输出:
' True: 执行OK
' False : 执行Fail
'=====================================================================================================
Public Function ExecSQL(ByVal psSQL As String, ByRef psOutErrMsg As String) As Boolean
Dim dtCmd As OracleCommand
Dim cnADO As New OracleClient.OracleConnection
Dim rtResult As Boolean
Try
psOutErrMsg = ""
cnADO.ConnectionString = sConnStr
cnADO.Open()
dtCmd = New OracleCommand(psSQL, cnADO)
dtCmd.ExecuteNonQuery()
rtResult = True
Catch OraEx As OracleException
psOutErrMsg = OraEx.Message & " SQL: " & psSQL
rtResult = False
Catch ex As Exception
psOutErrMsg = ex.Message
rtResult = False
Finally
dtCmd.Dispose()
cnADO.Close()
End Try
Return rtResult
End Function