
24/11/2009, 09:32
|
| | Fecha de Ingreso: noviembre-2009 Ubicación: San José,Costa Rica
Mensajes: 3
Antigüedad: 15 años, 5 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!!!!!! |