Saludos
Tengo una pequena aplicacion en VB6 con una BD en MySQL.
Con este conectionstring me conecto desde VB6 a MySQL:
----------------------------------------------------------------
"Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=chld; User=root;Password=avalon;Option=3;"
----------------------------------------------------------------
y con una validacion confirmo que la conexion se ha establecido:
----------------------------------------------------------------
If cnConexdb.State <= 0 Then
MsgBox "No se ha podido realizar la Conexión con la Base de Datos", vbCritical, "Fallo la Conexion"
End If
----------------------------------------------------------------
Pero solo se establece la conexion, no me trae datos de las tablas ni guarda en ellas. Por ejemplo, tengo un Combobox con un listado en la ventana principal que se carga del programa, y no carga nada.
----------------------------------------------------------------
Function ListaCargos()
'On Error GoTo errHandle
cmbCargoEmple.Clear
'Lista Cargos de Empleados
strSQL = "Select cargo from cargos order by cargo"
Set RsDatos = New Recordset
RsDatos.Open strSQL, cnConexdb, adOpenStatic, adLockOptimistic
If RsDatos.RecordCount > 0 Then
While Not RsDatos.EOF
cmbCargoEmple.AddItem RsDatos("cargo")
RsDatos.MoveNext
Wend
End If
'If Err Then
'errHandle: errHandle (Me.Name)
'End If
End Function
----------------------------------------------------------------
El RecordCount me lo trae con -1
Desconozco hasta el momento la razon del porque con una conexion establecida, no puedo tener acceso a los datos de los registros de las tablas. El programa no me genera ningun error del cual pueda referenciarme para realizar una busqueda en base a ello, solo no carga los datos de las tablas. Uso ADO 2.8.
