Gente tengo un problemón... quiero hacer un método que me ejecute una lista de sentencias SQL a modo de transacción pero me salen errores varios siempre en una misma línea.
Les tiro el código.
Código:
Public Function Conectar() As MySQLConnection
Dim c As MySQLConnection
Try
c = New MySQLConnection(CadenaConexion)
Return c
Catch
MessageBox.Show(Err.Description)
Return Nothing
End Try
End Function
Ahora la función que ejecuta transacciones:
Código:
Public Function EjecutarTransaccion(ByVal ListaSentencias As ArrayList) As Boolean
Dim band As Boolean = False
Dim c As MySQLConnection = Me.Conectar
If Not c Is Nothing Then
Dim transaccion As MySQLTransaction
Dim comando As MySQLCommand = c.CreateCommand
Dim strSentencia As Object
Dim sentencia As String = ""
transaccion = c.BeginTransaction 'ACA SE PRESENTA EL ERROR.
Try
For Each strSentencia In ListaSentencias
sentencia = strSentencia.ToString()
comando.CommandText = sentencia.ToString()
comando.ExecuteNonQuery()
Next
transaccion.Commit()
band = True
Catch ex As Exception
MessageBox.Show(ex.Message)
Try
transaccion.Rollback()
Catch ex2 As Exception
MessageBox.Show(ex2.Message)
End Try
Finally
c.Close()
End Try
End If
Return band
End Function
El error que me aparece es:
Excepción del tipo 'MySQLDriverCS.MySQLException' enLDriverCS.dll
Ya probé con una librería llamada MySQL.Data.dll y otra MySQLDriverCS.dll.
¿Sugerencias?