Создание представлений в приложении

[Абдуллаев Рустам]

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

create view :sdff
as
select from users
where us_id=:s1
на кнопку событие:

with adoquery19 do
begin
close;
parameters.ParamValues['sdff']:=combobox7.Text;
parameters.ParamValues['s1']:=101;
open;
end;
Adoquery19.Active:=true;

Ругается на неправильный синтаксис.
пробовал и вот так через storedproc.Тоже синтаксис не тот.

CREATE PROCEDURE createview1(
@nameview char(20),
@parameter char(20)
)
as
create view @nameview
as
select surname_us from users
where @parameter=name_us
go

т.е мне нужно предусмотреть в программе создание представлений.
Причем имя представления выбиралось в программе, через параметр. Возможно ли это?

[soleil@mmc]

вот так будет

const
C_SQL_view = '
create view %s
as
select * 
from users
where us_id=:s1';

на кнопку событие:

with adoquery19 do
begin
close;
SQL.Text:=format(C_SQL_view, [combobox7.Text]);
parameters.ParamValues['s1']:=101;
open;
end;
Adoquery19.Active:=true;

[Абдуллаев Рустам]

Спасибо большое. А константа прописывается как обычная константа в Delphi?

[Абдуллаев Рустам]

Сообщение от soleil@mmc

вот так будет

const
C_SQL_view = '
create view %s
as
select * 
from users
where us_id=:s1';

на кнопку событие:

with adoquery19 do
begin
close;
SQL.Text:=format(C_SQL_view, [combobox7.Text]);
parameters.ParamValues['s1']:=101;
open;
end;
Adoquery19.Active:=true;

Поправлю вас немного, в смысле синтаксиса

C_SQL_view:= 'CREATE view %s AS select name_obj, inv_num, quantity from passport where name_cab='+chr(39)+combobox7.text+chr(39);
with adoquery19 do
begin
SQL.Text:=format(C_SQL_view,[Label18.caption]);
end;
Adoquery19.ExecSQL;

[soleil@mmc]

Сообщение от Абдуллаев Рустам

Поправлю вас немного, в смысле синтаксиса

C_SQL_view:= 'CREATE view %s AS select name_obj, inv_num, quantity from passport where name_cab='+chr(39)+combobox7.text+chr(39);
with adoquery19 do
begin
SQL.Text:=format(C_SQL_view,[Label18.caption]);
end;
Adoquery19.ExecSQL;

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

кагбэ желаю тебе успехов в расстановке кавычек, например, в таком запросе

select *
from invoice_items
where 0=0
  and invoice_date < to_date('20.04.2009', 'DD.MM.YYYY')+1
  and invoice_date >= to_date('10.04.2009', 'DD.MM.YYYY')

[Абдуллаев Рустам]

С первым пунктом согласен.
Насчет второго- хотел через параметы - не получилось
И, конечно, извините за такое, сначала просто то что вы написали не компилировалось и с параметрами не выходило, я переправил - и доисправлялся, что вообще по-другому все. Тперь и перв-й ваш код работает. Я разобрался. Спасибо большое.
А насчет вашего запроса - не вижу логики, особенно где 0=0. Да с кавычками - это то еще парево.