[ctpaxm]

Запрос к акс:

Код:

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

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

Код:

var
n: integer;
begin
n:= adoquery1;

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

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

Код:

Dataser.Fields['Field'].AsInteger

[Viajero]

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

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

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

Код:

select COUNT(ID) as CountField  from tank

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

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

Код:

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

[ctpaxm]

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

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

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

[Viajero]

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

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

[ctpaxm]

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

Код:

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

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

Код:

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;

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

Код:

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

на

Код:

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

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

[Viajero]

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

[ctpaxm]

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

Код:

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;

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

Код:

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

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

[Viajero]

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

Код:

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

вместо

Код:

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

[ctpaxm]

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

[ctpaxm]

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

[Viajero]

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

[ctpaxm]

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

Код:

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));

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