Problemas con el codigo SQL

[Vales08]

Muchas gracias por contestar, pero sigue sin funcionar.. Te pongo el error que me da..

---------------------------
Debugger Exception Notification
---------------------------
Project Project_tesis.exe raised exception class EDatabaseError with message 'Q_loc: Field 'ID_LOC' not found'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

Y este error salta con cada Campo de la tabla.. Por eso no me queda otra que seleccionar todos (select *).

[[Caral]]

Hola
Segura que no va este ?:

Código Delphi [-]
DM.Q_loc.SQL.Clear;
DM.Q_loc.SQL.Add('select LOCALIDAD from LOCALIDADES ORDER BY LOCALIDAD');
DM.Q_loc.Open;
while not DM.Q_loc.Eof do
  begin
    loc_cons_inst.Items.Add(DM.Q_loc.FieldByName('LOCALIDAD').AsString);
    DM.Q_loc.Next;
  end;

Prueba este:

Código Delphi [-]
DM.Q_loc.SQL.Clear;
DM.Q_loc.SQL.Add('select LOCALIDAD from LOCALIDADES');
DM.Q_loc.Open;
while not DM.Q_loc.Eof do
  begin
    loc_cons_inst.Items.Add(DM.Q_loc.FieldByName('LOCALIDAD').AsString);
    DM.Q_loc.Next;
  end;

Saludos

[Vales08]

Me sigue dando el mismo error, lo que sucede es que yo no necesito ordenar, necesito si o si agrupar para que no me repita los campos sino me los muestra 2 veces...
Y realizandolo de esta forma tampoco me funciona

Código Delphi [-]
DM.Q_loc.SQL.Clear;
DM.Q_loc.SQL.Add('select LOCALIDAD from LOCALIDADES');
DM.Q_loc.Open;
while not DM.Q_loc.Eof do
  begin
    loc_cons_inst.Items.Add(DM.Q_loc.FieldByName('LOCALIDAD').AsString);
    DM.Q_loc.Next;
  end;

La verdad que no se porque me hace eso, porque me tendria que permitir seleccionar de a un campo solo, sin necesidad de seleccionar todo..

[[Caral]]

Hola
a la brava

Código Delphi [-]
DM.Q_loc.SQL.Clear;
DM.Q_loc.SQL.Add('select DISTINCT LOCALIDAD from LOCALIDADES');
DM.Q_loc.Open;
while not DM.Q_loc.Eof do
  begin
    loc_cons_inst.Items.Add(DM.Q_loc.FieldByName('LOCALIDAD').AsString);
    DM.Q_loc.Next;
  end;

Saludos

[[Caral]]

Hola
Casi me la juego :

Código Delphi [-]
DM.Q_loc.SQL.text:= 'select DISTINCT LOCALIDAD from LOCALIDADES';
DM.Q_loc.Open;
while not DM.Q_loc.Eof do
  begin
    loc_cons_inst.Items.Add(DM.Q_loc.FieldByName('LOCALIDAD').AsString);
    DM.Q_loc.Next;
  end;

Saludos

[ecfisa]

Hola Vales.

Te hago una consulta: ¿ Agregaste campos persistentes ? Es decir, ¿ Tenés DBEdits, etc., relacionados con un 'SELECT * FROM LOCALIDADES' realizado sobre el TIBQuery ?

Saludos.

[Vales08]

Tengo DBLookupComboBox pero están conectados directamente a un DataSet, el cual en el select SQL, tiene seleccionado todos los campos de Localidad.
Sera por eso??

[Vales08]

Caral lo probe al codigo pero sigue sin funcionar, lo mismo me gustria saber que funcion cumple el DISTINCT..

[ecfisa]

Hola Vales.

Tengo DBLookupComboBox pero están conectados directamente a un DataSet, el cual en el select SQL, tiene seleccionado todos los campos de Localidad.
Sera por eso??

Si, creo que es eso.

Probá algo como:

Código Delphi [-]
procedure TForm1.btnCargarClick(Sender: TObject);
begin
  with TIBQuery.Create(nil) do
  try
    Database:= DM.IBDatabase1;
    Transaction:= DM.IBTransaction1;
    Close;
    SQL.Text:= 'SELECT LOCALIDAD FROM LOCALIDADES ORDER BY LOCALIDAD';
    Open;
    while not Eof do
    begin
      ComboBox1.Items.Add(FieldByName('LOCALIDAD').AsString);
      Next
    end;
    Close
  finally
    Free
  end;
end;

Lógicamente tendrías que cambiar los nombres de IBDatabase1, IBTransaction1, ComboBox1, etc. por los que correspondan.

Saludos.

[[Caral]]

Hola
Estoy seguro que tiene campos persistentes segun el error:

Project Project_tesis.exe raised exception class EDatabaseError with message 'Q_loc: Field 'ID_LOC' not found'. Process stopped. Use Step or Run to continue.

Dale doble click al Query y quita todos los campos que estan en esa pantalla.
Saludos

[Vales08]

Ecfisa me salta el siguiente mensaje

---------------------------
Debugger Exception Notification
---------------------------
Project Project_tesis.exe raised exception class EIBClientError with message 'Dataset open'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

[[Caral]]

Hola
Abres el query antes de darle la sentencia sql o hay otro abierto cuando no debe estarlo.
Saludos