Manipular Base de Datos de Access con VB6.0

[Cerrado]
Denunciar
-
 pichiclin -
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

4 respuestas

Message postés
13
Date d'inscription
domingo, 7 de junio de 2009
Estatus
Miembro
Última intervención
jueves, 23 de julio de 2009
35
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 =)
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.
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
Hola:


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