Public Function ExecuteDLMVol(ByVal alSQLs As ArrayList) As Long

Public Function ExecuteDLMVol(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 strSQL As String
Dim intSql As Integer
Try
conDatos.Open()
'Dim scmDatos As New OracleClient.OracleCommand
Dim scmDatos As New SqlClient.SqlCommand
scmDatos.Connection = conDatos

For intSql = 0 To alSQLs.Count - 1

strSQL = alSQLs(intSql)
scmDatos.CommandText = strSQL

Try
lngRecsAfectados += scmDatos.ExecuteNonQuery
Me.DMLVolError += "OK, "
Catch exsingle As Exception
'Continue with next
Me.DMLVolError += exsingle.Message & ", "
End Try

Next

Catch ex As Exception
'Throw New Exception(ex.Message)
Finally
conDatos.Close()
End Try

Return lngRecsAfectados

End Function