Visual Basic - Boton de BUSCAR

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 2
Ha disminuido su posición en 31 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Boton de BUSCAR

Publicado por Snake (1 intervención) el 23/10/2020 18:07:00
Buenos días

Soy Nuevo en esto de la programación así que inicie en Visual Basic 6.0, inicio con mi historia quiero hacer un sistema de inventario de computadoras ingresando IP, SISTEMA OPERATIVO, MODELO, etc., donde tengo los botones de NUEVO, ELIMINAR, GUARDAR y BUSCAR el problema que tengo es con el botón BUSCAR ya que no encuentro la manera de buscar la información dentro de un textbox ( que es la IP) cabe mencionar que en mi base de datos el campo IP está declarada tipo texto.

Me gustaría que cuando de clic en el botón BUSCAR me aparezca una pantalla donde deba escribir la IP y si en dado caso no existe o no la encuentra envié mensaje de que NO EXISTE y si existe enviar todo los datos en pantalla.
Espero a verme explicado

mi codigo

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub btmBuscar_Click()
AQUI FALTA MI CODIGO
End Sub
 
Private Sub btmSalir1_Click()
End
End Sub
 
Private Sub Command1_Click()
Data1.UpdateRecord
Data1.Refresh
MsgBox "El Registro ha sido Guardado en la Base de Datos", vbExclamation, "Aviso Importante"
End Sub
 
Private Sub Command3_Click()
If MsgBox("¿Quieres Eliminar la IP Número: " & Text1 & "?", 16 + 4) = 6 Then
Data1.Recordset.Delete
Data1.Refresh
Text1.SetFocus
MsgBox "Se Eliminó la IP", vbCritical, "Aviso Importante"
Else
MsgBox "No se Eliminó la IP Número: " & Text1, vbExclamation, "Aviso Importante"
End If
End Sub
 
Private Sub Command4_Click()
Data1.Recordset.AddNew
End Sub


Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 355
Bronce
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Boton de BUSCAR

Publicado por raul (117 intervenciones) el 24/10/2020 00:08:06
Hola SNAKE, por lo que infiero en tu consulta estas usando una conexión de acceso tipo DAO que desde hace mucho tiempo no empleo, verifica si te funciona este codigo.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private sub BUSCAR()
on local error goto et 'Mecanismo para controlar errores
DIM PCIP as string, tmp as string, ID_ACTUAL as integer
PCIP = imputbox("Ingrese la IP de la PC a buscar")
'1- Comprobar que se han ingresado datos
if len(PCIP) =0 then
msgbox"Operación Cancelada: No se ha ingresado ninguna IP para buscar", vbcritical
exit sub
end if
'2- Crear la cadena a buscar
tmp = "IP = '" & PCIP & "'"
'3- Mecanismo de busqueda
ID_actual = data1.bookmark
data1.recordset.FindFirst tmp
exit sub
et: 'Usualmente se produce un error si no encuentra el dato
err.clear
data1.recordset.move ID_actual ' Regresar al registro anterior a que se produjera un error
msgbox"La IP " & PCIP & " no se encuentra registrada en sus sistema".
end sub
 
 
 
Private Sub btmBuscar_Click()
Call BUSCAR
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Boton de BUSCAR

Publicado por christian (713 intervenciones) el 24/10/2020 04:55:00
Hola amigo.
Primero te recomiendo que veas cómo hacer un CRUD con ADO
Aprende sobre el objeto connection, recordset y command.
No sé que base utilizas, aprende SQL. SELECT, INSERT, UPDATE Y DELETE


Te aseguro que aprendiendo esto en vb6, luego lo vas a mejorar en .NET ya sea con VB.NET o con C#.

si quieres tienes mi correo y enviándome el código te lo paso bien explicado.

saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar