Проблема с ADOQuery

[Muramidaza]

Проблема с ADOQuery. Фрагмент кода на Delphi 7:

        DM.ADOQuery1.Close;
        DM.ADOQuery1.Active := False;
        DM.ADOQuery1.SQL.Clear;
        DM.ADOQuery1.SQL.Add('INSERT INTO Firm (FirmName, Address, JurAddress, Phone1, Phone2, Fax, Email, Site, OGRN, INN, OKPO, Bank, RS, KS, BIK)');
        DM.ADOQuery1.SQL.Add('values(:fm, :adr, :jadr, :ph1, :ph2, :fx, :em, :st, :ogrn, :inn, :okpo, :bk, :rs, :ks, :bik)');
        DM.ADOQuery1.Parameters.ParseSQL(DM.ADOQuery1.SQL.text, true);
        DM.ADOQuery1.Parameters.ParamByName('fm').Value := Form1.DBEdit1.Text;;
        DM.ADOQuery1.Parameters.ParamByName('adr').Value := Form1.DBEdit2.Text;
        DM.ADOQuery1.Parameters.ParamByName('jadr').Value := Form1.DBEdit3.Text;
        DM.ADOQuery1.Parameters.ParamByName('ph1').Value := Form1.DBEdit4.Text;
        DM.ADOQuery1.Parameters.ParamByName('ph2').Value := Form1.DBEdit5.Text;
        DM.ADOQuery1.Parameters.ParamByName('fx').Value := Form1.DBEdit6.Text;
        DM.ADOQuery1.Parameters.ParamByName('em').Value := Form1.DBEdit7.Text;
        DM.ADOQuery1.Parameters.ParamByName('st').Value := Form1.DBEdit8.Text;
        DM.ADOQuery1.Parameters.ParamByName('ogrn').Value := Form1.DBEdit9.Text;
        DM.ADOQuery1.Parameters.ParamByName('inn').Value := Form1.DBEdit10.Text;
        DM.ADOQuery1.Parameters.ParamByName('okpo').Value := Form1.DBEdit11.Text;
        DM.ADOQuery1.Parameters.ParamByName('bk').Value := Form1.DBEdit12.Text;
        DM.ADOQuery1.Parameters.ParamByName('rs').Value := Form1.DBEdit13.Text;
        DM.ADOQuery1.Parameters.ParamByName('ks').Value := Form1.DBEdit14.Text;
        DM.ADOQuery1.Parameters.ParamByName('bik').Value := Form1.DBEdit15.Text;
        DM.ADOQuery1.ExecSQL;

При выполнении

DM.ADOQuery1.SQL.Add('values(:fm, :adr, :jadr, :ph1, :ph2, :fx, :em, :st, :ogrn, :inn, :okpo, :bk, :rs, :ks, :bik)');

вылезает ошибка

"Аргументы имеют неверный тип выходят за пределы допустимого диапазона"

Ни как не могу понять в чем дело

Честно - я пока не работал c ADOQuery

[Аватар]

Строку с ParseSQL попробуйте закоментировать

[Muramidaza]

Сообщение от Аватар

Строку с ParseSQL попробуйте закоментировать

Без нее тоже не работает, ошибка возникает до нее - на предыдущей строке.

[Аватар]

СУБД какая?
Каким провайдером пользуетесь?
Свойства Filter и Filtered в каком состоянии у ADOQuery?

[Vad33]

DM.ADOQuery1.Parameters.ParamByName('fm').Value := Form1.DBEdit1.Text;;

??

[xxbesoxx]

