
CERRAR CONEXION MYSQL CON VB.NET
Publicado por ANTONIO (6 intervenciones) el 09/04/2014 09:50:06
Saludos amigos no se porque puede pasar pero tengo una actualización sencilla mysql con vb.net la cual termina con el tipico .close .dispose pero me doy cuenta que la actualización la hace en medio segundo pero el proceso sigue activo hasta que llega al límite del wait_timeout que en mi caso es de 80 segundos y no se que es lo que hago mal o si es normal.
con el finally se supone que ejecuta el .close y el .dispose pero el proceso sigue abierto 80 segundos.
Os pongo el código que uso por su veis algo raro.
Uso el conector.net de mysql
Dim oConexion2 As New MySqlConnection()
oConexion2.ConnectionString = "SERVER=15.2.23.29;UID=FAINUS658;DATABASE=datos;PASSWORD=vivalavida;PORT=3306;CHARSET=utf8;"
Dim sSQL2 As String
sSQL2 = "UPDATE TBLSEMAFORO SET SEMAFORO='VERDE', acabodesubiralgo='NO' WHERE ID=1"
Try
Dim oComando2 As New MySqlCommand(sSQL2, oConexion2)
Dim iResultado2 As Integer
oConexion2.Open()
iResultado2 = oComando2.ExecuteNonQuery()
Application.DoEvents()
MsgBox("hecho")
Catch
MsgBox("ERROR CAMBIANDO EL SEMAFORO A VERDE")
Exit Sub
Finally
oConexion2.Close()
oConexion2.Dispose()
End Try
Gracias amigos.
con el finally se supone que ejecuta el .close y el .dispose pero el proceso sigue abierto 80 segundos.
Os pongo el código que uso por su veis algo raro.
Uso el conector.net de mysql
Dim oConexion2 As New MySqlConnection()
oConexion2.ConnectionString = "SERVER=15.2.23.29;UID=FAINUS658;DATABASE=datos;PASSWORD=vivalavida;PORT=3306;CHARSET=utf8;"
Dim sSQL2 As String
sSQL2 = "UPDATE TBLSEMAFORO SET SEMAFORO='VERDE', acabodesubiralgo='NO' WHERE ID=1"
Try
Dim oComando2 As New MySqlCommand(sSQL2, oConexion2)
Dim iResultado2 As Integer
oConexion2.Open()
iResultado2 = oComando2.ExecuteNonQuery()
Application.DoEvents()
MsgBox("hecho")
Catch
MsgBox("ERROR CAMBIANDO EL SEMAFORO A VERDE")
Exit Sub
Finally
oConexion2.Close()
oConexion2.Dispose()
End Try
Gracias amigos.
Valora esta pregunta


0