Saludos compañeros:
Tengo un problema al realizar consultas a una base de datos MySql.
* Esta abriendo de forma correcta la base de datos
* Puedo hacer inserciones con el conexion.execute
Pero cuando hago un
select sobre un
recordset tenga o no tenga registros, la propiedad
RecordCount me regresa siempre "-1", pero si me voy revisando el recordset con Rs.Fields(0).value SI me regresa los contenidos.
Les pongo el código que estoy utilizando, porque no se que sea lo que este ejecutando mal, en una base access funciona bien, pero al conectarme a MySql ya no.
-------------------------------------------------
Código:
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Sub main()
Conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;PORT=3306;DATABASE=mexico;USER=root;PASSWORD=contra;OPTION=3;"
Conn.Open
With Rs
.ActiveConnection = Conn
.CursorType = adOpenStatic
.LockType = adLockReadOnly
.Open "Select * from nueva" '(Nueva es mi tabla)
End With
MsgBox Rs.RecordCount 'El recordcount siempre me regresa -1 tenga o no registros
End Sub