Попробуйте так . и DBEdit замените на Edit -е

        with DM.ADOQuery1 do
         begin
           SQL.Clear;
           SQL.Add('INSERT INTO Firm (FirmName, Address, JurAddress, Phone1, Phone2, Fax, Email, Site, OGRN, INN, OKPO, Bank, RS, KS, BIK)');
           SQL.Add(' values(:fm, :adr, :jadr, :ph1, :ph2, :fx, :em, :st, :ogrn, :inn, :okpo, :bk, :rs, :ks, :bik)');
               Parameters.ParamByName('fm').Value := Form1.Edit1.Text; 
               Parameters.ParamByName('adr').Value := Form1.Edit2.Text;
               Parameters.ParamByName('jadr').Value := Form1.Edit3.Text;
               Parameters.ParamByName('ph1').Value := Form1.Edit4.Text;
               Parameters.ParamByName('ph2').Value := Form1.Edit5.Text;
               Parameters.ParamByName('fx').Value := Form1.Edit6.Text;
               Parameters.ParamByName('em').Value := Form1.Edit7.Text;
               Parameters.ParamByName('st').Value := Form1.Edit8.Text;
               Parameters.ParamByName('ogrn').Value := Form1.Edit9.Text;
               Parameters.ParamByName('inn').Value := Form1.Edit10.Text;
               Parameters.ParamByName('okpo').Value := Form1.Edit11.Text;
               Parameters.ParamByName('bk').Value := Form1.Edit12.Text;
               Parameters.ParamByName('rs').Value := Form1.Edit13.Text;
               Parameters.ParamByName('ks').Value := Form1.Edit14.Text;
               Parameters.ParamByName('bik').Value := Form1.Edit15.Text;
               ExecSQL;
               Open;
        end;

[Slym]

values(:fm
____^
пробел?

[Muramidaza]

Сообщение от xxbesoxx

Попробуйте так . и DBEdit замените на Edit -е

        with DM.ADOQuery1 do
         begin
           SQL.Clear;
           SQL.Add('INSERT INTO Firm (FirmName, Address, JurAddress, Phone1, Phone2, Fax, Email, Site, OGRN, INN, OKPO, Bank, RS, KS, BIK)');
           SQL.Add(' values(:fm, :adr, :jadr, :ph1, :ph2, :fx, :em, :st, :ogrn, :inn, :okpo, :bk, :rs, :ks, :bik)');
               Parameters.ParamByName('fm').Value := Form1.Edit1.Text; 
               Parameters.ParamByName('adr').Value := Form1.Edit2.Text;
               Parameters.ParamByName('jadr').Value := Form1.Edit3.Text;
               Parameters.ParamByName('ph1').Value := Form1.Edit4.Text;
               Parameters.ParamByName('ph2').Value := Form1.Edit5.Text;
               Parameters.ParamByName('fx').Value := Form1.Edit6.Text;
               Parameters.ParamByName('em').Value := Form1.Edit7.Text;
               Parameters.ParamByName('st').Value := Form1.Edit8.Text;
               Parameters.ParamByName('ogrn').Value := Form1.Edit9.Text;
               Parameters.ParamByName('inn').Value := Form1.Edit10.Text;
               Parameters.ParamByName('okpo').Value := Form1.Edit11.Text;
               Parameters.ParamByName('bk').Value := Form1.Edit12.Text;
               Parameters.ParamByName('rs').Value := Form1.Edit13.Text;
               Parameters.ParamByName('ks').Value := Form1.Edit14.Text;
               Parameters.ParamByName('bik').Value := Form1.Edit15.Text;
               ExecSQL;
               Open;
        end;

Скопировал вставил (на форму набросал обычных едитов) - та же самая ошибка. В ходе экспериментов выяснилось что ругань возникает при обнаружении в SQL.Add() любого артефакта с двоеточием - пробовал так

(Select * from firm where firmname = :fm)

. Если артефакт убрать - все ОК.

Свойства filter - пустое, filtred - false

Удалил ADOQuery и поставил другой - тоже самое

[Аватар]

СУБД и провайдер секретны? Или слова не знакомые? У ODBC-шных провайдеров бывает такая беда. Если так, то в данном случае придется забыть об параметрах

[Muramidaza]

Сообщение от Аватар

СУБД и провайдер секретны? Или слова не знакомые? У ODBC-шных провайдеров бывает такая беда. Если так, то в данном случае придется забыть об параметрах

СУБД MySQL 5.5
Соединяется через MySQL ODBC 5.1

Но засада в том что ошибка происходит на этапе формирования запроса, он еще не отсылается на сервер