Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

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

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

Передача параметров 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;

Статья Передача параметров ADO запросу раздела Базы данных ADO может быть полезна для разработчиков на Delphi и FreePascal.


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


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



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


реклама



©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
29.03.2024 07:44:51/0.12569499015808/0