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

[OlegVE]

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

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

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

Как Вы думаете, что можно на это ответить?... Только такой ответ: семнадцать.
ЧТО Вы сделали и в итоге ЧТО не получается? ЧТО...
До свидания

[Аватар]

Вывести запросом из базы списка свободных значений поля по заданному интервалу достаточно сложно даже в случае integer поля, а для вашего случая, где символьное поле сложной структуры начнутся такие заморочки, что лучше и не браться. Вам в посте 7 предложили сначала сгенерировать в StringList все возможные значения адресов в заданном интервале, запросом получить использованные значения в этом интервале, затем из StringList на основании данных запроса удалить задействованные адреса. В результате в StringList все дырки и останутся. Ну и используйте теперь данные StringList для выборки свободных адресов

P.S. Понятно что интервал должен быть в разумных пределах, чтобы не получилось миллиард строк в StringList

[Aleksandr]

Сохраняю список в dat файл, но он пустой. Вот код

 MyList := TStringList.Create;
   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.Add(ADOQuery1.FieldByName('IP').AsString);
   ADOQuery1.Next;
  end;

  MyList.Sort;
  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.SaveToFile('D:\123.dat');
  MyList.Free;

[Аватар]

А где генерация в StringList всех возможных значений адресов в заданном интервале? Это ручками в дельфях нужно сделать

[Aleksandr]

Не знаю как сделать генерацию в StringList. Вот что-то пытался сделать, получается какая-то ерунда.

Index := MaskEdit1.Text;
try if (Index >= 0) and (Index < MaskEdit2.Text) then
begin NewIndex := Index + 1;
for k := 0 to MyList.Items.Count - 1 do
MyList.Items.Add(MyList.Items.Strings[k]);
except

[Serge_Bliznykov]

любопытно, что за значения у Вас в MaskEdit1.Text и MaskEdit2.Text ?..

[Aleksandr]

начало и конец интервала списка IP

[Serge_Bliznykov]

начало и конец интервала списка IP

Какие там КОНКРЕТНО значения?!
и, соответственно, что Вы хотите получить в качестве всех возможных значений адресов в заданном интервале ?!!



p.s. ну, предположим, что у Вас в первом значение IP адрес сайта ya.ru,
а во-втором - yandex.ru
ya.ru [77.88.21.3]
yandex.ru [213.180.204.11]
что Вы хотите получить в качестве всех возможных значений?!

[Аватар]

То что хочет сделать автор топика имеет смысл для интервалов типа 213.180.204.11 - 213.180.204.322 Всё остальное конечно лишено смысла

[Aleksandr]

А если интервал 192.168.40.01-192.168.40.200?