Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.10.30;
Скачать: CL | DM;

Вниз

TADOConnection в консольном приложении   Найти похожие ветки 

 
AndrewK ©   (2003-10-20 14:28) [0]

Доброго времени суток!

Подскажите, пожалуйста, можно ли в консольном приложении использовать TADOConnection и TADOStoredProc?

Вот код, который под GUI идет, а под консолью не хочет.

program AgentC;

{$APPTYPE CONSOLE}

uses
ADODB, DB;

var
dbConn : TADOConnection;
SP : TADOStoredProc;

begin
dbConn := TADOConnection.Create(nil);
SP := TADOStoredProc.Create(nil);
try
...
finally
SP.Free;
dbConn.Free;
end;
end.


 
Palladin ©   (2003-10-20 14:33) [1]

да, можно, но перед использованием необходимо вызвать

CoInitialize(nil);
ну и соответсно после использования
CoUnInitialize;

uses ActiveX,...


 
Vitaly ©   (2003-10-20 14:54) [2]

program Project2;
{$APPTYPE CONSOLE}
uses AdoDb, windows, activeX;

var d: TADOConnection;
s: TADOQuery;

begin
Coinitialize(nil);
d := TADOConnection.Create(nil);
d.ConnectionString := "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:\ivv.mdb";
d.open;
s := TADOQuery.Create(nil);
s.Connection := d;
s.SQL.Text := "select * from table1";
s.Open;
while not s.Eof do begin
writeln(s["eee"]);
s.next;
end;
readln;
end.


 
AndrewK ©   (2003-10-20 15:01) [3]

Спасибо !!!



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

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

Наверх




Память: 0.47 MB
Время: 0.031 c
3-98441
Denisiy
2003-10-10 16:38
2003.10.30
Установка курсора на последнюю строку таблицы (но не TTable.last)


1-98608
P0tia
2003-10-17 22:02
2003.10.30
Проблема с CoolBar


14-98816
4445
2003-10-11 15:54
2003.10.30
Тормозное открытие папок..


1-98615
qwe
2003-10-21 16:34
2003.10.30
Что такое Self


6-98774
volser
2003-08-08 21:22
2003.10.30
Как програмно вызвать стандартный виндозный дозвонщик?