Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 08.06.2014, 23:05   #1
курбанниязов
Пользователь
 
Регистрация: 29.09.2013
Сообщений: 59
По умолчанию Не могу разобраться в чем ошибка

Ошибка:
AdoQuery1.Parameters.ParamByName('l og'). not found!!!!



Код:
 begin
AdoQuery1.Active:=false;
AdoQuery1.Parameters.ParamByName('log').Value:=DBLookupComboBox1.Text;
AdoQuery1.Active:=true;
   If AdoQuery1.RecordCount<>0 then
     begin
      If AdoQuery1.FieldByName('Пароль').AsString=Edit1.Text then
      begin
         login:=LowerCase(Edit1.Text);
         Form1.Show;
         Form21.Hide;
                            If login='Администратор' then
                 begin
                 Form1.Show;
                 Form21.Hide;
                 end;
         end
         else
         ShowMessage('Проверьте пароль!!!');
              If AdoQuery1.FieldByName('Доступ').AsString='False' then Dostup:=true
           else Dostup:=false;
 
if Dostup=false then
begin
Form1.Enabled:=false;
end
else
begin
Form8.Enabled:=true;
 
end
     end
          else Showmessage('Проверьте введенные данные!!!!');
 end
    else ShowMessage('Введите имя пользователя и пароль!');
 
 end;
 end.
курбанниязов вне форума Ответить с цитированием
Старый 08.06.2014, 23:13   #2
Streletz
Старожил
 
Регистрация: 03.01.2014
Сообщений: 2,870
По умолчанию

Цитата:
AdoQuery1.Parameters.ParamByName('l og'). not found!!!!
Скорее всего, в запросе нет такого параметра.
Выложите SQL запрос, который используется в ADOQuery. Так, по одному только Delphi коду, в данном случае, сказать что-либо определённое крайне сложно.
Streletz вне форума Ответить с цитированием
Старый 08.06.2014, 23:18   #3
курбанниязов
Пользователь
 
Регистрация: 29.09.2013
Сообщений: 59
По умолчанию

Цитата:
Сообщение от Streletz Посмотреть сообщение
Скорее всего, в запросе нет такого параметра.
Выложите SQL запрос, который используется в ADOQuery. Так, по одному только Delphi коду, в данном случае, сказать что-либо определённое крайне сложно.
SELECT* FROM Авторизация;
курбанниязов вне форума Ответить с цитированием
Старый 08.06.2014, 23:34   #4
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Цитата:
SELECT* FROM Авторизация;
ну и где log ?
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума Ответить с цитированием
Старый 08.06.2014, 23:36   #5
курбанниязов
Пользователь
 
Регистрация: 29.09.2013
Сообщений: 59
По умолчанию

Цитата:
Сообщение от Mad_Cat Посмотреть сообщение
ну и где log ?
как правильно я просто выбрал все с табл авторизации
курбанниязов вне форума Ответить с цитированием
Старый 08.06.2014, 23:37   #6
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Дык закомменть строчку
Код:
//AdoQuery1.Parameters.ParamByName('log').Value:=DBLookupComboBox1.Text;
тогда
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума Ответить с цитированием
Старый 08.06.2014, 23:42   #7
курбанниязов
Пользователь
 
Регистрация: 29.09.2013
Сообщений: 59
По умолчанию

Цитата:
Сообщение от Mad_Cat Посмотреть сообщение
Дык закомменть строчку
Код:
//AdoQuery1.Parameters.ParamByName('log').Value:=DBLookupComboBox1.Text;
тогда
If AdoQuery1.FieldByName('Доступ') ругаеться теперь на это строку
курбанниязов вне форума Ответить с цитированием
Старый 09.06.2014, 00:05   #8
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
ругаеться теперь
Те же грабли только в профиль. Угадай что еще ты забыл нам поведать связанное со словом "ругается" )
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
проблема в формуле,никак не могу разобраться в чем дело ксюшенькаа Паскаль, Turbo Pascal, PascalABC.NET 1 24.01.2012 17:43
не могу разобраться в чем ошибка shokoladka5013 Помощь студентам 0 13.06.2011 19:35
Немогу разобраться в чем ошибка Ev1L Visual C++ 9 26.11.2010 12:13
не могу разобраться в чем ошибка pavel42 Помощь студентам 10 23.04.2009 18:22