MS Access-Verbindung funktioniert nur in der IDE

[OsCor]

Klar. Aber da der 32-bit-Treiber von der IDE bei Erstellen des Connectionstrings über den Objektinspektor angezeigt wird, ist das Übernehmen einfach - auch wenn man gedanklich erstmal stolpert, weil der Treiber beim Download 2010 heißt, in der IDE aber mit der Zahl 12 angezeigt wird.
Wenn ich jetzt zur Laufzeit den 64-bit Treiber nutzen möchte, weiß ich doch gar nicht, wie der Connectionstring korrekt aussehen muss. Weißt du, wie der aussehen sollte? Das wäre natürlich toll.

Gruß
Oswald

[kompi]

Es kommt hier lediglich auf die Bittigkeit des Programms an. Also 64 Bit Programm -> 64 Bit Engine
Gruß Kompi

[OsCor]

Da habe ich mich wohl nicht richtig ausgedrückt: 'Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\XXXXXXX.accdb;Persist Security Info=False'
Das fett Gedruckte ist das, von dem ich nicht weiß, wie es bei der 64-bittigen Version aussehen müsste.

Gruß
Oswald

[kompi]

Das bleibt alles so.
Gruß Kompi

[Delphi.Narium]

Zitat von OsCor:

Zitat von kompi:

Welche Komponenten verwendest du?
Ich verwende in meiner Anwendung eine Tadoconnection und nachgeschaltet eine Tadotable.

Genauso mache ich das auch.

Auch eine abgespeckte Engine müsste doch in der Appliste des Systems auftauchen, oder? Da ist bei mir nichts aufgeführt. Welche Engine verwendest denn du?
Außerdem: Wenn ich den 32-bit Treiber verwende, sehe ich ja, wie beim Aufbau des Connection-Strings innerhalb der IDE dieser String aussehen muss. Da muss ich erst mal sehen, wie der 64-bit String aussehen müsste.

@Delphi.Narium
Vermutlich stehe ich ziemlich auf dem Schlauch. Was verbessert sich für mich durch die zusätzliche Funktion?

Gruß
Oswald

Du erstelltst damit aus dem Programm heraus den ConnectionString den das Programm benötigt.

Damit muss Du nicht mehr auf Biegen und Brechen versuchen den ConnectionsString für die 32bittige IDE an ein 64bittiges Programm anzupassen.
Außerdem kannst Du so einfach herausgekommen, ob Du mit 'nem 64bittigen Programm überhaupt einen ConnectionString zusammenstellen kann.

Wenn z. B. Treiber ... für die 64Bit-Version fehlen, wirst Du das hier sofort bemerken.

Sprich: Die Sucherei nach 'nem passenden ConnectionString hat dann innerhalb von ca. 5 Minuten ein Ende.

Hast Du den ConnectionString einmal zusammen, kannst Du die Funktion auf wieder rauswerfen.

Und

Zitat von OsCor:

Da muss ich erst mal sehen, wie der 64-bit String aussehen müsste.

musst Du dann nicht mehr. Genau zur Vermeidung dieses Gewusels ist PromptDataSource ja da. Die IDE macht im Objektinspektor doch auch nix anderes. Nur sie macht das für 32 Bit, Du brauchst das aber für 64 Bit. Und das dürften dann am Einfachsten mit 'nem 64 Bit-Programm zu machen sein.

Und wenn Du mit PromptDataSource keinen funktionierenden ConnectionString hinbekommst, dann ist das Problem nicht der ConnectionString sondern "irgendwo" in der Installation der Treiber, Engines, ... zu suchen.

[OsCor]

@Kompi

Ok, alles klar.
Damit man den 64-bit Treiber installieren kann, muss der 32-bittige erstmal deinstalliert werden.
Dann den 64-bittigen installieren und anschließend den 32-bittigen wieder einrichten.

Jetzt funktionierts tatsächlich. Mann…

@Delphi.Narium

