1

Estoy intentando conectar vb6 con MySql pero me da error error de conexión

Muestro código de conexión

Option Explicit

Public cn As ADODB.Connection
Public rs As ADODB.Recordset

Public Sub Conectar()
  Set cn = New ADODB.Connection
  Set rs = New ADODB.Recordset
  rs.CursorLocation = adUseClient
  cn.Open "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=gestvehicular; User=root;Password=123456;Option=3;"
End Sub

Tratando de dar de alta un registro y conectarme

Private Sub btnGuardar_Click()


If txtNombre.Text <> "" Then
    Dim strSql As String
    strSql = "INSERT INTO gvehi_colores(descripcion) VALUES('" + txtNombre.Text + "')"
    On Error GoTo tratarError
    Dim cmd As New Command
    Conectar
    With cmd
      .ActiveConnection = cn
      .CommandText = strSql
      .CommandType = adCmdText
      .Execute
    End With
    On Error GoTo 0
    Desconectar
    Exit Sub
tratarError:
    MsgBox Err.Description
  End If
End Sub

he descargado el conector de mysql Download Connector/ODBC

He creado el ODBC pero igual me sigue saliendo el error que muestro en la imagen, estoy trabajando sobre SO Windows 7 32 bites sp1 he tratado de actualizar a sp2 pero ya descargue todas las actualizaciones habidas y por haber pero no he logrado conseguir el sp2.

Me servio de fuente para esta implementación este link [MySQL Sample for Visual Basic 6.0 - read/write

]3

1 respuesta 1

2

Pude solucionarlo, gracias a Conector ODBC 3.51

Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=myDataBase;
User=myUsername;Password=myPassword;Option=3;

Link de descarga del conector Download Connector/ODBC

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.