Hola :D La verdad gracias por esa respuesta... estoy aprendiendo a como usar mysql con visual basic.. yo estuve trabajando con access mucho tiempo pero pues ya se me medio olvido jajajaaja.. el punto es... estoy siguiendo el ejemplo que pusiste que por cierto muy bueno la verdad
Entonces yo hice esto:
Código:
Dim cn As ADODB.Connection
Dim res As ADODB.Recordset
Dim conexion As String
Public Sub Conectando()
Set cn = New ADODB.Connection
conexion = "driver={MySQL ODBC 5.1 Driver};" _
& "SERVER=localhost;" _
& "DATABASE=instrumentos;" _
& "UID=root;PWD=edno1982;OPTION=3"
cn.ConnectionString = conexion
cn.Open
Set res = New ADODB.Recordset
With res
.ActiveConnection = cn
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockOptimistic
End With
End Sub
Private Sub Command1_Click()
res.Close
res.Open "SELECT Nombre, Apellidos, Ficha, Contrato FROM usuarios where Ficha=" + Text2.Text
Set DataGrid1.DataSource = res
End Sub
Private Sub Form_Load()
Call Conectando
res.Open "SELECT Nombre, Apellidos, Ficha, Contrato FROM usuarios"
Set DataGrid1.DataSource = res
End Sub
En donde tengo el problema es en el boton:
Código:
Private Sub Command1_Click()
res.Close
res.Open "SELECT Nombre, Apellidos, Ficha, Contrato FROM usuarios where Ficha=" + Text2.Text
Set DataGrid1.DataSource = res
End Sub
Aqui cuando pongo el numero de ficha en el text2.text ejemp: 419719 y si existe tal ficha me manda todos los datos al datagrid, el problema es cuando no existe la ficha me manda este error:
Que se desconoce la columna Text2 en clause where... como puedo solucionarlo?
Lo que se me ocurrio fue poner un On error Resume Next para que se salte el error pero ese no es el caso.. me gustaria que al escribir una ficha no existente me mandara el mensaje de .. No existe tal ficha... espero me ayuden y gracias de antemano.