Problemas con el codigo SQL
 

Tengo el siguiente código SQL

Código SQL [-]
DM.Q_loc.SQL.Clear;
DM.Q_loc.SQL.Add('select LOCALIDAD from LOCALIDADES GROUP 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;

La cuestion es que me salta error, y es porque siempre me solicita los otros campos que faltan de la tabla, como el ID_LOC, CODIGO_POSTAL, PROVINCIA..
Entonces no me queda otra que poner

Código SQL [-]
...
DM.Q_loc.SQL.Add('select * from LOCALIDADES');
...

Pero yo necesito solamente LOCALIDAD para poder agrupar por ese mismo campo, entonces en el combobox no se me repiten los datos..

Uso Delphi7, sql manager y motor de base de datos firebird..
Espero puedan ayudarme.. Desde ya muchas gracias..

Hola
A ver asi:

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;

o asi:

Código Delphi [-]
DM.Q_loc.SQL.Clear;
// todos los campos en el group By
DM.Q_loc.SQL.Add('select LOCALIDAD from LOCALIDADES GROUP BY ID_LOC, CODIGO_POSTAL, PROVINCIA, 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;

Saludos

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

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

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

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

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.

Hola
a la brava :D

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

Hola
Casi me la juego :D:

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

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??

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

Hola Vales.
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.

Hola
Estoy seguro que tiene campos persistentes segun el error:
Dale doble click al Query y quita todos los campos que estan en esa pantalla.
Saludos

Ecfisa me salta el siguiente mensaje

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

El unico Query que esta abierto es el que tengo en el DataModule y a lo que entiendo, tengo que cerrar ese query para poder trabajar con el que estoy creando, pero si lo cierro antes de esto

Código Delphi [-]
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;

Me salta el siguiente error:

Hola Vales.

Vamos a simplificar... poné un TIBQuery desde la pestaña Interbase, relacionalo con el TIBDatabase y hacé de este modo:

Código Delphi [-]
procedure TForm1.btnCargarClick(Sender: TObject);
begin
  with IBQuery2 do
  try
    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;

Saludos. :)

Perdón Vales, me confundí al copiar/pegar código. :o

Debería ser:

Código Delphi [-]
procedure TForm1.btnCargarClick(Sender: TObject);
begin
  with IBQuery2 do
  begin
    Close;
    SQL.Text:= 'SELECT LOCALIDAD FROM CIUDADES ORDER BY LOCALIDAD';
    Open;
    while not Eof do
    begin
      ComboBox1.Items.Add(FieldByName('LOCALIDAD').AsString);
      Next
    end;
    Close
  end;
end;

Saludos.

El error no salta mas, lo único es que me muestra los registros repetidos 2 veces... y agrupando tampoco lo hace.. pero por lo menos no salta el error..

Hola Vales.

La única forma de que suceda eso con el código anterior es que, o estén duplicadas las localidades en la tabla o que no estés vaciando el TComboBox y se realice la carga dos veces...

Probá de este modo:

Código Delphi [-]
...
  with IBQuery2 do
  begin
    Close;
    SQL.Text:= 'SELECT LOCALIDAD FROM CIUDADES ORDER BY LOCALIDAD';
    Open;
    ComboBox1.Clear;  // <-
    while not Eof do
    begin
      ComboBox1.Items.Add(FieldByName('LOCALIDAD').AsString);
      Next
    end;
    Close
  end;
...

Si aún así siguen apareciendo los registros repetidos utilizá el IBExpert (o el que uses) y ejecutá la sentencia

Código SQL [-]
SELECT LOCALIDAD FROM CIUDADES ORDER BY LOCALIDAD

para verificar que el campo LOCALIDAD no esté repetido.


Un saludo.

Hola
o:

Código Delphi [-]
with IBQuery2 do
  begin
    Close;
    SQL.Text:= 'SELECT DISTINCT LOCALIDAD FROM CIUDADES ORDER BY LOCALIDAD';
    Open;
    ComboBox1.Clear;  // <-
    while not Eof do
    begin
      ComboBox1.Items.Add(FieldByName('LOCALIDAD').AsString);
      Next
    end;
    Close
  end;

Me niego a creer que entre un Maestro y este novato no podamos solucionarlo......:D:D;)
Saludos