Busqueda usando un DBLookupComboBox

[[maeyanes]]

La consulta está bien...

Cuando en una consulta SQL pones algo como :Variable, le estás diciendo que ahí vas a pasar un parámetro:

Código Delphi [-]
Query1.SQL.Add('select * from Tabla where Campo1 = :Valor');
Query1.Prepare:
Query1.ParamByName('Valor').AsString := 'México'; //  Aquí estoy poniendo un valor al parámetro "Valor"
Query1.Open;

Saludos...

[[Caral]]

Ves Siempre he dicho que esta bolita hay que cambiarla, se le escapan muchas cosas, la verdad si es asi, no veo en donde este el fallo, tendria que devolver el valor, lo que pasa es que se quiere el valor en un DBGrid, si no me equivoco, Donde esta este ? (Qry_Consulta_TipoAcuerdo) es el nombre de este ?, me parece que no. o falta informacion ?.
No se aqui aprendiendo, maestro
Saludos

[[Caral]]

Exacto Maeyanes.
El Query (Qry_Consulta_TipoAcuerdo) contiene la consulta sql, envia los parametros (Ya aprendi), los recibe y los traslada al dbgrid, que tiene que estar conectado al datasource (Conetado al query) que a su vez tiene que estar conectado al dbgrid, de lo contrario nunca vera nada el dbgrid.
Hay que verificar la conexion si la sentencia es la correcta.
Saludos

[esimon]

Gracias Caral por la sugerencia hice una consulta en Access y funciona de las dos formas, el problema esta en el codigo que pongo en el boton, el cual no veo que tiene de estraño para que no funciones.

[[Caral]]

Una de las cosas que te tienes que preguntar es si el campo pPais es String o compatible con el text del DBLokupComboBox1, osea campo tipo texto, porque de lo contrario deverias cambiar la sentencia del boton, en esa parte.
Saludos

[esimon]

si ese parametro es string y el DBLookupComboBox1.Text tambien maneja el campo string.

que diferencia hay entre el DBLookupComboBox1 y ComboBox, si uso el ComboBox, funciona.

lo que quiero hacer es, tengo una tabla de Pais en Access y como el ComboBox no me permite relacionarlo con la base de tados utilizo el DBLookupComboBox1, entoce lo que seleccion en este componente lu muestre en un DBGrisd y para esto utiliso el boton.

[[egostar]]

Prueba con este código:

Código Delphi [-]
 
Qry_Consulta_TipoAcuerdo.Parameters.ParamByName('pPais').VAlue := Table1Campo.AsString;

Table1 debe ser la tabla que tiene el dato asignado al DBLookup y campo el dato asignado al DBLookup, por ejemplo si la tabla se llama PAISES y el campo PAIS entonces sería:

Código Delphi [-]
 
Qry_Consulta_TipoAcuerdo.Parameters.ParamByName('pPais').VAlue := PAISESPAIS.AsString;

Espero haberme explicado.

Saludos

[[maeyanes]]

Y en haciendo un seguimiento de tu programa (F7 o F8), la propiedad Text del TDBLookupComboBox tiene algún valor?

No recuerdo bien como funciona el TDBLookupComboBox, pero al ser un control de datos, este se supone que sirve para modificar un cambo usando los datos de otra tabla...

Ahora, para usa un TComboBox, puedes hacer lo siguiente:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  with TQuery.Create(nil) do
    try
      Database := TDatabase1;
      SQL.Text := 'select PaisNombre from Paises'; // Estoy suponiendo el nombre de la tabla y sus campos
      Prepare;
      Open;
      First;
      while not Eof do
      begin
        ComboBox1.Items.Add(Fields[0].AsString);
        Next
      end
    finally
      Free
    end
end;

Con esto llenas el TComboBox con los valores de la tabla paises y lo puedes usar como deseas...


Saludos...

[esimon]

gracias marcos.

la sentencia me esta dando el siguiente error.

[Error] Un_Con_Pais.pas(317): Undeclared identifier: 'Prepare'

[[maeyanes]]

Que componentes estás usando para el acceso a los datos?

La verdad que yo supuse que fueran los basados en BDE, pero podrían ser otros. Si es así, solo elimina la línea donde dice Prepare y debería funcionar...



Saludos...