Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Visual Basic » POR FAVOR EL CODIGO DEL BOTON BUSCAR UN REGISTRO POR CEDULA

Visual Basic - POR FAVOR EL CODIGO DEL BOTON BUSCAR UN REGISTRO POR CEDULA

Life is soft - evento anual de software empresarial
Volver
Nuevo Tema
<<>>
 
Vista:

POR FAVOR EL CODIGO DEL BOTON BUSCAR UN REGISTRO POR CEDULA

Publicado por FELIX MENDOZA (1 intervención) el 11/09/2012 18:04:11
TENGO LA SIGUIENTE TABLA:

ID
NOMBRE
APELLIDO
CEDULA
FECHA DE NACIMIENTO
FOTO

POR FAVOR EL CODIGO DEL BOTON BUSCAR UN REGISTRO POR CEDULA
NECESITO QUE AL INTRODUCIR UN NUMERO DE CEDULA EN UN TEXT ME BUSQUE EL REGISTRO RESPECTIVO MOSTRANDO TODOS LOS CAMPOS DE DICHA CEDULA..LES AGRADECERIA ESA INFORMACION...DE ANTEMANO 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: 7
Ha aumentado su posición en 2 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

POR FAVOR EL CODIGO DEL BOTON BUSCAR UN REGISTRO POR CEDULA

Publicado por El Viejo CHarles (262 intervenciones) el 12/09/2012 17:29:59
Bueno amigo, es algo amplia tu solicitud de ayuda, no creo que nadie te escriba un codigo completo para eso que necesitas (Ya que demanda bastante tiempo), pero mira este codigo de ejemplo a ver si te sirve, es un ejemplo de como se hace una busqueda de datos en una base de datos:
http://www.lawebdelprogramador.com/codigo/Visual_Basic/846-Buscador_en_bases_de_datos.html
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
Imágen de perfil de Ing.Ramon Alexander Perez Batista

POR FAVOR EL CODIGO DEL BOTON BUSCAR UN REGISTRO POR CEDULA

Publicado por Ing.Ramon Alexander Perez Batista (17 intervenciones) el 24/09/2012 03:31:36
dim cedula as string
cedula=txtcedual.text
'busca la cedula
tabla.find("cedula='") & cedula & "'",,,1
'verifica si se ha encontrado regsitro y lo muestra

if tabla.bof=false and tabla.eof=false then
txtnombre.text=tabla.fields("Nombre")
txtapellido.text=tabla.fields("Apellido")
else
msgbox "no se ha encontrado la cedula introducida"
end if
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
sin imagen de perfil

POR FAVOR EL CODIGO DEL BOTON BUSCAR UN REGISTRO POR CEDULA

Publicado por sergio (2 intervenciones) el 04/12/2014 07:16:07
buenas no entiendo bien este codigo
1
2
3
4
5
6
7
8
9
10
11
12
dim cedula as string
cedula=txtcedual.text
'busca la cedula

tabla.find("cedula='") & cedula & "'",,,1
'verifica si se ha encontrado regsitro y lo muestra

 
if tabla.bof=false and tabla.eof=false then
txtnombre.text=tabla.fields("Nombre")
txtapellido.text=tabla.fields("Apellido")
else
msgbox "no se ha encontrado la cedula introducida"
end if

yo nececito hacer una busqueda con un boton y no entindo bien este codigo me pueden explicar con mas detalle paso por paso
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

POR FAVOR EL CODIGO DEL BOTON BUSCAR UN REGISTRO POR CEDULA

Publicado por claudia (1 intervención) el 27/11/2017 21:14:27
alguien que me pueda explicar este codigo
y para que sirve

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub cmbEstados_Change()
Dim municipio As String
municipio = cmbEstados.Text
strSQL = "Select Distinct [D_mnpio] From [DatosCP$] where [d_estado] = "
strSQL = strSQL & "'" & municipio & "'" & " Order by [D_mnpio]"
    closeRS
    OpenDB
    cmbMunicipios.Clear
 
    rs.Open strSQL, cnn, adOpenKeyset, adLockOptimistic
    If rs.RecordCount > 0 Then
        Do While Not rs.EOF
            cmbMunicipios.AddItem rs.Fields(0)
            rs.MoveNext
        Loop
    Else
        MsgBox "No se encontro ningún nombre del municipio.", vbCritical + vbOKOnly
        Exit Sub
    End If
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
sin imagen de perfil
Val: 7
Ha aumentado su posición en 2 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

POR FAVOR EL CODIGO DEL BOTON BUSCAR UN REGISTRO POR CEDULA

Publicado por Carlos Alberto (262 intervenciones) el 27/11/2017 21:35:48
//SEGUN, EMPLEA LOS DATOS DE UNA CAJA DE TEXTO PARA LUEGO CONCATENAR UNA CONSULTA SQL, LUEGO EJECUTAR DICHA CONSULTA Y SI DEVUELVE DATOS SE AGREGAR EL RESULTADO EN UN COMBO LLAMADO cmbMunicipios, SI NO HAY DATOS ARROJA EL MENSAJE "No se encontro ningún nombre del municipio."
TODO LO ANTERIOR SOLO SE EJECUTA CUANDO EN EL OBJETO cmbEstados SE REALIZA UN CAMBIO DE TEXTO.

Private Sub cmbEstados_Change()
Dim municipio As String
municipio = cmbEstados.Text
strSQL = "Select Distinct [D_mnpio] From [DatosCP$] where [d_estado] = "
strSQL = strSQL & "'" & municipio & "'" & " Order by [D_mnpio]"
closeRS
OpenDB
cmbMunicipios.Clear

rs.Open strSQL, cnn, adOpenKeyset, adLockOptimistic
If rs.RecordCount > 0 Then
Do While Not rs.EOF
cmbMunicipios.AddItem rs.Fields(0)
rs.MoveNext
Loop
Else
MsgBox "No se encontro ningún nombre del municipio.", vbCritical + vbOKOnly
Exit Sub
End If
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