Текущий архив: 2002.06.24;
Скачать: CL | DM;

Вниз

ADO в консольных приложениях   Найти похожие ветки 

← →
DmitryK   (2002-05-29 20:11) [0]

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

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

---

← →
Delirium ©   (2002-05-29 20:17) [1]

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

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.


---

← →
DmitryK ©   (2002-05-29 20:36) [2]

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

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

---

← →
Shaman_Naydak ©   (2002-05-29 22:26) [3]

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

if InitProc <> nil then TProcedure(InitProc);

---

Страницы: 1 вся ветка

Текущий архив: 2002.06.24;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.019 c