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