Conectando con BD en Access

[Zucra]

Hola, bueno, soy bastante nuevo en delphi y estoy intentando hacer un programa, en el tengo en un DataModule un DataSource conectado con un ADOQuery que a su vez esta conectado con el ADOConection y luego un ADOCommand conectado tambien al ADOConection y este ultimo conectado a la base de datos. Por otro lado, tengo un formulario, con un par de ComboBox (en ellos deberia mostrar los elementos de las tablas de la base de datos) y bueno, mi consulta es, como conecto la ComboBox con el DataSource del DataModule, o como tendria que hacer, para lograr eso que quiero, mostrar los elementos.

Desde ya muchas gracias

[ecfisa]

mi consulta es, como conecto la ComboBox con el DataSource del DataModule, o como tendria que hacer, para lograr eso que quiero, mostrar los elementos.

Hola Zucra.

En realidad no podés conectar un TDataSource a un TComboBox, tendrías que recorrer el ADOQuery del principio al fin e ir cargando el campo que te interese en su propiedad Items. Si es posible conectarlo a un TDBComboBox, pero a efectos de mostrar o seleccionar un campo el TDBLookupComboBox te va a simplificar mucho la tarea. Te pongo unos enlaces que recuerdo se trata sobre el uso (hay muchos más si haces una búsqueda en los foros).

• como levantar datos a un DBLookupComboBox
• DbLookup
• DBLookUpCombobox (ejemplo de carga de TDBComboBox)

Saludos.

[Zucra]

Muchas gracias, ya pude hacerlo, buenisima la info pero tengo un problema... en el DBLookUpComboBox no se puede escribir... y yo necesito que me muestre lo que tengo en la tabla, pero a la vez que me deje escribir para poder agregar un nuevo elemento a la tabla... por eso utilizaba la combobox comun... pero con la combobox comun, no logro que me muestre la lista de elementos, solo me muestra uno

[kapcomx]

ESPERO ESTE EJEMPLO TE SIRVA HAGO UNA CONSULTA Y EL RESULTADO LO AGREGO AL COMBO ....


//hago la consulta..

Código Delphi [-]
with QUERY1 do   
begin
close;
sql.clear;
sql.add('SELECT * FROM CLIENTES');
execSQL;
open;
end;

COMBOBOX1.Clear; //LIMPIO EL COMBO
COMBOBOX1.Items.Add('TODOS'); //OPCIONAL 

//HAGO UN RECORRIDO EN EL RESULTADO DE LA CONSULTA Y LLENO EL COMBO
QUERY1.First;
WHILE NOT (QUERY1.EOF) DO
BEGIN
   COMBOBOX1.Items.Add(QUERY1.FieldValues['CLIENTE']);
QUERY1.Next;
end;

SALUDOS...

[ecfisa]

Hola kapcomx.

Por favor cuando incluyas código en el mensaje utiliza TAG's:



Saludos y gracias por tu colaboración.

[kapcomx]

ok ecfisa, de hecho los puse, nose por que no saldrian, prometo usar la vista previa para futuros mensajes ...

[ecfisa]

Empezado por kapcomx

ok ecfisa, de hecho los puse, nose por que no saldrian, prometo usar la vista previa para futuros mensajes ...

Hola.

Seguramente se deba al problema que existe con la interfaz mejorada (WYSIWYG) del editor de mensajes del foro. Para evitar el problema de las etiquetas yo utilizo el estandard, aunque su uso es un poquito más espartano, en cambio no te generará ningún problema.

Podés cambiarlo desde: User CP -> Editar Opciones -> Interfaz del Editor de Mensajes -> Editor Estándar -> Controles de Formato Extra


Un saludo.