Ver Mensaje Individual
  #4 (permalink)  
Antiguo 24/11/2009, 09:32
Hahm
 
Fecha de Ingreso: noviembre-2009
Ubicación: San José,Costa Rica
Mensajes: 3
Antigüedad: 14 años, 6 meses
Puntos: 0
Respuesta: ¿Base de datos Mysql y vb 6.0?

la verdad estoy aprendiendo pero creo q si!!!!!

esq la conexion ya la tengo establecida pero el error es cuando ingreso usuario y password, ya que no se como hacerlo!!!!!!!!

este es mi codigo:

'estas van en generales de modulo

Public Conexion As New ADODB.Connection
Public usuarios As Recordset

'esto va en el modulo

Sub conectarBD()
Set Conexion = New ADODB.Connection
Conexion.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=localhost;DATABASE=telefonos;UID=ro ot;PWD=telef;OPTION=3"
Conexion.Open
Conexion.CursorLocation = adUseClient
A = Conexion.State
If A = 1 Then
MsgBox ("Bienvenido")
MsgBox ("Base de Datos Conectada")
End If

End Sub

'y este va en el form de ingreso

Private Sub Command1_Click()

SQL "SELECT * FROM usuario WHERE usuario='" & usuario.Text & "' AND password = '" & Password.Text & "'"

If Not usuarios.EOF And Not usuarios.BOF Then
MsgBox "El usario es Valido"
Form2.Show
Form1.Hide
Else
MsgBox "Usuario / Clave invalido"
usuarios.Close

End If
End Sub


quisiera q lo revisaras y si puedes corregirme, te agradeceria mucho!!!!!!