Entwickler-Ecke

Datenbanken - Datenbank und Dos Konsole


Caleb - Mo 23.09.02 11:29
Titel: Datenbank und Dos Konsole
hi,
ich versuche einem Konsolen Programm auf eine Pervasiv Datenbank zuzugreifen....

eigentlich sollte es so funktionieren! Ich bekomme aber immer eine Fehlermeldung

"CoInitialize wurde nicht aufgerufen" und ich weiss einfach nicht mehr wo der Fehler sein soll kann mir jemand helfen?! Danke

P.S. hier der wichtige Teil des Codes

Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
program sqltest;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  AdoDB,
  Classes,
  FileCtrl,
  Dialogs,
  Windows;


procedure main;
var
  q: TAdoQuery;
begin
  try
     q := TAdoQuery.Create(nil);
     q.ConnectionString := '........';
     q.SQL.Clear;
     q.SQL.Add('Select * from firmen_spezifisch');
     q.Prepared := true;
     q.Open;
     q.First;
     q.Close;
    q.Free;
  except
   on E:Exception do showmessage(E.Message);  
  end;

end;

begin
   main;
end.


CopymenAD - Mo 23.09.02 20:02

Hallo Caleb,

versuche einfach mal folgenden Aufruf:


Quelltext
1:
2:
3:
4:
begin
CoInitialize(nil);
main;
end;




Mfg CopymenAD


Caleb - Di 24.09.02 08:41
Titel: Danke aber
leider funzt das net :cry: welche dcu muss ich denn noch einbinden damit das funzt?! Fehlermeldung undefinierter Bezeichner...

Danke für eine Antwort


CopymenAD - Di 24.09.02 10:46

Sorry Caleb,

du mußt die Unit ActiveX mit einbinden !


Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
uses ...,ActiveX;

begin
CoInitialize(nil);

main;

CoUninitialize; // hatte ich beim ersten mal vergessen
end;