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