ADOQuery - пока не конец файла

@Alexartun · Регистрация: 01.10.2015

Author24 — интернет-сервис помощи студентам

Доброго времени суток !
Столкнулся со следующей проблемой !
Из запроса в ADOQuery хочу взять определенные данные. Использую для этого ADOQuery.Locate(),все прекрасно работает, но по совпадающим критерия, которые я ввел, должна складываться сумма из двух чисел. То есть, при Locate, в переменную SUMM он мне заносит последнюю совпадающую строку , и там значение допустим 14. Но перед ним, есть еще одно значение, и там число 3. В итоге, должно получится 17. Но он останавливается на последней, зная, что Locate, только для одной записи.
Для этого я сделал While not EOF и FeildByName, но он игнорит мое условие.
Для понятия скидываю код !)

Delphi

procedure TForm2.Image131Click(Sender: TObject);
var
i,sum,g:integer;
num1:string;
begin
    num:=(sender as TImage).Tag;
    if   (FormKarta.ADOQuery1.Locate('Станция; Дата', VarArrayOf  ([num, edit2.Text]),[])) and (FormKarta.ADOTable10.Locate('id', num,[])) then
        begin
            Form5.Edit1.Text:= FormKarta.DBMemo20.Text;
            num1:=  FormKarta.ADOQuery1.FieldByName('Вестибюль').AsString;
            showmessage(num1);
            if (FormKarta.ADOTable13.Locate('idВестибюль', num1,[]))then
            begin
                 Form5.Edit2.Text:=FormKarta.ADOTable13.FieldByName('Вестибюль').AsString;
            end;
            sum:= FormKarta.ADOQuery1.FieldByName('Выявлено_опасных_предметов').AsInteger;
                FormKarta.ADOQuery1.Next;
             showmessage(inttostr(sum));
             while not FormKarta.ADOQuery1.EOF  do
             begin
                    for g:=0 to FormKarta.ADOQuery1.Fields.Count-1 do
                    begin
                            if (FormKarta.ADOQuery1.FieldByName('Станция').Asstring=edit3.Text)and((FormKarta.ADOQuery1.FieldByName              ('Дата').Asstring=edit2.Text)) then
                                          begin
                                showmessage(inttostr(sum));
                                sum:= sum+ FormKarta.ADOQuery1.FieldByName('Выявлено_опасных_предметов').AsInteger;
                                showmessage(inttostr(sum));
                                edit3.Text:=inttostr(sum);
                        end;
                            FormKarta.ADOQuery1.Next;
                    end;
               end;
 
        end;

@D1973 · 27.09.2016, 14:50

Если Вам требуется найти сумму элементов в каком-то столбце при выполнении какого-то условия, то не проще ли выполнить запрос

SQL

1	SELECT SUM(Имя_Столбца) AS VVV WHERE (Ваше_условие)

И потом обращаться к найденному значению:

Delphi

1
2
3

var i : integer;
...
i := ADOQuery.FieldByName('VVV').AsInteger;

@Alexartun · 27.09.2016, 14:57 **[ТС]**

Смысл в том, что я выполняю условие по дате и станции.
Пример:
26.09.2016
Станция - вестибюль - число
-----------------------------------
Каширская - КаширскаяС - 14
Каширская - КаширскаяЮ- 3
-------------------------------------

Он будет находить только последнее выражение (3)
А мне нужно еще и 14, чтобы в итоге 14 и забрать его в переменную !

@northener · 27.09.2016, 15:11

Предложенный D1973 способ найдет все что нужно.

@D1973 · 27.09.2016, 15:15

Нет, ну а я тебе о чем пишу?

SQL

1	SELECT SUM([Число]) AS VVV FROM [Твоя_Таблица] WHERE [Станция] = 'Каширская'

В поле VVV этого запроса будет именно сумма всех чисел поля [Число] для всех записей, для которых выполняется условие [Станция] = 'Каширская'
Вот только совет на будущее: не давай ни таблицам, ни полям таблиц названия на кириллице - избежишь многих неприятностей!

@rusqwe · 27.09.2016, 15:24

Точно не понял, нужно сложить найденную строку и строку перед ней?
А вообще лучше воспользоватся запросом, как написано выше.

@AleksandRus18 · 27.09.2016, 15:33

Только нужно чтобы вместо станции была переменная, и.к. станция могут быть разными. Делал по методу даты , и поставил между ними and. Не получается.

@MyEternity · 28.09.2016, 10:38

Напишите структуру таблиц.

@D1973 · 28.09.2016, 12:13

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

вместо станции была переменная

Ну и кто мешает это сделать?

Delphi

1
2
3

ADOQuery1.Close;
ADOQuery1.Text := Format('SELECT SUM([Число]) AS VVV FROM [Твоя_Таблица] WHERE [Станция] = %s', [QuotedStr(Edit1.Text)]);
ADOQuery1.Open;

В Едит1 ты вводишь название своей станции

@sairex · 28.09.2016, 21:15

del

@Alexartun 1 / 1 / 0 Регистрация: 01.10.2015 Сообщений: 127
	27.09.2016, 14:57 [ТС]	3
	Смысл в том, что я выполняю условие по дате и станции. Пример: 26.09.2016 Станция - вестибюль - число ----------------------------------- Каширская - КаширскаяС - 14 Каширская - КаширскаяЮ- 3 ------------------------------------- Он будет находить только последнее выражение (3) А мне нужно еще и 14, чтобы в итоге 14 и забрать его в переменную ! 0

@northener пофигист широкого профиля 4732 / 3167 / 858 Регистрация: 15.07.2013 Сообщений: 18,248
	27.09.2016, 15:11	4
	Предложенный D1973 способ найдет все что нужно. 0

@rusqwe 60 / 60 / 26 Регистрация: 30.05.2016 Сообщений: 293
	27.09.2016, 15:24	6
	Точно не понял, нужно сложить найденную строку и строку перед ней? А вообще лучше воспользоватся запросом, как написано выше. 0

@AleksandRus18 -15 / 0 / 0 Регистрация: 26.05.2015 Сообщений: 45
	27.09.2016, 15:33	7
	Только нужно чтобы вместо станции была переменная, и.к. станция могут быть разными. Делал по методу даты , и поставил между ними and. Не получается. 0

@MyEternity 97 / 97 / 25 Регистрация: 25.04.2016 Сообщений: 525
	28.09.2016, 10:38	8
	Напишите структуру таблиц. 0

@sairex 18 / 18 / 4 Регистрация: 10.03.2014 Сообщений: 91
	28.09.2016, 21:15	10
	del 0

Опции темы