[ctpaxm]

Запрос к акс:

Код:

1 2 3 4 5

ADOQuery1.Active:= False; adoquery1.sql.Add('select *'); adoquery1.SQL.add('COUNT from tank'); adoquery1.SQL.add('order by ID '); adoquery1.Active:= true;

надеюсь что он правельный...
Если нет, то суть запроса такова: Посчитать кол-во строчек в столбике ID.
Я хочу это знач[ение, что он посчитает, присвоить переменной n, но

Код:

1 2 3 4

<b>var</b> n: integer; <b>begin</b> n:= adoquery1;

не помогает... как это возможно сделать?

[M.A.D.M.A.N.]

Код:

1	Dataser.Fields['Field'].AsInteger

[Viajero]

Что то вы меня запутали своим постом. Что значит

Посчитать кол-во строчек в столбике ID

Посчитать количество строчек где ID не null? Тогда надо

Код:

1	select COUNT(ID) as CountField  from tank

order не нужен, зачем сортировать, если только одно число нужно.

Затем по всей видимости

Код:

1 2	ADOQuery1.ExecSQL; n:=ADOQuery1.FieldByName('CountField').AsInteger;

[ctpaxm]

Благодарю, но теперь появилась новая проблема... При нажатие определённой кнопки, мне надо сменить таблицу на другую...
допустим с Tank на Air... как это сделать?

[M.A.D.M.A.N.]

МОжно через Format(...)

[Viajero]

При нажатие определённой кнопки, мне надо сменить таблицу на другую

А в чём проблема. В событии кнопки просто поменять запрос.

[ctpaxm]

объясню по другому...
При нажатие на кнопку button3 у меня происходит следующее:

Код:

1 2 3

adotable1.Active:=false;  ADOTable1.TableName:='Air';  adotable1.Active:=true;

но запрос к скулю происходит после открытия adotable1

Код:

1 2 3 4 5 6 7 8 9 10 11

<b>procedure</b> TForm1.ADOTable1AfterOpen(DataSet: TDataSet); <b>var</b> n: integer; <b>begin</b> ADOQuery1.Active:= False; adoquery1.sql.Add('select '); adoquery1.SQL.add('COUNT(ID) as CountField'); adoquery1.SQL.add('from Tank'); adoquery1.Active:= true; ADOQuery1.ExecSQL; n:=ADOQuery1.FieldByName('CountField').AsInteger;

и мне надо как то поменять значение

Код:

1	adoquery1.SQL.add('from Tank');

на

Код:

1	adoquery1.SQL.add('from Air');

причём не переписывая запрос к скулю в другую процедуру

[Viajero]

Так я и не понял, что вы хотите сделать. adotable1 и adoquery1 - разные компоненты и разные датасеты, запросы в adoquery1 никаким боком не касаются adotable1.

[ctpaxm]

извеняюсь, как я понял - ошибка не в этом, а в чём то другом...
Но мне надо что бы скуль запрос изменялся при определённых действиях... Как это сделать?
тоесть изменения произвести в этом запросе...

Код:

1 2 3 4 5 6 7 8 9 10 11

procedure TForm1.ADOTable1AfterOpen(DataSet: TDataSet); var n: integer; begin ADOQuery1.Active:= False; adoquery1.sql.Add('select '); adoquery1.SQL.add('COUNT(ID) as CountField'); adoquery1.SQL.add('from Tank'); adoquery1.Active:= true; ADOQuery1.ExecSQL; n:=ADOQuery1.FieldByName('CountField').AsInteger;

У меня есть определённое действие:

Код:

1 2 3 4 5

procedure TForm1.Button3Click(Sender: TObject); begin adotable1.Active:=false;  ADOTable1.TableName:='Air'; adotable1.Active:=true;

Как видно из кода АДОТаблица начинает работу после смены названия таблицы в бд, а после открытия таблицы идёт запрос к скулю, но тот запрос не верный, т.к. таблица уже не Tank а Air...
Как сделать так, что бы при смене таблицы, менялся и запрос, при этом не переписывая запрос в другое действие

[Viajero]

IMHO это проще простого:

Код:

1	adoquery1.SQL.add('from ' + ADOTable1.TableName);

вместо

Код:

1	adoquery1.SQL.add('from Tank');

[ctpaxm]

Благодарю, просто я язык скуля не знаю вообще, а делфи ток немного

[ctpaxm]

спасибо, работает, но потом после смены имени таблицы выдаёт ошибку "Ошибка синтаксиса в предложении FROM" ...а потом после пропуска одного одного шага - таблица, которая нужна, отображается в Делфи

[Viajero]

Ну дык тестируй. Что у тебя итоге SQL выражение, может где пробелы пропущены.
Showmessage(ADOQuery1.SQL.Text) в зубы. Можно ещё тестовыми переменными и брейкпойнтами выяснить, или с такими тоже не знаком.

[ctpaxm]

если честно, то не знаком...

Код:

1 2 3 4 5 6 7 8

ADOQuery1.Active:= False; adoquery1.sql.Add('select'); adoquery1.SQL.add('COUNT(ID) as CountField'); adoquery1.SQL.add('from ' + ADOTable1.TableName); adoquery1.Active:= true; ADOQuery1.ExecSQL; n:=ADOQuery1.FieldByName('CountField').AsInteger; showmessage(Inttostr(n));

вернусь с работы, буду работать