Поиск:

Ответ в темуСоздание новой темы Создание опроса
> ADO+Access=EDatabaseError, запрос с параметрами 
:(
    Опции темы
vecher
Дата 25.10.2006, 18:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 25.10.2006

Репутация: нет
Всего: нет



Знаю,  что тема поднималась уже не раз и не два
И ВМЕСТЕ С ТЕМ, выполнив все рекомендации по данной тематике, которые давались другим, прошу помочь мне в этом нелегком деле

База - Access 
Доступ - ADO
Среда - Delphi

таблица Employee имеет вид:

Id_of_employee/ ID сотрудника подразделения/ - счетчик
Id_of_department / ID подразделения к которому принадлежит сотрудник/- числовое поле
FIO/ ФИО сотрудника/- строковая переменная
Post/ Должность сотрудника подразделения/- строковая переменная
Degree/ Ученая степень сотрудника подразделения/ - строковая переменная

Добавляется - удаляется все просто замечательно, но на редактировании возникает ошибка с сообщением : Project pSRI.exe raised exception class EDatabaseError with message 'qEdit:Parameter 'Id_of_department' not found'. Process stopped. Use...
Код имеет следующий вид:
Код

procedure TfGuides.pmEditEmployeeClick(Sender: TObject);
var ID_E:Integer;
begin
  if Application.MessageBox('Edit employee data?','Edit',MB_YESNO+MB_ICONQUESTION) = idyes then begin
    application.CreateForm( TfAddEditEmployee, fAddEditEmployee );
    ...
      // form for editing closed with modal result mrOK
    
      fmain.SQLPrepare( qEdit, 'UPDATE SRIdb.Employee SET ID_of_department =: ID_of_department, FIO=:FIO, Post=:Post, Degree=:Degree WHERE ID_of_Eployee = ID_of_Employee' );
      qEdit.Parameters.Refresh;
      qEdit.Parameters.ParamByName( 'ID_of_department' ).Value.asInteger :=fAddEditEmployee.cbDepartmentName.Tag-fAddEditEmployee.Tag;
      qEdit.Parameters.ParamByName('FIO').Value:=fAddEditEmployee.leFIOofEmployee.Text;<--- Delphi показывает что ошибка здесь
      qEdit.Parameters.ParamByName('Post').Value:=fAddEditEmployee.lePostofEmployee.Text;
      qEdit.Parameters.ParamByName('Degree').Value:=fAddEditEmployee.leDegreeofEmployee.Text;
      qEdit.Parameters.ParamByName('ID_of_Employee').Value:=qEmployee.fieldbyname('ID_of_Employee').AsInteger;

      fmain.GoSQL( qEdit, true );     
     qEmployee.Close;
      qEmployee.Open;
    end{if};
  end{if};
end;



при этом в модуле umain описаны следующие функции:

Код

function TfMain.SQLPrepare( query : TADOQuery; sql_str : string ) : boolean;
begin
  try
    if query.Active then
      query.Close;
    query.SQL.Clear;
    query.SQL.Add( sql_str );
    result := true;
  except
    application.MessageBox( 'Не удается создать параметры запроса к БД','Ошибка', MB_OK + MB_ICONERROR);
    result := false;
  end;
end;

function TfMain.GoSQL( query : TADOQuery; isExec : boolean ) : boolean;
begin
  try
    if isExec then
      query.ExecSQL
    else
      query.Open;
    result := true;
  except
    application.MessageBox( 'Не удается выполнить запрос к БД','Ошибкаэ',MB_OK + MB_ICONERROR);
    result := false;
  end;
end;



Прокомментируйте, пожалуйста!!!

Добавлено @ 19:10 
Цитата(vecher @ 25.10.2006,  18:56)
Добавляется - удаляется все просто замечательно, но на редактировании возникает ошибка с сообщением :     ...
 

что-то мне нехорошо  smile 

перестали работать все добавления 
исключение вылезает тоже самое, только я ттак понимаю, вылетает на первом параметре, а на самом деле какая-то ерунда со всеми будет
PM MAIL   Вверх
Rodman
Дата 25.10.2006, 19:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122



Код

UPDATE SRIdb.Employee SET ID_of_department =: IDofdepartment, FIO=:PFIO, Post=:PPost, Degree=:PDegree WHERE ID_of_Eployee = :IDofEmployee 


а так???
PM MAIL WWW Skype GTalk YIM MSN   Вверх
vecher
Дата 25.10.2006, 19:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 25.10.2006

Репутация: нет
Всего: нет



just the same

вылетает в том же месте с такими же комментариями

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

мои сомнения: может дело в делфе или каких-либо настройках?
процедура была написана, но не прверена, остальное все работало
пришлось переустановить delphi 
ничего не работает smile  
PM MAIL   Вверх
Rodman
Дата 25.10.2006, 19:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122



Ты случайно код запроса писал не в CodeEditor (в таком случае параметры не сохраняются)...

Открой в свойствах ADOQuery.Parameters в ручную и глянь, есть ли там твои параметры???
PM MAIL WWW Skype GTalk YIM MSN   Вверх
vecher
Дата 25.10.2006, 20:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 25.10.2006

Репутация: нет
Всего: нет



Цитата(Rodman @ 25.10.2006,  19:45)

Открой в свойствах ADOQuery.Parameters в ручную и глянь, есть ли там твои параметры???

нет, там моих параметров нету

Добавлено @ 20:04 
Код

function TfMain.SQLPrepare( query : TADOQuery; sql_str : string ) : boolean;
begin
  try
    if query.Active then
      query.Close;
    query.SQL.Clear;
    query.SQL.Add( sql_str );
    result := true;
  except
    application.MessageBox( 'Не удается создать параметры запроса к БД','Ошибка', MB_OK + MB_ICONERROR);
    result := false;
  end;
end;


это код функции, которая "готовит" query к работе

как видишь, код пишется не в CodeEditor

Добавлено @ 20:12 
ну, по крайней мере, мне так мниться
PM MAIL   Вверх
Rodman
Дата 25.10.2006, 20:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122



Тормознул....

Но попробуй переименовать параметры...  Иногда помогает...

Если нет - лучше прикрепи, я гляну...
PM MAIL WWW Skype GTalk YIM MSN   Вверх
vecher
Дата 25.10.2006, 20:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 25.10.2006

Репутация: нет
Всего: нет



что конкретно прикрепить?
PM MAIL   Вверх
SergeBS
Дата 26.10.2006, 07:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1111
Регистрация: 10.6.2005
Где: Владимир

Репутация: 11
Всего: 22



vecher
Цитата

=: ID_of_department

Убери пробел после ":", т.е.
=:ID_of_department

PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


Обязательно указание:

1. Базы данных (Paradox, Oracle и т.п.)

2. Способа доступа (ADO, BDE и т.д.)


  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • Вопросы по SQL и вопросы по базам данных не связанные с Дельфи задавать здесь

FAQ раздела лежит здесь!


Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Vit, Петрович.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Базы данных и репортинг | Следующая тема »


 




[ Время генерации скрипта: 0.0892 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.