Public Function ExecuteDMLVolTran(ByVal alSQLs As ArrayList) As Long

Public Function ExecuteDMLVolTran(ByVal alSQLs As ArrayList) As Long

Me.DMLVolError = ""
Dim lngRecsAfectados As Long
'Dim conDatos As New OracleClient.OracleConnection(strConnectionString)
Dim conDatos As New SqlClient.SqlConnection(strConnectionString)

'Dim trnTrans As OracleTransaction
Dim trnTrans As SqlTransaction
Dim strSQL As String
Dim intSql As Integer

trnTrans = Nothing
Try
conDatos.Open()
trnTrans = conDatos.BeginTransaction
'Dim scmDatos As New OracleClient.OracleCommand
Dim scmDatos As New SqlClient.SqlCommand
scmDatos.Connection = conDatos
scmDatos.Transaction = trnTrans

For intSql = 0 To alSQLs.Count - 1

strSQL = alSQLs(intSql)
scmDatos.CommandText = strSQL

Try
lngRecsAfectados += scmDatos.ExecuteNonQuery
Catch exsingle As Exception
'Set Error Message
Me.DMLVolError += exsingle.Message & ", "
Throw New Exception(exsingle.Message)
End Try

Next

trnTrans.Commit()

Catch ex As Exception
If Not trnTrans Is Nothing Then
trnTrans.Rollback()
End If
lngRecsAfectados = 0
Finally
conDatos.Close()
End Try

Return lngRecsAfectados

End Function