Знаю, что тема поднималась уже не раз и не два
И ВМЕСТЕ С ТЕМ, выполнив все рекомендации по данной тематике, которые давались другим, прошу помочь мне в этом нелегком деле
База - 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) | Добавляется - удаляется все просто замечательно, но на редактировании возникает ошибка с сообщением : ...
|
что-то мне нехорошо 
перестали работать все добавления
исключение вылезает тоже самое, только я ттак понимаю, вылетает на первом параметре, а на самом деле какая-то ерунда со всеми будет |
