количество строк со значением в Edit из DBGrid

[Popcorn1593]

Здравствуйте, я программировала базу данных через библиотеку связи ADO связала аксесс и делфи, у меня возникла проблема, есть заполненная таблица где есть столбец Статус со значениями работает, выбыл и принят, мне нужно чтобы при нажатии на кнопку в эдит выводилось количесnво строк со значением работает из DBGrid. Код верный, но при запуске выводит ошибку, что не может найти поле Статус, я думаю что не изменила требующиеся свойства в DataSet, а какие нужно я не знаю.

procedure TForm2.Button5Click(Sender: TObject);
var
k, m, n, i, j: integer;
begin
k:=0;
with DBGrid1 do
begin
for j:=1 to m do
for i:=1 to n do
if i=2 then
begin
if (ADODataSet1.FieldByName('Статуc').asString ='работает') then k:=k+1;
end;
end;
edit2.text:=inttostr(k);
end;

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

во-первых, код у Вас неверный - циклы, которые Вы написали НЕ НУЖНЫ.
А нужны совсем другие циклы! у Вас же одна и та же строчка проверяется.

во-вторых, ругается на то, что у Вас в датасете НЕТ поля 'Статус'. ADODataSet1 - это что? Проверьте, какие там поля.

в-третьих, если у Вас нельзя в DBGid изменять значения, то лучше количество тех, у кого статус = "работает" вообще отдельным запросом получать:

  ADOQuery1.Close;
  ADOQuery1.SQL.Text := 'select count(*) as cntWork from ИмяТаблицы where [Статус] = "работает" ';
  ADOQuery1.Open;
  k := 0;
  if Not ADOQuery1.IsEmpty then k := ADOQuery1.FieldByName('cntWork').AsInteger;
  edit2.text:=inttostr(k);

[Popcorn1593]

теперь вот такую ошибку выдает

[Serge_Bliznykov]

текст сообщения переведите на русский язык, поймёте в чём ошибка!
или перевести?!

p.s. проверяйте, что с каким датасетом связан DBComboBox1 и почему в этом датасете нет поля с именем "Статус"!

[Popcorn1593]

Да я понимаю что просит программа, у меня вообще не было DataSet, я его поставила когда эту кнопку писать начала, я не знаю какие свойства поменять там нужно Connection или DataSourse

[Serge_Bliznykov]

может быть, стоит для начала ознакомиться c программированием БД под Delphi (благо книжек и статей в интернете прудом пруди).
В частности, узнать, что такое DB контролы, как их настраивать и использовать...


p.s. не обижайтесь, я правда не знаю, чем Вам можно помочь...

[Popcorn1593]

Ладно, спасибо.

[Dj_DeVaIs]

народ всем привет.
хочу немного разобраться. вы сильно не ругайтесь я только начинаю изучать sql запросы.
ситуация такая:
есть таблица dolg в ней строчки "ФИО", "Тел","Долг","Дата внесения изменения"

вот в чем загвоздка не могу понять как работают эти запросы
( ADOQuery1.SQL.Text := 'select count(*) as cntWork from ИмяТаблицы where [Статус] = "работает" '

мне надо что бы в edit выводилась информация кол-во строк со значением например 01.01.2014.

[Serge_Bliznykov]

Dj_DeVaIs, Вы какое отношение имеете к автору данной темы? И какое отношение ваш вопрос имеет к данной теме?!!
Вы что, не можете свою тему создать?
А по сути - возмите любой букварь по языку запросов (например, Мартин Грубер "Понимание SQL"). Почитайте ОСНОВЫ.
А в данном случае, можно банально в гугл забить SQL count. Увидите, что count(*) - это агрегатная функция, которая возвращает количество записей в группе.