Foros del web, para los que viven de bits

ensaltalobas · 28-mar-2005, 10:58

queridos amigos del foro Una vez mas acudo a ustedes , para pedir ayuda

necesito enviar todos los datos de una tabla a un combobox

creo que es con un dountil/loop pero no he podido solucionarlo
trabajo con vb6 access 2000 y conexion DAO

Cualquier ayuda sera bien recibida GRACIAS¡¡¡¡¡

lucasiramos · 28-mar-2005, 11:07

Hola. A ver si te sirve...

Código:

Private Sub CargarCbo()
cboArea.Clear
cboAreaFiltro.Clear
 
With TAREAS
	 If .EOF = False Or .BOF = False Then
		 .MoveFirst
		 Do While .EOF <> True
			 cboArea.AddItem Trim(.Fields!DescArea.Value)
			 cboArea.ItemData(cboArea.NewIndex) = CInt(.Fields!CodArea.Value)
 
			 .MoveNext
		 Loop
 
	 End If
End With
End Sub

TAREAS es el Recordset que estoy cargando en el combobox, DescArea es lo que quiero mostrar y CodArea es el código de área (como te habras dado cuenta...)

Si no funciona veremos como lo solucionamos... Saludos. Lucas

rodfergi · 29-mar-2005, 17:32

Para que sirve el .value que anades despues de .DescArea y de .CodArea?

vbx3m · 30-mar-2005, 03:28

Sirve para que el valor de ese campo (value) aparezca en el combobox... Eso es todo... el valor, en este caso del campo...

28-mar-2005, 10:58	#1 (permalink)
ensaltalobas Fecha de Ingreso: marzo-2005 Mensajes: 22	Como enviar datos de una tabla a un combobox??? queridos amigos del foro Una vez mas acudo a ustedes , para pedir ayuda necesito enviar todos los datos de una tabla a un combobox creo que es con un dountil/loop pero no he podido solucionarlo trabajo con vb6 access 2000 y conexion DAO Cualquier ayuda sera bien recibida GRACIAS¡¡¡¡¡

28-mar-2005, 11:07	#2 (permalink)
lucasiramos Fecha de Ingreso: agosto-2004 Ubicación: Santa Rosa, La Pampa, Argentina Mensajes: 1.272	Hola. A ver si te sirve... Código: Private Sub CargarCbo() cboArea.Clear cboAreaFiltro.Clear With TAREAS If .EOF = False Or .BOF = False Then .MoveFirst Do While .EOF <> True cboArea.AddItem Trim(.Fields!DescArea.Value) cboArea.ItemData(cboArea.NewIndex) = CInt(.Fields!CodArea.Value) .MoveNext Loop End If End With End Sub TAREAS es el Recordset que estoy cargando en el combobox, DescArea es lo que quiero mostrar y CodArea es el código de área (como te habras dado cuenta...) Si no funciona veremos como lo solucionamos... Saludos. Lucas __________________ No sign...

30-mar-2005, 03:28	#4 (permalink)
vbx3m Fecha de Ingreso: febrero-2005 Ubicación: Venezuela Mensajes: 524	Sirve para que el valor de ese campo (value) aparezca en el combobox... Eso es todo... el valor, en este caso del campo... __________________ ホルヘ・ラファエル・マルティネス・レオン

Herramientas
Mostrar Versión Imprimible Enviar por Correo
Desplegado
Mode Lineal Cambiar a Modo Hibrido Cambiar a Modo Hilado

29-mar-2005, 17:32	#3 (permalink)
rodfergi Fecha de Ingreso: marzo-2005 Mensajes: 9	Para que sirve el .value que anades despues de .DescArea y de .CodArea?