Visual basic y Mysql
Publicado por mari3 (38 intervenciones) el 25/05/2009 16:31:42
¡¡¡Hola!!!
A lo mejor esto es algo que no le compete a este foro... pero pueda que me tengan la respuesta, ya que me he metido en los foros deMysql y no me dan respuestas...
Mi problema es el siguiente:
Tengo hecho mi tabla en Mysql y logro hacer que la conexión con visual Basic... Lo que no se es como llamar los datos que tengo en la base de datos para que se me muestren en Visual Basic!
Ej.:
Mi tabla en Mysql es
cedula nombre apellido
…y tengo en Visual Basic un formulario donde se encuentran unos textbox donde supuestamente se deberían de mostrar los datos que tengo en la base de datos (el registro) al momento de hacer el llamando por otro textbox donde introduzco la cedula (esto es para llamar al registro)...
¡¡¡La conexión la hago bien!!! Lo que no se como hacer es para que se me muestren esos datos
Aquí les mando mi código para que me digan donde debe de ir lo que me hace falta....
Private Sub Command5_Click()
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.CursorLocation = adUseClient
conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost; DATABASE=prueba; UID=root; PWD=1234; OPTION= & 1 + 2 + 8 + 32 + 2048 + 16384"
conn.Open
rs.Open "SELECT * FROM prueba WHERE cedula LIKE '" + Text4.Text + "'", conn
If Text4.Text = "" Then
MsgBox "Campo Vacio Introduzca la clave"
Text1.SetFocus
Else
If rs.RecordCount > 0 Then
' Aquí creo que deberia de aparecer el llamado al registro de la Base de Datos'
'Text1.Text =
'Text2.Text =
'Text3.Text =
Else
If rs.RecordCount <= 0 Then
MsgBox "Cedula Invalida"
Text1.Text = ""
Text1.SetFocus
'Else
'If Text1.Text = "" Then
'MsgBox "Campo Vacio Introduzca la clave"
'Text1.SetFocus
Else
MsgBox "Cddula incorrecta intente nuevamente", vbOKOnly + vbInformation, "Información..."
Text4.Text = Empty
Text4.SetFocus
End If
End If
End If
End Sub
¡¡¡Espero que me puedan ayudar!!!
A lo mejor esto es algo que no le compete a este foro... pero pueda que me tengan la respuesta, ya que me he metido en los foros deMysql y no me dan respuestas...
Mi problema es el siguiente:
Tengo hecho mi tabla en Mysql y logro hacer que la conexión con visual Basic... Lo que no se es como llamar los datos que tengo en la base de datos para que se me muestren en Visual Basic!
Ej.:
Mi tabla en Mysql es
cedula nombre apellido
…y tengo en Visual Basic un formulario donde se encuentran unos textbox donde supuestamente se deberían de mostrar los datos que tengo en la base de datos (el registro) al momento de hacer el llamando por otro textbox donde introduzco la cedula (esto es para llamar al registro)...
¡¡¡La conexión la hago bien!!! Lo que no se como hacer es para que se me muestren esos datos
Aquí les mando mi código para que me digan donde debe de ir lo que me hace falta....
Private Sub Command5_Click()
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.CursorLocation = adUseClient
conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost; DATABASE=prueba; UID=root; PWD=1234; OPTION= & 1 + 2 + 8 + 32 + 2048 + 16384"
conn.Open
rs.Open "SELECT * FROM prueba WHERE cedula LIKE '" + Text4.Text + "'", conn
If Text4.Text = "" Then
MsgBox "Campo Vacio Introduzca la clave"
Text1.SetFocus
Else
If rs.RecordCount > 0 Then
' Aquí creo que deberia de aparecer el llamado al registro de la Base de Datos'
'Text1.Text =
'Text2.Text =
'Text3.Text =
Else
If rs.RecordCount <= 0 Then
MsgBox "Cedula Invalida"
Text1.Text = ""
Text1.SetFocus
'Else
'If Text1.Text = "" Then
'MsgBox "Campo Vacio Introduzca la clave"
'Text1.SetFocus
Else
MsgBox "Cddula incorrecta intente nuevamente", vbOKOnly + vbInformation, "Información..."
Text4.Text = Empty
Text4.SetFocus
End If
End If
End If
End Sub
¡¡¡Espero que me puedan ayudar!!!
Valora esta pregunta
0
