Передача параметров ADO запросу

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

CONECT_STR='Provider=Microsoft.Jet.OLEDB.4.0;Password=" " ;User ID=Admin;'+{Data Source=D:\ExBd\ТЕРМО\Bd0.mdb;}
   'Data Source=%s; Mode=Read|Write|Share Deny None;Extended Properties=" " ;'+
   'Locale Identifier=1049;Persist Security Info=True;Jet OLEDB:System database=" " ;'+
   'Jet OLEDB:Registry Path=" " ;Jet OLEDB:Database Password=" " ;Jet OLEDB:Engine Type=4;'+
   'Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;'+
   'Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password=" " ;'+
   'Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;'+
   'Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False';

function TdmR3.GetCountForPeriod(LastDate: TDateTime; IsPlan: boolean): Integer;
 var qu: TADOQuery;
   S: String;
begin
 qu:=TADOQuery.Create(nil);
 try
   S:=FormatDateTime('dd.mm.yy',LastDate);
   qu.ConnectionString:=WideString(Format(CONECT_STR,[db_file]));
   qu.SQL.Text:='select count(*) from DecadaVal as d where d.LastDate=:LastDate and IsPlan=:IsPlan';
   qu.Parameters[0].Value:=LastDate;
   qu.Parameters[1].Value:=IsPlan;
   qu.Open;
   Result:=qu.Fields[0].AsInteger;
 finally
   qu.Free;
 end;
end;

Вот перевод текста на русский язык:

Код, который вы предоставили, написан на Delphi и использует библиотеку ADO (ActiveX Data Objects) для взаимодействия с базой данных Microsoft Jet. Функция GetCountForPeriod принимает два параметра: LastDate типа TDateTime и IsPlan типа boolean. Она возвращает целочисленное значение.

Вот подробный анализ, что код делает:

1. Переменная CONECT_STR - строка, содержащая строку подключения к базе данных Microsoft Jet. Строка подключения включает различные настройки, такие как источник данных, ID пользователя, пароль и другие параметры.
2. В функции GetCountForPeriod создается экземпляр класса TADOQuery с помощью метода Create.
3. Используется блок try-except для обеспечения безопасной выполнимости запроса. Если возникнет ошибка при выполнении запроса, запрос будет освобожден и ошибка будет распространена.
4. Функция FormatDateTime используется для преобразования параметра LastDate в строку формата 'dd.mm.yy'.
5. Свойство ConnectionString объекта TADOQuery устанавливается с помощью переменной CONECT_STR, заменявая placeholder [db_file] на фактическое имя файла.
6. Текст запроса SQL задается SELECT-запросом, который считает количество строк в таблице DecadaVal, где столбец LastDate соответствует параметру LastDate и столбец IsPlan соответствует параметру IsPlan.
7. Добавляются два параметра к запросу: :LastDate и :IsPlan, которые соответствуют параметрам LastDate и IsPlan функции соответственно. Значения этих параметров устанавливаются с помощью свойства Parameters.
8. Метод Open вызывается на объекте запроса для выполнения запроса.
9. Результат запроса (то есть, количество строк) получается из первого поля коллекции Fields запроса и возвращается как целочисленное значение.

Функция возвращает количество строк в таблице DecadaVal, соответствующих заданным условиям.

Обратите внимание: вам нужно заменить placeholder [db_file] в строке подключения на фактическое имя вашей базы данных.

В статье описывается функция GetCountForPeriod, которая получает количество записей из базы данных Microsoft Jet OLEDB для заданного периода времени с помощью ADO-запроса и передачи параметров.

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

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

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