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

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

ADO в консольных приложениях [D6]

DmitryK ©   (2002-05-29 20:11:00) 

Что надо сделать, что бы можно было использовать компоненты ADO в консольных приложениях и DLL.

т.е. что конструкция вида
AC := TADOConnection.Create(nil)
не выдавала ошибок, а нормально создавала объект.

---

Shaman_Naydak   (2002-05-29 22:26:00) [1]

Каких ф-ций?
CoInititialize/CoUninitialize - в ComObj
Если напишешь следующую строчку после begin, то тебе и вышеупомянутых строк писать не надо (при условии подключения SysUtils, ComObj)

if InitProc <> nil then TProcedure(InitProc);

---

DmitryK   (2002-05-29 20:36:00) [2]

Спасибо, вот уж не ожидал, что кто-то так быстро даст ответ. Буду пробовать.

Может подскажешь в каком хелпе искать описание этих фукций и модулей. Что-то ничего не удается найти.

---

Delirium   (2002-05-29 20:17:00) [3]

Буквально на днях написал прогу:

program Sam;

uses
SysUtils, ADODB, ThADO, ActiveX;
var Query:TADOQuery;
begin
CoInitializeEx(nil,COINIT_MULTITHREADED);
Query:=TADOQuery.Create(nil);
Query.ConnectionString:="Provider=SQLOLEDB.1;Password=CM;User ID=Anton;Initial Catalog=aststoreb;Data Source=SDATA1";
Query.SQL.Text:=
"select distinct top 2 dPriceDate "+#13+
"into #Dates "+#13+
"from o_PriceLists "+#13+
"order by dPriceDate desc "+#13+
"declare @D1 datetime "+#13+
"declare @D2 datetime "+#13+
"select top 1 @D1=dPriceDate from #Dates "+#13+
"order by dPriceDate desc "+#13+
"select top 1 @D2=dPriceDate from #Dates "+#13+
"order by dPriceDate asc "+#13+
"drop table #Dates "+#13+
"select distinct "+#13+
"P1.id_name, "+#13+
"ISBN1.cISBN, "+#13+
"r_Names.c_Name, "+#13+
"P2.yPrice as yOldPrice, "+#13+
"P1.yPrice as yNewPrice "+#13+
"from o_PriceLists as P1 "+#13+
"join o_PriceLists as P2 on (P1.id_Name=P2.id_Name) "+#13+
" and (P1.idStor =P2.idStor) "+#13+
"join r_Names on P1.id_name=r_Names.id_name "+#13+
"left join (select id_name,cISBN "+#13+
" from r_Publish_Names "+#13+
" where iPosPublish=1) as ISBN1 "+#13+
" on P1.id_name=ISBN1.id_name "+#13+
"where (P1.dPriceDate=@D1) "+#13+
"and (P2.dPriceDate=@D2) "+#13+
"and (P1.yPrice<>P2.yPrice) "+#13+
"order by c_Name";
Query.Open;
RecordSetToDBF(Query.Recordset,"d:\Mail_Price_List\Sam.DBF");
Query.Close;
Query.Free;
CoUninitialize;
end.


---

Наверх