Запрос данных из SQL (Delphi)

[8tomat8]

Хочу присвоить переменной значение из поля базы данных.
Пока пытаюсь как минимум научиться строить правильно условие.

Строка запроса в SQL у меня выглядит вот так

SELECT [fuser] , [FWHERE] FROM [GDPDATA].[dbo].[TUSER] WHERE FUSER='KNOPKA\Username'

*Где Username - имя текущего пользователя

В Delphi у меня вот что происходит

procedure TFormHello.FormCreate(Sender: TObject);
Var
UN,UserName:string;
begin
UserName:=Trim(GetCurrentUserName);
UN:=(#39+'KNOPKA\'+UserName+#39);
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT [fuser] , [FWHERE] FROM [GDPDATA].[dbo].[TUSER] WHERE FUSER= :username');
ADOQuery1.Active:=True;
ADOQuery1.Parameters.ParamByName('username').Value:=UN;
//Showmessage(UN);
end;

GetCurrentUserName это переменная в которой храниться текущее имя пользователя.

Но в Grig у меня отображается пустое поле. Хотя когда делаю запрос без WHERE - показывает весь список юзверей.


От сюда вопрос. Что я не правильно задал в условии? И как Мне в случаи удачного запроса присвоить ответ переменной?

PS Будет ли данная строка работать?

Peremennaya:=ADOQuery1.FieldByName('[FWHERE]').AsString;

[Аватар]

1.Параметр до активации нужно задавать, а не после. И не нужно #39 в значение параметра тулить
2.Будет, если датасет открыт и есть такое поле

[eval]

[fuser] , [FWHERE]

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

[grominfo]

А я вот всё хотел спросить: в MySQL можно в самом запросе назначать переменную и её же использовать. Например

SELECT *, @id:=table.id, (SELECT COUNT(*) FROM table WHERE ref=@id) as ....и.т.д.

Можно ли так использовать в делфи?

-----------------------
Добавлено. Я имею ввиду в работе с MS Access

[eval]

это бессмысленно, в процедуре еще куда ни шло, ну так в аксесе нет полноценных процедур

[8tomat8]

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

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

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


Еще вопрос. При каждом запуске программы спрашивает логин и пароль, хотя я поставил аутентификацию через windows

[grominfo]

Еще вопрос. При каждом запуске программы спрашивает логин и пароль, хотя я поставил аутентификацию через windows

ADOConnection1.LoginPrompt:=false;

Не то?

[8tomat8]

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

ADOConnection1.LoginPrompt:=false;

Не то?

Оно) Спасибо большое)))

[8tomat8]

Сообщение от Аватар

2.Будет, если датасет открыт и есть такое поле

Не понял честно говоря что такое датасет. А поле есть такое) данные успешно выгружаются в таблицу. Но теперь выдает ошибку при попытке присвоить значение переменной.


вот сам код

procedure TFormHello.FormCreate(Sender: TObject);
Var
UN,UserName,Prava:string;
begin
UserName:=Trim(GetCurrentUserName);
UN:=('KNOPKA\'+UserName);
ADOConnection1.LoginPrompt:=false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT [FWHERE] FROM [GDPDATA].[dbo].[TUSER] WHERE FUSER= :username');
ADOQuery1.Parameters.ParamByName('username').Value:=UN;
ADOQuery1.Active:=True;
Prava:=ADOQuery1.FieldByName('[FWHERE]').AsString;
//Showmessage(Prava);
end;

[phomm]

Поле называется не [FWHERE] , а просто FWHERE, а [] это экранирование в sql (оно для текста запроса может использоваться, но более нигде).
Если не совсем понятно, правильный вариант вот:

Prava:=ADOQuery1.FieldByName('FWHERE').AsString;

Датасет - набор данных, в Вашем случае это кверя (adoquery), но это могут быть и адопроцедуры и любой наследник TADODataSet (емнип).