Delphi - [решено] Invalid variant type conversion

Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета.

Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен

Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме.

С уважением, ваш призрачный админ, BigMac...

Delphi - [решено] Invalid variant type conversion

mind.beggar

Новый участник

Сообщения: 3
Благодарности: 0

Конфигурация

Профиль | Отправить PM | Цитировать

Код:

     DM1.Qtemp.Close;
     DM1.Qtemp.SQL.Clear;
     DM1.Qtemp.SQL.Add('insert into sb_dok_el(INSTRKOD, DOCNUM, DOKDATE, KLADOVSCHIK, DOK_ID, SKLKOD, OPTYPE_ID, ID_ROOTDOC)');
     DM1.Qtemp.SQL.Add('values (:aINSTRKOD, :aDOCNUM, :aDOKDATE, :aKLADOVSCHIK, :aDOK_ID, :aSKLKOD, :aOPTYPE_ID, :aID_ROOTDOC)');
     with DM1.Qtemp.ParamByName('aINSTRKOD') do
       begin
         ParamType := ptInput;
         DataType := ftInteger;
         Value := DM1.qSklad.FieldByName('INSTRKOD').Text
       end;
     with DM1.Qtemp.ParamByName('aDOCNUM') do
       begin
         ParamType := ptInput;
         DataType := ftString;
         Value := eNum.Text;
       end;
     with DM1.Qtemp.ParamByName('aDOKDATE') do
       begin
         ParamType := ptInput;
         DataType := ftDate;
         Value := eDOKDATE.Value;
       end;
     with DM1.Qtemp.ParamByName('aKLADOVSCHIK') do
       begin
         ParamType := ptInput;
         DataType := ftString;
         Value := eKLADOVSCHIK.Text;
       end;
     with DM1.Qtemp.ParamByName('aDOK_ID') do
       begin
         ParamType := ptInput;
         DataType := ftInteger;
         Value := sb_dok_id;
       end;
     with DM1.Qtemp.ParamByName('aSKLKOD') do
       begin
         ParamType := ptInput;
         DataType := ftInteger;
         Value := skl_kod;
       end;
     with DM1.Qtemp.ParamByName('aOPTYPE_ID') do
       begin
         ParamType := ptInput;
         DataType := ftInteger;
         Value := 92;
       end;
     with DM1.Qtemp.ParamByName('aID_ROOTDOC') do
       begin
         ParamType := ptInput;
         DataType := ftInteger;
         Value := rootdoc_id;
       end;
     DM1.Qtemp.ExecSQL;

На ExecSQL влится ошибка "Invalid variant type conversion"
Как ее вылечить?

Отправлено: 10:50, 28-02-2013

lxa85

Необычный

Сообщения: 4466
Благодарности: 995

Профиль | Сайт | Отправить PM | Цитировать

Цитата mind.beggar:

ParamType := ptInput;
DataType := ftInteger;
Value := DM1.qSklad.FieldByName('INSTRKOD').Text »

DM1.Qtemp.ExecSQL; лишь выполняет запрос.
Ошибка идет потому, что какой-то параметр задан не верно.
Ответ выделен выше.

-------
- Я не разрешаю тебе быть плохой! Потому что плохие люди совершают плохие поступки. А это нехорошо!
(Из наставлений 5 летней девочки своей младшей сестре)

Отправлено: 19:38, 28-02-2013 | #2