Исправление ошибки при обновлении столбцов типа datetime в SQL Server с использованием Delphi 2006

Delphi , Базы данных , ADO

При работе с базой данных SQL Server через Delphi 2006 может возникнуть ошибка при попытке вставки данных в столбцы типа datetime. Ошибка выражается в том, что при использовании параметризованного запроса появляется сообщение об исключении класса EOleException с текстом 'Optional feature not implemented'. Это происходит, когда пытаются использовать функцию VarAsType для преобразования данных в тип adDbTimeStamp, но такая операция не удается.

Пример кода, который приводит к ошибке:

procedure TForm1.btnZoomClick(Sender: TObject);
const
  InsCmd = 'insert into dbo.foo (added, edited, editor, narrative) ' +
           'values (:dateAdded, :dateEdited, :theEditor, :theNarrative);';
begin
  dmDbToy2.DataModule2.ADOCommand1.CommandText := InsCmd;
  with DataModule2.ADOCommand1.Parameters do
  begin
    FindParam('dateAdded').Value := VarFromDateTime(Now);
    FindParam('dateEdited').Value := Null;
    FindParam('theEditor').Value := 'wades';
    FindParam('theNarrative').Value := Null;
  end;
  DataModule2.ADOCommand1.Execute;
end;

Решение проблемы заключается в изменении провайдера подключения к базе данных. Вместо использования OLEDB Provider for ODBC следует использовать OLEDB Provider for SQL Server. В строке подключения это изменение отражается следующим образом:

Provider=MSDASQL.1;... -> Provider=SQLOLEDB.1;...

После этого, вставка данных в столбцы типа datetime становится возможной с помощью простого присваивания значения типа TDateTime параметру TParameter.Value:

FindParam('dateAdded').Value := Now;

Это решение было подтверждено пользователем RRUZ в комментариях к оригинальному вопросу, и после его применения ошибка была устранена.

Также стоит отметить, что для корректной работы с параметрами в TADOCommand рекомендуется использовать метод ParamByName вместо FindParam. Это позволит избежать ошибок, связанных с отсутствием параметра в коллекции параметров.

Пример использования ParamByName:

with ParamByName('dateAdded') do
begin
    DataType := ftDateTime;
    Value := Now;
end;

Использование этих рекомендаций позволит избежать ошибок при работе с параметризованными запросами и столбцами типа datetime в SQL Server через Delphi 2006.

Создано по материалам из источника по ссылке.

При обновлении столбцов типа datetime в SQL Server через Delphi 2006 возникла ошибка, которую можно исправить путём изменения провайдера подключения и использования метода ParamByName для работы с параметрами.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: ADO ::