Busqueda usando un DBLookupComboBox

[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...

[esimon]

estoy usando un ComboBox, para llenarlo con los campos q tiene la base de datos pais.