Manipular Base de Datos de Access con VB6.0
Cerrado
Hola,
Estoy realizando mi primer sistema para un clinica en Visual Basic 6.0 y necesito que me ayuden con el siguiente tema: Si un paciente ya esta registrado en la base de datos y luego quiero registrar un turno para ese paciente quiero que cuando se coloque su numero de historia clinica se carguen automaticamente los datos personales del paciente. Cómo puedo lograr esto? Agradecere muchisimo su qyuda
Estoy realizando mi primer sistema para un clinica en Visual Basic 6.0 y necesito que me ayuden con el siguiente tema: Si un paciente ya esta registrado en la base de datos y luego quiero registrar un turno para ese paciente quiero que cuando se coloque su numero de historia clinica se carguen automaticamente los datos personales del paciente. Cómo puedo lograr esto? Agradecere muchisimo su qyuda
Consulta también:
- Manipular Base de Datos de Access con VB6.0
- Access base de datos descargar - Programas - Bases de datos
- Pasar datos de una hoja de excel a otra automáticamente - Guide
- Que es una base de datos - Guide
- Eliminar base de datos mysql - Guide
- Administrador de base de datos - Guide
4 respuestas
crazyzero
Mensajes enviados
13
Fecha de inscripción
domingo, 7 de junio de 2009
Estatus
Miembro
Última intervención
jueves, 23 de julio de 2009
35
7 jun 2009 a las 06:25
7 jun 2009 a las 06:25
talves esto te ayude un comanbuton para agragar un rejistro, el codigo es el siguiente:
Adodc1.Recordset.AddNew
para modificar un registro es
Adodc1.Recordset.Update
para eliminar un rejistro es
Adodc1.Recordset.Delete
espero y te aya ayudado =)
Adodc1.Recordset.AddNew
para modificar un registro es
Adodc1.Recordset.Update
para eliminar un rejistro es
Adodc1.Recordset.Delete
espero y te aya ayudado =)
su pongamos q tenemos una base de datos llamada clientes con los sigtes campos: codcliente-nombre-apellido-telefono.
la busqueda se realizaria de a sigtes forma:
realiza la busquedad
rs.find("codcliente")='" & txtbusqueda.text "'" & ,,,1
si la busquedad tiene exito muestra los datos
if rs.BOF=false and rs.EOF then
tnombre.text=rs.fields("nombre")
tapellido.text=rs.fields("apellido")
ttelefono.text=rs.fields("telefono")
end if
espero q te ayude es te codigo.
la busqueda se realizaria de a sigtes forma:
realiza la busquedad
rs.find("codcliente")='" & txtbusqueda.text "'" & ,,,1
si la busquedad tiene exito muestra los datos
if rs.BOF=false and rs.EOF then
tnombre.text=rs.fields("nombre")
tapellido.text=rs.fields("apellido")
ttelefono.text=rs.fields("telefono")
end if
espero q te ayude es te codigo.
Hola que tal mi nombre es Mariuxi Jimbo, y tengo un codigo que de pronto pueda ayudarte, lo primero que tienes que hacer es enlazar los text donde quieres q se visualice la información con un adodc1, posteriormente crea un boton y ahi pones el siguiente codigo, este codigo te realizara una búsqueda y si encuentra en base de datos los datos los viisualizara.
On Error GoTo BuscarErr
Dim auxced As String
Dim auxcon As String
auxced = InputBox("Ingresar Cedula a buscar: ", "Busqueda", "0")
auxcon = "num_ced like '" & Trim(auxced) & "'"
Adodc1.Recordset.Find auxcon
If Adodc1.Recordset.EOF Or Adodc1.Recordset.BOF Or (Label2 <> auxced) Then
MsgBox "No existe el dato buscado"
End If
Exit Sub
BuscarErr:
MsgBox Err.Description
On Error GoTo BuscarErr
Dim auxced As String
Dim auxcon As String
auxced = InputBox("Ingresar Cedula a buscar: ", "Busqueda", "0")
auxcon = "num_ced like '" & Trim(auxced) & "'"
Adodc1.Recordset.Find auxcon
If Adodc1.Recordset.EOF Or Adodc1.Recordset.BOF Or (Label2 <> auxced) Then
MsgBox "No existe el dato buscado"
End If
Exit Sub
BuscarErr:
MsgBox Err.Description