Работа с БД

[Kachirus]

Доброе время суток уважаемые специалисты в области программирования!

Есть БД, нужно из неё выбрать за определенную дату и с частичным совпадением другой строки данные с которыми дальше надо будет работать... (суммировать, делить, выводить на экран результат и т.д.)

Наковырял код, переделал под себя, но не как не дойдет как искать по всей БД. (ищет только первую запись). Подскажите пожалуйста...

procedure TForm1.Button1Click(Sender: TObject);
var
cncols, k, i:integer;
begin

  if ComboBox1.ItemIndex=0 then i:=71833;
//for k:=1 to cncols-1 do
  begin
  if not Table1.Locate(
    'Data;Direction',
    VarArrayOf([DateTimePicker1.Date,i]),
   [loCaseInsensitive, loPartialKey])

  then
    ShowMessage('Çàïèñü íå íàéäåíà');
  end;

end;

[chertovich]

Можно при помощи Locate, а можно при помощи цикла:

Table1.First;
while not Table1.EOf
begin
  if Table1.Fields('Поле').asString = 'Значение поля' then
    ShowMessage('Нашли');
  Table1.Next;
end;

[Аватар]

1.Locate ищет первую подходящую запись и если упорядоченность данных соответствует ключам Locate, то следующие записи будут рядышком ниже в гриде
2.В Table можно фильтр установить
3.Пользоваться не Table, а Query c нужным условием в Where

[Kachirus]

Сообщение от Аватар

2.В Table можно фильтр установить

Угу, можно и фильтр... Но на сколько я правильно понимаю, фильтр - только отображает значения БД в Гриде, а мне не просматривать , а работать с данными надо... т.е. найти значения удовлетворяющие условию поиска и например посчитать среднее арифметическое 5 столбца... (Я оброзно говорю).

[Аватар]

Причем здесь грид? В самом Table записи отфильтрованы

[Serge_Bliznykov]

Сообщение от Аватар

3.Пользоваться не Table, а Query c нужным условием в Where

+1

присоединяюсь.
Если Вам нужны не все записи - так отбирайте их с помощью SELECT'а

Select * from ВашаТаблица 
where Date1 = :pDate 
and  FIO like :pPartialFIO

потом Query1.Open;
и работайте дальше только с выбранными данными (о других Ваша датасет даже догадываться не будет!)

[chertovich]

Kachirus, чем мой вариант не подходит?

[Kachirus]

Всем спасибо.. заработало.....
Теперь проблема в другом. Не могу посчитать сумы столбцов...

Ошибка: Invalid use of keyword. Token: SUM(Answered)

procedure TForm1.Button1Click(Sender: TObject);
var
i:String;
begin
if ComboBox1.ItemIndex=0 then i:='71833';
  Query2.Close;
  Query2.SQL.Clear;
  Query2.SQL.Add('Select * from CMK.db ');
  Query2.SQL.Add('WHERE Data BETWEEN "' +DateToStr(DateTimePicker1.Date)+ '" AND "' + DateToStr(DateTimePicker2.Date) +'" AND Direction LIKE '''+i+'%''');
  Query2.SQL.Add('SUM(Answered)');
  Query2.Open;
  Edit1.Text:=Query2.Fields[0].AsString
  end;
end.

[Serge_Bliznykov]

Kachirus
ой.ой,ой..

Рекомендую. Немедленно взять любой букварь по SQL и читать! Хотя бы основы.
(кстати, простенькая и хорошая книжка Мартин Грубер "Понимание SQL")

для получения суммы надо написать агрегатную функцию SUM в списке получаемых значений:

  Query2.SQL.Clear;
  Query2.SQL.Add('Select SUM(Answered) as sum_ans from CMK.db ');
  Query2.SQL.Add('WHERE Data BETWEEN "' +DateToStr(DateTimePicker1.Date)+ '" AND "' + DateToStr(DateTimePicker2.Date) +'" AND Direction LIKE '''+i+'%''');
  Query2.Open;
  if Query2.IsEmpty then ShowMessage('Нет записей подходящих по условию')
  else 
    ShowMessage('Сумма = ' + Query2.FieldByName('sum_ans').AsString);

p.s. проверка на пустоту Query2.IsEmpty - это может быть недостаточно (да и перестраховка).
Некоторые СУБД, если ни одной записи по условиям нет, могут вернуть 1 запись,
но там будет null в качестве результата... Это тоже стоит учесть...

[Kachirus]

Спасибо чичас скачаю и почитаю.... Отдельное спасибо за код, буду пробовать.....)))