Вывести список отсутствующих в базе значений.

[Aleksandr]

Есть база refbook с IP. Как вывести список всех свободных IP, интервал задается с помощью MaskEdit1 и MaskEdit2.

var
   str : string ;
   i:Integer;
begin
for i:=0 to MaskEdit2.Text do
 begin
ADOQuery1.Active:=false;
ADOQuery1.Parameters.ParamByName('Ip').Value:=MaskEdit1.Text+i;
ADOQuery1.Active:=true;
// ADOQuery1.First;
while not ADOQuery1.Eof do begin
           str :=str+ MaskEdit1.Text + #13 ;
           ADOQuery1.Next ;
   end ;
if str<>'' then
   Application.MessageBox(PChar(str), 'Список свободных IP адресов');
end;

[Aleksandr]

Вот пробовал через SQL

ADOQuery1.Active:=false;
 ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text := 'select * from refbook Where IP='+ quotedstr(MaskEdit1.Text );
ADOQuery1.Active:=true;
ADOQuery1.First;
while not ADOQuery1.Eof do begin
           str :=str+ MaskEdit1.Text + #13 ;
           ADOQuery1.Next ;
   end ;
if str<>'' then
   Application.MessageBox(PChar(str), 'Список свободных IP адресов');
end;

Но не знаю как реализовать цикл пока IP будет равно значению MaskEdit2.

[OlegVE]

Здравствуйте
Попробуйте такой запрос

 ADOQuery1.Active:=false;
 ADOQuery1.SQL.Text := 'select * from refbook Where IP>'+ quotedstr(MaskEdit1.Text) + ' AND IP<'+ quotedstr(MaskEdit2.Text);
 ADOQuery1.Active:=true;

и посмотрите результат, например, в DBGrid
До свидания

[Aleksandr]

С помощью этого зпроса выводит все значения в заданном интервале. А как сделать чтобы вывести которых нет?

[OlegVE]

Как вывести список всех свободных IP, интервал задается с помощью MaskEdit1 и MaskEdit2

Сообщение от Aleksandr

... А как сделать чтобы вывести которых нет?

[Aleksandr]

сейчас попытаюсь объяснить. Есть интервал от MaskEdit1 до MaskEdit2. Берем первое значение с этого интервала, если его нет в базе то его выводим, берем второе значение опять проверяем и т.д пока значение не будет равно MaskEdit2

[OlegVE]

Может сгенерировать список всех адресов от MaskEdit1 до MaskEdit2, а затем в цикле выкинуть из него адреса полученные в запросе? Что-то вроде этого

...
var
  MyList: TStringList;
  Index: Integer;
begin
  MyList := TStringList.Create;

// Здесь сами генерируйте список

  MyList.Sort;   { Find will only work on sorted lists! }

  ADOQuery1.Active:=false;
  ADOQuery1.SQL.Text := 'select ИмяПоляСIPАдресом from refbook Where IP>'+ quotedstr(MaskEdit1.Text) + ' AND IP<'+ quotedstr(MaskEdit2.Text);
  ADOQuery1.Active:=true;

  ADOQuery1.First;
  while not ADOQuery1.Eof do begin
   if MyList.Find(ADOQuery1.FieldByName('ИмяПоляСIPАдресом').AsString, Index) then MyList.Delete(Index);
   ADOQuery1.Next;
  end;

// Не забудьте предварительно сохранить куда-нибудь список, прежде чем отправить его в никуда

  MyList.Free;
end;

[evg_m]

С помощью этого зпроса выводит все значения в заданном интервале. А как сделать чтобы вывести которых нет?

select <все в интервале>
where IP not exists in (select <те которые есть> )

[OlegVE]

Здравствуйте

select <все в интервале>
where IP not exists in (select <те которые есть> )

Ваш запрос выведет свободные адреса, если они уже есть в базе данных, но, как я понял, у него в базу данных заносятся адреса по мере поступления... А если ввести в базу данных все адреса и ввести поле указывающее на занятьсть адреса, тогда жизнь упроститься
До свидания

[Aleksandr]

Не получается.