Se desconecta MySQL

[YAcosta]

Haciendo mis pininos con este motor me encuentro con un problemilla.
En www.freemysql.cree la BD y usando SQLYog cree las tablas y meti unos registros y todo bien.

Ahora, con vb6 uso esta conexión

Código: (VB) [Seleccionar]

Public db As ADODB.Connection
Public rs As ADODB.Recordset

Código: (VB) [Seleccionar]

Private Sub Conectar()
Set db = New ADODB.Connection
Set rs = New ADODB.Recordset
   
rs.CursorLocation = adUseClient
db.ConnectionString = "Driver={MySQL ODBC 5.1 Driver};Server=SQL09.FREEMYSQL.NET;Database=bdyacosta01; User=miusuario;Password=mipassword;Option=3;"
db.Open
End Sub
Lo primero: Para que sirve ¿Option = 3? he buscado y me perdi mas porque en otros ejemplos en la web he encontrado que usan OPTION=16427 o OPTION=16384 ? que vaina??

Bueno, siguiendo con el codigo:

Me conecto:

Código: (VB) [Seleccionar]

Private Sub Form_Load()
Conectar
Dim rs As New ADODB.Recordset
rs.Open "SELECT * FROM MITABLA", db, 1, 1
Set Grid1.DataSource = rs
End Sub
Y excelente!!!.
Ahora, pongo un par de textbox y un boton para meter registros y en el boton tengo esto:

Código: (VB) [Seleccionar]

Private Sub Command1_Click()
db.BeginTrans
db.Execute "INSERT INTO MITABLA(NOMBRE, DIRECCION) VALUES ('" & Text1 & "', '" & Text2 & "')"
db.CommitTrans

Dim rs As New ADODB.Recordset  'Esto para recargar y verlo de una vez.
rs.Open "SELECT * FROM MITABLA", db, 1, 1
Set Grid1.DataSource = rs
End Sub

Pruebo el codigo y ya estoy saltando de alegria porque funciona bien, por medir la velocidad de los insert hago varios clic y la respuesta es deseable, dejo de hacerlo por unos 10 segundos y al volver a hacer clic me sale esto:



Entonces como nunca me había pasado esto con mi otro motor debe ser que me falta definir algo, porque cada 10 segundos +/- al intentar grabar me sale ese error en el insert, ¿por defecto MySQL tiene un tiempo de espera?¿Donde lo redefino? porque usualmente la aplicación la podre tener abierta horas tal como lo hago actualmente con mi otro motor y creo que con cualquiera.

Gracias

[raul338]

MySQL tiene un tiempo de conexion, en local hasta hace algunas versiones era de 8 horas, en la version 5.5 lo redujeron a 5minutos. En Online siempre lo reducen a una sola consulta por ejemplo, esto cuando vos abrís haces un par de consultas en poco tiempo y se cierra. esto es porque sino el host se satura de muchas conexiones. Así sucede en PHP, por cada vez que pones una pagina, la conexion dura como mucho un par segundos

En Vb6 con mysql online es recomendable conectar y desconectarse ante cada consulta. Ojo, solo cuando es online, cuando tenes el servidor en tu propia red, mantené la conexion abierta siempre

[ssccaann43]

Eso nunca me habia pasado. Yo desarrolle un BOT para un cliente que tomaba la información de SQL Server y registro por registro lo insertaba en MySQL en la nube. No tuve que conectarme y desconectarme, simplemente aperturaba mi conex y hasta que no finalizara, no cerraba la conex. Que raro eso.

[raul338]

Mira: Wait_Timeout - System Variables

En realidad depende de cada host. Si es "en la nube" claramente esta preparado para conexiones pesadas. Pero Yvan esta en un hosting compartido no tiene dedicado así que no puede pedir mucho (supongo que es así, sino, podes configurarlo o algo más tiene que haber). Tampoco se si el puede configurar esa variable, es depende del host

[YAcosta]

Si ese hosting al ser libre no se le puede pedir nada mas.

En mi host de pago no me permiten conectar un exe a la BD en nube porque me tienen cerrado el puerto y no lo abrirán por temas de seguridad. Pero en otro hosting que también es de pago y que si tienen abierto ese puerto ¿podre pedir que me habiliten mas el tiempo de conexión?. Sino por ultimo, me conecto y desconecto. (obviamente en local siempre abriré una sola vez)
Estoy por responder este mensaje del hosting que no quiere perderme como cliente:
"Respecto al hosting, digame cuales son sus requerimientos y puedo armar un plan a medida con un precio super especial"

[raul338]

Es que en realidad siempre vas a tener que hacerlo, no imagina que lo tenes abierto por 3 dias, vos te pensas que la conexion va a durar? siempre tienes que estar abriendo y cerrando ante ese error

[E N T E R]

La verdad nunca tube problemas por que yo en local y e internet todas mis conexiones siempre la cierro. Esto no le va a gustar a seba xD se que esta mal pero siempre me funciono. Por eso estoy esperando ancioso el tuto que seba esta preparando para cambiar mis hábitos de programación.

Yo lo tengo así y nunca tube problemas:

En un Modulo:

Código: (VB) [Seleccionar]

Public cnADO As ADODB.Connection    '// Conexion ADO
Public rsADO As ADODB.Recordset     '// RecordSet ADO
Public StrSQL As String             '// Parametro para MySQL
Public ComandoSQL As String         '// Comando MySQL

