Текущий архив: 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