Manipular Base de Datos de Access con VB6.0 Cerrado

Question

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

crazyzero · Answer

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 =)

alex · Answer

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.

maru · Answer

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

pichiclin · Answer

Hola:


Gracias por la ayuda brindada, la verdad que me fue de muchísima ayuda!!

Manipular Base de Datos de Access con VB6.0

4 respuestas

Discusiones similares

¡Suscríbete a nuestra Newsletter!