mil gracias aquien me pueda ayudar. lo que pasa es que necesito crear una base lista desplegable en visual basic 6.0 pero quiero que al me de la opcion para elejir un valor ejemplo. que ingrese 5 nombres y que de esos 5 nombres yo pueda elejir uno cualquiera y automaticamente me aparescan valores como la direccion, edad, cedula, etc. u otro ejemplo seria que tengo un rejistro de productos y al elejir un producto me aparesca el valor unitario de ese producto, el valor total, cuantos hay, cuantos me quedan, etc. xfis si alguien me ayuda.
Copyright © 2024 ANSWERS.MX - All rights reserved.
Answers & Comments
Verified answer
Hola:
Podes hacerlo con una base de datos como access, o con archivo donde guardaras los datos (si no son muchos, por ahi conviene por su facilidad de manejo)
Luego, en el load del formulario, cargas el combo con los datos a visualizar, junto con el Id del registro en el itemdata del mismo.
Al hacer click, ese dato se usa en una consulta para traer de la base o del archivo los datos restantes.
Para usar un archivo:
Asi lo generaras y guardaras los datos
Consta de dos comandos en la parte de abajo de un formulario en blanco, ya que la parte de arriba se usa para mostrar los datos, un comando es un boton, el otro un combobox
Este es el codigo
Private Sub Combo1_Click()
Open "C:\Tabla1.dat" For Input As #1
Cls
Form1.Print "Datos Pedidos:": Print
Do While Not EOF(1)
Input #1, Orden, Nombre, Edad, Direccion, DocIdent, Etc
If Orden = Combo1.ItemData(Combo1.ListIndex) Then
Print Nombre, Edad, Direccion, DocIdent, Etc
End If
Loop
Close #1
End Sub
Private Sub Command1_Click()
On Error GoTo sale
Form1.Cls
i% = 0
r$ = InputBox("<Enter = Antiguo Registro; 1 = Nuevos.> Opcion")
If r$ <> "1" Then
GoTo lee:
End If
Open "C:\Tabla1.dat" For Output As #1
Do
Nombre$ = InputBox(" NOMBRE: ") 'Lee datos desde el teclado.
Edad% = InputBox(" Edad: ")
Direccion$ = InputBox(" Direcion: ")
DocIdent$ = InputBox(" Nro Doc.Identidad: ")
Etc$ = InputBox(" Etc: ")
Orden% = i%
Write #1, Orden, Nombre, Edad, Direccion, DocIdent, Etc
r$ = InputBox("<Enter= No, S=S¡> Desea ingresar otro Registro?")
i% = i% + 1
Loop While UCase$(r$) = "S"
Close #1
lee: 'Mostrar el archivo en la pantalla.
Open "C:\Tabla1.dat" For Input As #1
Cls
'//Form1.Print "Datos en el archivo:": Print
Combo1.Clear
Do While Not EOF(1)
'//Line Input #1, REC$ 'Leer datos del archivo(por linea).
'//Print REC$ 'Imprimir los datos en la pantalla.
Input #1, Orden, Nombre, Edad, Direccion, DocIdent, Etc
Combo1.AddItem Nombre
Combo1.ItemData(Combo1.NewIndex) = Orden
Loop
Close #1
Exit Sub
sale:
MsgBox "ERROR "
End Sub
Para usar base de datos, tenes que armar una conexion y un recordset, pero con esto te alcanza para lo que pedistes
Dios te bendiga
Saludos
Antonio
esto te ayudara
en visual 6
http://www.forosdelweb.com/f69/base-datos-visual-b...
o sino escribe llenar datos en un combobox i ai te mostrara muchos ejemplos suerte