Código: (VB) [Seleccionar]

'Conectar a la Base datos

Public Sub ConectarADO()
   
    On Error GoTo ErrorHandler
   
    Set cnADO = New ADODB.Connection    '// Crear la nueva conexion
    Set rsADO = New ADODB.Recordset     '// Crear nuevo recordset
   
    rsADO.CursorLocation = adUseClient  '// Tipo de cursor a utilizar
    cnADO.ConnectionString = "Driver={MySQL ODBC 5.1 Driver};Server=184.182.23.43;Database=control_hotel; User=root;Password=" & MDIForm1.lblPass.Caption & ";Option=3;"
    cnADO.Open                          '// Abrir la nueva conexion
           
ErrorHandler:
   
    If Err <> 0 Then
        MsgBox "Error Nº: " & Format(Err.Number, "##,###0") & vbCrLf & vbCrLf & Err.Source & vbCrLf & vbCrLf & Err.Description, vbCritical, "Error"
    End If

End Sub

Este uso para cerrar la Bd.

Código: (VB) [Seleccionar]

Public Sub CerrarADO()
   
    If Not cnADO Is Nothing Then
   
    Else
        cnADO.Close            '// Cerrar la conexion
        Set cnADO = Nothing    '// Liberar conexion de la memoria
        Set rsADO = Nothing    '// Liberar recorset de la memoria
    End If
   
End Sub

En un Form trayendo datos de la tabla y mostrando en un listview.

Código: (VB) [Seleccionar]

Sub TRAER_CLIENTES()

    Me.MousePointer = 11
   
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
    '// Aca Conecto a la Base Datos
        Call ConectarADO
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
       
        LClientes.ListItems.Clear
        StrSQL = "SELECT * FROM clientes"
        rsADO.Open StrSQL, cnADO, adOpenStatic, adLockOptimistic, adCmdText
        Do Until rsADO.EOF
            Set Lv = LClientes.ListItems.Add()
            With rsADO
                Lv.Text = Format(.Fields("codigo"), "##,###0")
                Lv.SubItems(1) = .Fields("cedula")
                Lv.SubItems(2) = strReplaceVer(.Fields("nombre") & "")
                rsADO.MoveNext
            End With
        Loop
   
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
    '// Aca Cierro la base datos
        Call CerrarADO
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
   
    Me.MousePointer = 0

End Sub

Esta forma nunca me fallo.

[YAcosta]

Es que en realidad siempre vas a tener que hacerlo, no imagina que lo tenes abierto por 3 dias, vos te pensas que la conexion va a durar? siempre tienes que estar abriendo y cerrando ante ese error

No pues, 3 días también es una exageración innecesaria, pero también 2 o 3 segundos lo es. Por supuesto que se cerraría la conexión cuando cierre el programa obviamente. La mejor solución debiera ser que sea posible que yo defina el tiempo de cuanto tiempo quiero mantenerlo abierto, con 5 minutos al menos me basta que seria la suficiente para hacer algunas operaciones, pero ya no hay roche si las cosas son asi normal pues que asi sea no hay trauma, por cada transacción abriré y cerrare tal como lo hace Ariel.

[raul338]

Si se que es una exageración, pero siempre existe esa posibilidad imagina algo que funcione 24 horas siempre de forma remota y sin que se sature su conexión a internet por eso muchos manejadores de base de datos en mysql tienen la reconección automatica

[imacopez]

El error server has gone away, contraté un servidor dedicado y se modificó my.cnf de Mysql y aún así me da este error.-
Mi conexión es de 20Mb y lo hago con cable, wi-fi ....   
pero  al conectarme con mi Iphone no pasa nada de esto.

imacopez

[Luffy]

Creo que este enlace te puede dar una idea más clara de tu option = 3 en el connectionstring de mysql

http://mirror.metrocast.net/mysql/doc/refman/5.0/es/myodbc-configuration-connection-parameters.html

Pero esto ya lo habia explicado yo, es como configuras tu servidor y tu cliente, osea puedes tener un servidor "DEDICADO" y configurar tu cliente "DEDICADO" tal y como tu quieres.

Pero lo mejor es hacerlo transaccional o por transacción para no saturar el puerto ni la base de datos. Es cuestión de gustos.

[ssccaann43]

Yvan, tanto que insistí en que no me pasa, pues me sucedió, desarrolle un soft para un cliente, para realizarle mantenimiento a sus Maquinarias, Equipos y Vehículos, y ciertamente después de unos segundos el Server cerro la conex. Tuve que optar por cerrar y abrir la conex constantemente, no es lo mejor pero para estos casos te quita el dolor de cabeza... Créeme.... Saludos a todos...

[YAcosta]

Yvan, tanto que insistí en que no me pasa, pues me sucedió, desarrolle un soft para un cliente, para realizarle mantenimiento a sus Maquinarias, Equipos y Vehículos, y ciertamente después de unos segundos el Server cerro la conex. Tuve que optar por cerrar y abrir la conex constantemente, no es lo mejor pero para estos casos te quita el dolor de cabeza... Créeme.... Saludos a todos...

No, si te creo doctor, como lo dije alla en el 2012 me quedaba claro que asi era de cuando a hosting nos referimos... cosa diferente de cuando te conectas a la BD de una PC remota, alli si hago la conexion una vez y la cierro al final porque segun experiencia con el motor que tengo va de 10.