
30/12/2010, 16:39
|
| | Fecha de Ingreso: diciembre-2010
Mensajes: 1
Antigüedad: 14 años, 3 meses Puntos: 0 | |
error 424 en tiempo de ejecución visual basic Estoy realizando una aplicación en visual basic 6.0, en un formulario tengo unos textbox configurados y listos para mostrar datos de una base de datos de access por medio de un adodc, esta parte esta completamente funcional. el caso es que tengo un boton "buscar", el cual la idea es que pueda abrir un dialogo para buscar en la base datos y mostar los datos en la misma pantalla que les mencione.
La verdad soy novato y no se hacerlo, lo unico que consegui es un par de codigos para este proposito pero no se como adaptarlos. si alguien me puede ayudar se le agradece.
aca estan los codigos
CODIGO 1
Private Sub Command1_Click()
Dim Buscado As String, Criterio As String
Buscado = InputBox("Producto a Buscar", "Altas")
If Not DataAltas.Recordset.EOF Then
Criterio = "nombre_producto like'*" & Buscado & "*'"
DataAltas.Recordset.MoveNext
DataAltas.Recordset.FindFirst Criterio
If DataAltas.Recordset.NoMatch Then
DataAltas.Recordset.MoveLast
MsgBox ("No encontre ese Producto")
End If
End If
End Sub
CODIGO 2
Private Sub buscar_Click()
Dim kazakanjes As Long
kazakanjes = Val(InputBox("Introduce la Cedula que buscas")
Data1.Recordset.FindFirst "id " & kazakanjes
If Data1.Recordset.NoMatch Then
MsgBox "La Cedula numero: " & kazakanjes & "No esta en la base de datos", vbInformation, "Kazakanjes Channel"
End If
End Sub |