llenar list box en visual basic 6.0 desde una BD

[el_oso_xxx]

Alguien me podria ayudar a llenar una lista con los nombres de una
empresa que se encuentran guardados en una tabla de un BD, para poder
escoger una empresa de esa lista, y que a lo que le da a el boton
guardar de mi formulario me guarda el codigo de la empresa que
seleccione en otra tabla.
Estoy usando visual basic 6.0 y es para una aplicacion donde abro un
formulario de empleados de diferentes empresas para registrar sus
datos, y uno de los datos es a que empresa pertenece, por lo cual
tengo que llenar la lista con las empresas previamente cargadas para
seleccionar a cual trabaja dicho trabajador y guardar el codigo de la
empresa en la tabla empleado.
Ah no estoy enlazando directamente los data con las cajas de texto,
sino que lo ando haciendo a traves de codigo en los botones, por
ejemplo al darle al boton guardar valido si la clave principal no esta
repetida y luego que lo escribo en la BD,e stoy usando access.
No se si me explique?

[juan asprea]

Si no queres trabajar conectado a una base de datos permanentemente te conviene hacerlo manualmente el ingreso de las empresas al combo-box. podrías cargarlo en el load del formulario. la linea si no mal recuerdo (porque hace años que no programo) es "add nombre" (previo nombre del objeto.)

Con respecto al código de la empresa es más fácil inclusive. usa una sentencia IF, IF "tal empresa" THEN "en tal campo de tal tabla tal codigo" END.

jugador

 

---

[César Luis Bardales]

Hola amigo

Para llenar el combo con la tabla empresa es de la siguiente forma

Dim rs As New ADODB.Recordset
rs.Source = "Select id,nombre FROM empresa"
rs.ActiveConnection = sConeccion ' cadena de conexion
rs.Open
If Not (rs.BOF And rs.EOF) Then
rs.MoveFirst
combo.Clear
Do While Not rs.EOF
combo.AddItem rs!nombre
combo.ItemData(combo.NewIndex) = rs!id
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing

Y para sacar el id de la empresa lo haces de la siguiente forma

Dim sId as long

sId=combo.ItemData(combo.ListIndex)

y después tu mismos eres

espero que esto haya resuelto tus problemas

saludos

-----Mensaje original-----
De: VisualB...@googlegroups.com [mailto:VisualB...@googlegroups.com]
En nombre de el_oso_xxx
Enviado el: Martes, 09 de Octubre de 2007 11:07 p.m.
Para: VisualBasic 6.0
Asunto: llenar list box en visual basic 6.0 desde una BD