Das habe ich jetzt auch kapiert.

Es dankt herzlich
Oswald

[OsCor]

@Delphi.Narium

Jetzt will ich es aber wissen.
Leider habe ich da noch ein Problem mit deinem Code: ADOConnection.Connected := False; Da wird ADOConnection als undeklarierter Bezeichner angemerkt. Was verstehe ich da falsch?

Gruß
Oswald

[Delphi.Narium]

Die Funktion wird mit if GetConnectionString(handle,ADOConnection1) then begin aufgerufen, da musst Du statt ADOConnection1 die von Dir im Programm genutzte TADOConnection übergeben.

Wenn diese tatsächlich undefiniert ist, müsste der Fehler bereits beim Funktionsaufruf passieren.

Es könnte durchaus hilfreich sein, wenn Du mal den Quelltext zeigen könntest, mit dem Du den Aufruf machst, so ist das einfach nur ein Suchen mit Hilfe der

[OsCor]

Zum Ausprobieren habe ich einfach eine Form erstellt und eine ADOTable und eine ADOConnection drauf gestellt. Wenn ich jetzt deinen Code übernehme, sieht das aus, wie folgt:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    ADOTable1: TADOTable;
    ADOConnection1: TADOConnection;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
function GetConnectionString(handle : THandle; ADOConnection1 : TADOConnection;*sConnection : String = '') : Boolean;
begin
------> ADOConnection1.Connected := False;  
**// Hier wird der Dialog zum Aufbau des ConnectionString aufgerufen,
**// analog zu dem Aufbau per ObjektInspektor in der IDE.
**ADOConnection1.ConnectionString := PromptDataSource(handle,sConnection);
**ADOConnection1.Connected := True;
**Result := ADOConnection1.Connected;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  if GetConnectionString(handle,ADOConnection1) then begin
****// Hier sollte die Datenbankverbindung bestehen.
****// Den ConnctionString kannst Du Dir, bei Bedarf per STRG+C aus dem Dialog
****// kopieren und dann an sinnvoller Stelle speichern bzw. der ADOConnection zuweisen.
****ShowMessage(ADOConnection1.ConnectionString);
**end
  else
   begin
****MessageDLG('Es konnte keine Datenbankverbindung hergestellt werden.',mtError,[mbOk],0);
**end;
end;

  end;


end.

Die markierte Zeile in der Funktion wird mit „E2003 Undeklarierter Bezeichner” markiert. Was muss ich da noch rein machen?

Gruß
Oswald

[Klaus01]

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    ADOTable1: TADOTable;
    ADOConnection1: TADOConnection;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
    function GetConnectionString(handle : THandle; ADOConnection1 : TADOConnection;*sConnection : String = '') : Boolean;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
function TForm1.GetConnectionString(handle : THandle; ADOConnection1 : TADOConnection;*sConnection : String = '') : Boolean;
begin
------> ADOConnection1.Connected := False;  
**// Hier wird der Dialog zum Aufbau des ConnectionString aufgerufen,
**// analog zu dem Aufbau per ObjektInspektor in der IDE.
**ADOConnection1.ConnectionString := PromptDataSource(handle,sConnection);
**ADOConnection1.Connected := True;
**Result := ADOConnection1.Connected;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  if GetConnectionString(handle,ADOConnection1) then begin
****// Hier sollte die Datenbankverbindung bestehen.
****// Den ConnctionString kannst Du Dir, bei Bedarf per STRG+C aus dem Dialog
****// kopieren und dann an sinnvoller Stelle speichern bzw. der ADOConnection zuweisen.
****ShowMessage(ADOConnection1.ConnectionString);
**end
  else
   begin
****MessageDLG('Es konnte keine Datenbankverbindung hergestellt werden.',mtError,[mbOk],0);
**end;
end;

  end;


end.

Da die Procedure nicht Teil der Klasse TForm ist, kennt sie ADOConnection1 nicht.

Grüße
Klaus