Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Optional feature not implemented при запросе с датой [D7, MSSQL]


Рамиль ©   (2006-02-06 09:59:00) 

Запрос

insert into U_DEPARTMENT(UserID, Department, LastSyncDate, AgentName,  StartDocNo, PreSyncDate, LastLoadDate, Email, StartPayMentNo)  values (:p0, :p1, :p2, :p3, :p4, :p5, :p6, :p7, :p8)

Код

procedure TfmEditVAN.UdateData;
begin
 if DM.acBase.InTransaction then
 begin
//    MessageBox();
   exit;
 end;
 Self.SetParametrs;
 acUpdate.Execute;
end;

procedure TfmEditVAN.SetParametrs;
begin
 with acUpdate.Parameters do
 begin
   ParamByName('p0').Value := lePalm.Text;
   ParamByName('p1').Value := nleDop.IntValue;
   ParamByName('p2').Value := dtpLast.DateTime;
   ParamByName('p3').Value := leAgent.Text;
   ParamByName('p4').Value := nleZak.IntValue;
   ParamByName('p5').Value := dtpPrev.DateTime;
   ParamByName('p6').Value := dtpLastLoad.DateTime;
   ParamByName('p7').Value := '';
   ParamByName('p8').Value := '1';
 end;


acUpdate: TADOCommand;

Первый раз с MS SQL работаю. С другими СУБД вроде все номально всегда проходило.. Чем это лечится?

В логе ошибка в таком виде:


Arm          a58-e70 EXIT  SQLBindParameter  with return code -1 (SQL_ERROR)
 HSTMT               015E2AA8
 UWORD                        3
 SWORD                        1 <SQL_PARAM_INPUT>
 SWORD                        9 <SQL_C_DATE>
 SWORD                        9 <SQL_DATE>
 SQLULEN                   19
 SWORD                        0
 PTR                0x00BCF3A8
 SQLLEN                     0
 SQLLEN *            0x00BDE8C8

 DIAG [S1C00] [Microsoft][ODBC SQL Server Driver]Optional feature not implemented (0)


Рамиль   (2006-02-06 13:45:00) [1]

Да даже как то не задумывался.. Был источник его и использовал.


msguns   (2006-02-06 10:41:00) [2]

>Рамиль ©   (06.02.06 10:33) [3]
>это дополнительная нахлобучка для купленной программы и подключился через ее источник данных.

Why ?


Рамиль   (2006-02-06 10:33:00) [3]


> msguns ©   (06.02.06 10:06) [1]
> Почему через ODBC, а не OLEDB (Jet) ?

Хм... Через OLE DB работает. А через ODBC только потому что это дополнительная нахлобучка для купленной программы и подключился через ее источник данных.
А через ODBC не будет работать что ли?

> ЮЮ ©   (06.02.06 10:21) [2]
> поробуй перед(после) присвоениея значения явно указать тип:
>
> ParamByName('p2').DataType := ftDateTime;

Так там и так само явно определяется.


ЮЮ   (2006-02-06 10:21:00) [4]

поробуй перед(после) присвоениея значения явно указать тип:
ParamByName('p2').DataType := ftDateTime;


msguns   (2006-02-06 10:06:00) [5]

Почему через ODBC, а не OLEDB (Jet) ?


Наверх

Титульная страница Поиск, карта сайта Написать письмо