Показать сообщение отдельно
  #4  
Старый 14.05.2013, 08:21
Ludo Ludo вне форума
Прохожий
 
Регистрация: 14.05.2013
Сообщения: 15
Версия Delphi: Delphi 7
Репутация: 10
Вопрос

Я реализую через StoredProc, ошибок не выдает но в таблицу не записывает, подскажите в чем может быть причина?
Код:
DataModule1.StoredProc.Close;
DataModule1.StoredProc.ProcedureName:='InsertScan';
DataModule1.StoredProc.Parameters.Clear;
DataModule1.StoredProc.Parameters.CreateParameter('nom_scan', ftInteger, pdInput, 10, null);
DataModule1.StoredProc.Parameters.ParamValues['nom_scan']:=1;
DataModule1.StoredProc.Parameters.CreateParameter('nom_doc', ftInteger, pdInput, 10, null);
DataModule1.StoredProc.Parameters.ParamValues['nom_doc']:=1;
DataModule1.StoredProc.Parameters.CreateParameter('scan', ftBlob, pdInput, 10, null);
DataModule1.StoredProc.Parameters.ParamValues['scan']:=FilenameEdit.Text;
//DataModule1.QLogTable.Edit;
//TBLOBField(DataModule1.QLogTable.FieldByName('scan')).LoadFromFile(FilenameEdit.Text);
//DataModule1.QLogTable.Post;
ShowMessage('Картинка удачно сохранена!');
Админ: Пользуемся тегами для оформления кода!
Ответить с цитированием