PRoblemas con Between

[elturu15]

Mucjas gracias solucione el error, pero el problema que tengo ahora es que siempre me lista el Primero nada mas..

Código Delphi [-]
Clave:=integer(ComboBox1.Items.Objects[ComboBox1.ItemIndex]);
Clave1:=integer(ComboBox2.Items.Objects[ComboBox2.ItemIndex]);
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:='SELECT Provincias.Clave,  Provincias.Nombre,Ciudades.Codigo_Postal, Ciudades.Nombre_Ciudad  FROM Provincias LEFT JOIN Ciudades ON Provincias.Clave = Ciudades.Clave_Provincia WHERE clave between '+IntToStr(clave)+' and '+IntToStr(clave1)+' order by Clave';
 ADOQuery1.Open;
 ListBox1.Clear;
    While not ADOQuery1.EOF do
     Begin
      Clave2:=ADOQuery1.Fields[0].AsInteger;
      Nombre:=ADOQuery1.Fields[1].AsString;
      CP:=ADOQuery1.Fields[2].AsString;
      NombreCiudad:=ADOQuery1.Fields[3].AsString;
      ListBox1.Items.Add('Clave :' +  inttostr(Clave2));
      ListBox1.Items.Add('Nombre :' + Nombre);
      ListBox1.Items.Add('codigo_postal : '+  CP);
      ListBox1.Items.Add('Nombre_Ciudad :' + NombreCiudad);
      ListBox1.Items.Add('----------------------------');
      ADOQuery1.Next;
      ADOQuery1.ExecSQL;
     End

Esta bien el While?

[*Caro*]

Hola de nuevo, esta linea esta demas dentro del While.

Código Delphi [-]
 ADOQuery1.ExecSQL;

te quedaría así:

Código Delphi [-]
    ............................................. 
    ListBox1.Clear;
    AdoQuery1.First; // nos posicionamos en el primer registro
    While not ADOQuery1.EOF do
     Begin
      Clave2:=ADOQuery1.Fields[0].AsInteger;
      Nombre:=ADOQuery1.Fields[1].AsString;
      CP:=ADOQuery1.Fields[2].AsString;
      NombreCiudad:=ADOQuery1.Fields[3].AsString;
      ListBox1.Items.Add('Clave :' +  inttostr(Clave2));
      ListBox1.Items.Add('Nombre :' + Nombre);
      ListBox1.Items.Add('codigo_postal : '+  CP);
      ListBox1.Items.Add('Nombre_Ciudad :' + NombreCiudad);
      ListBox1.Items.Add('----------------------------');
      ADOQuery1.Next;
     End

Saluditos

[ecfisa]

Hola.

En principio quitá esta línea:

Código Delphi [-]
 ADOQuery1.ExecSQL;

Te debería quedar algo como:

Código Delphi [-]
 ADOQuery1.Close;
 ADOQuery1.SQL.Clear;
 ADOQuery1.SQL.Text:='SELECT Provincias.Clave,  Provincias.Nombre,Ciudades.Codigo_Postal, Ciudades.Nombre_Ciudad  FROM Provincias LEFT JOIN Ciudades ON Provincias.Clave = Ciudades.Clave_Provincia WHERE clave between '+IntToStr(clave)+' and '+IntToStr(clave1)+' order by Clave';
 ADOQuery1.Open;
 ListBox1.Clear;
 while not ADOQuery1.EOF do
 begin
   ListBox1.Items.Add('Clave :' +  inttostr(ADOQuery1.Fields[0].AsInteger));
   ListBox1.Items.Add('Nombre :' + ADOQuery1.Fields[1].AsString);
   ListBox1.Items.Add('codigo_postal : '+ ADOQuery1.Fields[2].AsString);
   ListBox1.Items.Add('Nombre_Ciudad :' + ADOQuery1.Fields[3].AsString);
   ListBox1.Items.Add('----------------------------');
   ADOQuery1.Next;
 end

Un saludo.

[elturu15]

Hola otra vez..lamento informarte que sigue sin funcionar.. me lista siempre el primero,,, este es el codigo que tengo

Código Delphi [-]
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:='SELECT P.Clave, P.Nombre, C.Codigo_Postal,  C.Nombre_Ciudad '+
                     'FROM Provincias P LEFT JOIN Ciudades C ON P.Clave = C.Clave_Provincia '+
                     'WHERE P.clave between '+IntToStr(clave)+' and '+IntToStr(clave1)+' order by Clave';
ADOQuery1.Open;
ListBox1.Clear;
AdoQuery1.First; // nos posicionamos en el primer registro
ADOQuery1.Active:=true;
    While not ADOQuery1.EOF do
     Begin
      Clave2:=ADOQuery1.Fields[0].AsInteger;
      Nombre:=ADOQuery1.Fields[1].AsString;
      CP:=ADOQuery1.Fields[2].AsString;
      NombreCiudad:=ADOQuery1.Fields[3].AsString;
      ListBox1.Items.Add('Clave :' +  inttostr(Clave2));
      ListBox1.Items.Add('Nombre :' + Nombre);
      ListBox1.Items.Add('codigo_postal : '+  CP);
      ListBox1.Items.Add('Nombre_Ciudad :' + NombreCiudad);
      ListBox1.Items.Add('----------------------------');
      ADOQuery1.Next;
     End

esta bien esto? ADOQuery1.Active:=true;


Mil disculpas por molestarte

[*Caro*]

Empezado por elturu15

esta bien esto? ADOQuery1.Active:=true;

No es necesario ejecutar la consulta dos veces, tanto el open como el active=true, ejecutan la consulta que esta dentro de tu DataSet (AdoQuery), solo debes escoger uno de ellos.

Puede ser que la consulta solo te este devolviendo un solo registro, prueba de enlazar tu consulta a un dbgrid para que veas el resultado.

Saluditos

[*Caro*]

O también puedes probar esto:

Código Delphi [-]
...............................
'WHERE P.clave between '+IntToStr(clave)+' and '+IntToStr(clave1)+' order by Clave';
ADOQuery1.Open;
showmessage(IntToStr(AdoQuery1.RecordCount));
.........................

y nos dices el resultado que te salga. No te olvides de leer nuestra guia de estilo por favor y utiliza etiquetas en tu codigo para que se vea mejor, en este caso [ delphi]tu codigo[ /delphi] sin el espacio, también los puedes encontrar en editor.

Saluditos

[ecfisa]

Hola.

Y a modo de complemento de lo que ya te ha sugerido Caro sobre la lectura de la guia de estilo y las etiquetas, el amigo Casimiro,
ha echo un [ gráfico ] que explica cláramente el uso de estas últimas.

Un saludo.

[Casimiro Noteví]

Empezado por ecfisa

Hola. Y a modo de complemento de lo que ya te ha sugerido Caro sobre la lectura de la guia de estilo y las etiquetas, el amigo Casimiro, ha echo un [ gráfico ] que explica cláramente el uso de estas últimas.
Un saludo.

Bueno, ese gráfico se lo he "robado" a Neftalí




.