como enlazar un query con un dbgrid

[[egostar]]

Empezado por Puberta

Perdona que te moleste de nuevo, tengo una duda similar quiero hacer lo mismo con un comboBox, pero no me queda...la pregunta es, se hace lo mismo...porque no me queda.

FPAutomoviles.QMarca.SQL.Text:='SELECT NOMBRE_MARCA FROM CAT_MARCA WHERE ID_MARCA LIKE :PARAMETRO';
FPAutomoviles.QMarca.ParamByName('PARAMETRO').Value := FPAutomoviles.DBMarca.Text;
FPAutomoviles.QMarca.Active:=true;
while not FPAutomoviles.QMarca.Eof do
begin
FPAutomoviles.DBMarca.Items.Add(FPAutomoviles.QMarca.Fields[0].text);
FPAutomoviles.QMarca.Next;
end;

Se supone que leé 'ID_MARCA', el cual es el valor del combo(en este caso solo es un item) y conforme a este me hace la consulta para traerme el nombre de la marca....lo tengo en un combo porque posteriormente (al momento de agregar un registro) deseo que me devuelva todos los registros de una tabla, lo cual tampoco hace, que puede ser?

Nota....perdona que lo lo haya agregado a otro hilo.

No entiendo algo,

Estas buscando datos en una tabla con el valor que tienes en un ComboBox (imagino que ahí seleccionas el ID_MARCA), pero despues quieres meter todos los dato que encuentras con esa consulta en el mismo ComboBox diferente a ID_MARCA



Puedes aclaranos eso por favor...

Salud OS

[Puberta]

Hola, perdona que no me halla explicado. Más o menos esto es lo que debo hacer.

1. Tengo un ComboBox(Marcas) en un Formulario, este esta asociado a un field(Nombre) de la Tabla (Automoviles), con el style = csSimple.
2. Cuando lo ejecuto me muestra el ID de la marca(porque es el que esta guardado en la tabla Automoviles).
3. Mediante una consulta quiero que consulte la Tabla Marca y me devuelva como resultado el nombre de la marca, es decir, deseo que el usuario visualice el nombre de la marca, no el Id.
4. Cuando el usuario presione le boton 'Nuevo' o 'Editar', entonces se realizará una consulta a la tabla Marca y me devolverá todos los nombres de las marcas.
5. Automáticamente cuando seleccione un nombre se relizará otra consulta, pero ahora a la tabla Modelos y se llenará un segundo ComboBox(Modelos) con todos los registros relacionados con esa Marca. - el style cambiará a 'csDropDown'
6. Posteriormente deberé guardar los valores seleccionados en mi Tabla original(Automóviles).

Espero me halla explicado, y me puedas ayudar. Sé que es un básico y sencillo pero no me sale...lo peor es que se supone que soy programadora (sin experiencia ni lógica, es obvio).

[[Lepe]]

Eso mismo lo hace el componente TDBLookUpComboBox, quizás te simplifique las cosas, ya que llena el combo con todos los items.

Creo me falta el nombre de una tabla, así que me la invento. Supongamos que tienes una tabla Seguros_de_automoviles, y ahí quieres guardar la marca y modelo de un automovil asegurado, claro, solo vamos a guardar el id_marca y el id_modelo, porque las descripciones están en las tablas AUTOMOVILES y MODELOS respectivamente.

En el DBLookupcombobox tendrías que asignar las siguientes propiedades en el inspector de objetos

Datasource := un datasource a la tabla seguros_de_automoviles
Field := un campo de la tabla seguros_de_automoviles que se llama id_marca (será clave ajena o foránea de la tabla automoviles)


ListSource := un query con: 'SELECT id_marca, NOMBRE_MARCA FROM CAT_MARCA WHERE ID_MARCA LIKE :PARAMETRO order by NOMBRE_MARCA'
ListField:= NOMBRE_MARCA;
KeyField := id_marca;

Como digo, eso guarda en la tabla seguros_de_automoviles el id de la marca, pero el combobox mostrará los nombres de las marcas.

No borres los componentes que usas ahora mismo, ya que puede que no te guste (en estética o uso) esta nueva forma. Haz las pruebas y tu misma decides. ¿y por qué digo esto?, porque en el DBLookupCombo no se verá el cursor del ratón, y da la impresión de que no permite escribir dentro de él.

Saludos.

[Puberta]

Si funciona....gracias!!!