Perdido con MySQL

[yampoo]

Hola, he conseguido conectar Visual Basic y MySQL... el problema que no sé muy como trabajar con base de datos, o sea, hacer consultas y eso a partir del código que tengo...

Visual Basic se conecta satisfactoriamente de la siguiente manera:

Código PHP:

  Private Sub Command1_Click() 
 Dim cn As New rdoConnection 
CadenaConnect = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=nombre;PWD=password;UID=usuario;OPTION=3" 
cn.Connect = CadenaConnect 
cn.CursorDriver = rdUseServer 
cn.EstablishConnection 
End Sub  
   

Lo que quiero hacer es un login, necesitaría hacer la consulta que comparara el nombre y password que vienen de dos texts, y sí existen ese user y pass pasar a otra ventana... el problema está en que no se hacer la consulta y eso...

A ver sí alguien me puede ayudar, muchas gracias.

[yampoo]

Nadie sabe como hacerlo? Es que cuando pongo rss.open me dice que me falta un objeto o algo... y ya no sé por donde ir...

[GeoAvila]

dame un dia mas y te respondo.. yo trabajo vb6 con mysql..

nos vemos..

[yampoo]

Ok, muchas gracias, espero.

[GeoAvila]

hola mira yo no lo trabajo con rdo.

sino con ado

Código:

Dim db As Connection
          Dim adoPrimaryRS As Recordset
          Set db = New Connection
          Set adoPrimaryRS = New Recordset
          db.CursorLocation = adUseClient
          db.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=nombre;PWD=passw  ord;UID=usuario;OPTION=3"

de esta manera, podrías intentar asi para mi es la mejor forma de hacerlo..

[mikivivone]

De Acuerdo Con Geo, Rdo Es Mas Bien Para Trabajar Con El Jet , Es Decir Con Bases De Acces. Ado Es Mas Potente Y Recomendable Para Trabajar Con Sql.
Bye

[aicir]

hola estoy conectando una base de datos con este codigo, pero me marca error en "db.open"
este es el error "el formato de la cadena de inicializacion no cumple la especificacion OLEDB
alguien podria decirme por q; se lo agradeseria

Option Explicit
Public db As ADODB.Connection
Public tabla As ADODB.Recordset

Private Sub boton_conectar_Click()
Dim cadena_conexion

Set db = New ADODB.Connection
Set tabla = New ADODB.Recordset
db.ConnectionString = "Driver={MySQL odbc 3.51 Driver]: server=localhost;database=multiusos;uid=root;"
db.CursorLocation = adUseClient
db.Open
sub end

[Txoco]

Hola!

Para mikivivone: RDO es la especificación anterior a ADO, y Microsoft recomienda utilizar el acceso mediante éste último, antes que con DAO o RDO, que se mantienen únicamente por retrocompatibilidad.


Para aicir: Fíjate que el valor del parámetro Driver no está cerrado con llave, si no con corchete, y después has puesto dos puntos, cuando el separador debe ser punto y coma.