Problemas con el codigo SQL

[ecfisa]

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.

[ecfisa]

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

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.

[Vales08]

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

[ecfisa]

Empezado por Vales08

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.

[[Caral]]

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

[Casimiro Noteví]

Empezado por Caral

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

¿Dónde está el novato?

[[Caral]]

Hola
Aquí amigo, aquí.
El que viste y calza.
Gusto en saludarte, por cierto, Feliz año nuevo amigo.
Saludos

[Vales08]

Bingo, solucionado..... limpiando el combo funciona perfecto....
Muchisimas gracias a los dos, fue larga la consulta pero valio la pena...

Saludos...