select в Delphi

[reBOOK]

помогите с запросом:

Query3.Sql:

select code_c, sum ( :param1)
from  cinema, god2000
where cinema.code_c = god2000.code_c
group by code_c;

код:

procedure TForm3.Button8Click(Sender: TObject);
 var
  Year:string;
begin
 DBGrid1.DataSource:=DataSource2;
 Query3.close;
 Year:=Form3.ComboBox3.Text;
 Query3.Params[0].Value:='god'+year+'.days';
 Query3.Open;
 DataSource2.Enabled:= true;
end;

вылезает ошибка "data type unknow"...

[mihali4]

Что-то я сильно сомневаюсь, что имя поля можно передавать в качестве параметра...

[reBOOK]

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

Что-то я сильно сомневаюсь, что имя поля можно передавать в качестве параметра...

select code_c, sum (god:param1 .days)
from  cinema, god2000
where cinema.code_c = god2000.code_c
group by code_c;

...
Query3.Params[0].AsString:=Year;
...

token unknow line 1 char 23 ?

как то мне очень нравиться такой способ, до другого не могу додуматься =(
может с UPPER попробовать? или я опять что то в синтаксисе напутал?...

[mihali4]

Попробуйте простейший запрос типа:
'select (: param1) from mytable'
Увы, ничего не получится...
Да, и чтобы поменьше гимора и побольше убежденности, при необходимости используйте лучше ParamByName().

Но тут придется без него.
Я обходил такие вещи примерно так:

Query1.SQL.Text:='select ';
Query1.SQL.Text:=Query1.SQL.Text+Edit1.Text;// а не PARAM !!!
Query1.SQL.Text:=Query1.SQL.Text+' from country';
Query1.Open;

[ProScor]

Нельзя имя поля передать в качестве параметра, но зато можно программно сформировать текст запроса. Например вот так:
query3.sql.text:='select code_c, sum ('god+Form3.ComboBox3.Text+'.days'+
') from cinema, god2000 where cinema.code_c = god2000.code_c group by code_c';

[Usov]

А не проще ли формировать SQL динамически без параметров?

[reBOOK]

ProScor
нельзя мне так, у меня задание такое))

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

А не проще ли формировать SQL динамически без параметров?

к сожалению нет, год выбирается пользователем

Проблему решил, для этого пришлось избавиться от параметров после select и from, оставил только после where, пришлось переделывать базу...
получил опыт: нужно стремиться упростить select, путем усложнения создания таблиц))))

спасибо всем кто подсказал что у меня не так ))

[BARNEY]

по моему легче было логику переделать чем в базе извращаться.

[Stilet]

Я вообще не люблю этот механизм Борландовский, но раз ты с ним работать решил то по хоророшему нужно так:

var p:TParameter;
....
begin
....
p:=Query1.Parameters.AddParameter;
p.Value:='Дас ист поле';
p.DataType:=ftString; //И его тип нуна указать

end;

[reBOOK]

query.sql:

select cinema.name, sum(prokat_sbor.days)
from cinema, prokat_sbor
where cinema.code_c = prokat_sbor.code_c and
      prokat_sbor.years = :param1
group by cinema.name;

procedure TForm3.Button8Click(Sender: TObject);
 var
  Year:string;
begin
 DBGrid1.DataSource:=DataSource2;
 Query3.close;
 Year:=Form3.ComboBox3.Text;
 Query3.Params[0].Value:=Year;
 Query3.Open;
 DataSource2.Enabled:= true;
end;

просто добавил VIEW в базу, никаких больше извращении в базе))
зато теперь работает как часы))