Datenmodul-Funktionen Delphi XE vs. Delphi 10

[mkinzler]

Ohne weitere Details wird das schwierig werden.

[jaenicke]

Funktioniert denn die 32-Bit-Version mit Delphi 10 kompiliert noch?

[nahpets]

Das Problem dürfte weniger am Datenmodul selbst liegen, sondern eher an den genutzten Datenbankkomponenten.

Bei dem Zugriff auf Access (und auch andere Datenbanken) kommt diese Fehlermeldung eher dann, wenn die Daten eine Abfrage aktuallisiert werden sollen, die Abfrage aber nicht über einen eindeutigen Schlüssel verfügt oder Daten in mehreren Tabellen aktuallisiert werden müssten.

Prüf' bitte mal, ob die Eigenschaften der Datenzugriffskomponenten in beiden Delphiversionen inhaltlich übereinstimmen.

Beschreib' bitte mal etwas genauer, wie Du auf die Datenbank zugreifst, also welche Komponenten ... Wird für den Zugriff ein SQL-Statement genutzt? Wenn ja, stell' das bitte hier mal ein.

[Gerkey]

Erst einmal mein Dank für die mehrfachen Kommentare !
Nachstehend ein Auszug aus dem Datenmodul:

uses
SysUtils, Classes, Dialogs, Messages, DB, ADODB;

procedure Tdm.DataModuleCreate(Sender: TObject);
begin
dm.Hd.ConnectionString := Format('Provider=Microsoft.ACE.OLEDB.12.0;Data Source=%s;Persist Security Info=False',['c:\JrBrHd.mdb']);
dm.Hd.DisableControls;

Procedure ZEITINTERVALLE_SPEICHERN;
…
if FINDE_HAND_MIT_HANDNR( 'G001' ) then
begin
….
dm.Hd.Edit;
dm.Hd['Info1'] := strIntv;
dm.Hd.Post;
end;

Das Datenmodul ist in beiden Fällen bis auf die Zeile mit dem ConnectionString (nur in der 64-Bit Version / Delphi 10 enthalten ) identisch.
Hilft das weiter ?

Zur Frage, ob die 32-Bit Version unter Delphi 10 läuft: ja, das tut sie, wenn ich die Zeile mit dem ConnectionString lösche !

Gerkey

[nahpets]

Zeig' uns bitte mal von dm.Hd den Teil aus der DMF. Eventuell kann man an den dort gesetzten Attributen was erkennen oder zumindest erahnen.

Der Fehler tritt wohl hier auf: dm.Hd.Post

Wie kommt denn die Datenbankverbindung zustande, wenn Du die Zeile mit dem ConnectionString löschst?
Da muss es doch dann noch irgendwo eine Stelle geben, die die Datenbankverbindung herstellen kann.

Was genau ist HD? TADOIrgendwas?
Gibt es dort ein SQL?
Wie wird da die Verbindung zur Datenmenge hergestellt?

Was macht den FINDE_HAND_MIT_HANDNR('G001')? Dürfen wir was über das Innenleben erfahren? Da wird ja wohl die zu editierende Datenmenge ausgewählt. Und die scheint ja nicht änderbar zu sein.

[Slipstream]

Zitat von Gerkey:

Erst einmal mein Dank für die mehrfachen Kommentare !

Delphi-Quellcode:

procedure Tdm.DataModuleCreate(Sender: TObject);
begin
  dm.Hd.ConnectionString := Format('Provider=Microsoft.ACE.OLEDB.12.0;Data Source=%s;Persist Security Info=False',['c:\JrBrHd.mdb']);
  dm.Hd.DisableControls;

Hd ist bestimmt ein Data.Win.ADODB.TADODataSet, oder? Bei TAdoconnection gibts einen ConnectionString, aber kein DisableControls.
Wenn du dem Dataset einen Connectionstring zuweist, ist das Dataset dann automatisch mit der richtigen Tabelle verbunden? Ich fürchte nein.
Wenn du sofort nach dem Zuweisen des Connectionstring DisableControls aufrufst, ist das Dataset bzw. seine Komponenten deaktiviert und die Tabelle noch immer nicht mit dem Dataset verbunden.

Hast du es schonmal mit TADODataSet.Open versucht? Das soll laut Online-Hilfe die Datenmenge aktivieren. Danach sollte man mit der Tabelle ganz normal arbeiten können. Wenn man damit fertig ist, kann man die Tabelle oder die Datenmenge mit TADODataSet.Close wieder schliessen.

[p80286]

Zitat von Slipstream:

Hd ist bestimmt ein Data.Win.ADODB.TADODataSet, oder? Bei TAdoconnection gibts einen ConnectionString, aber kein DisableControls.
Wenn du dem Dataset einen Connectionstring zuweist, ist das Dataset dann automatisch mit der richtigen Tabelle verbunden? Ich fürchte nein.
Wenn du sofort nach dem Zuweisen des Connectionstring DisableControls aufrufst, ist das Dataset bzw. seine Komponenten deaktiviert und die Tabelle noch immer nicht mit dem Dataset verbunden.

Hast du es schonmal mit TADODataSet.Open versucht? Das soll laut Online-Hilfe die Datenmenge aktivieren. Danach sollte man mit der Tabelle ganz normal arbeiten können. Wenn man damit fertig ist, kann man die Tabelle oder die Datenmenge mit TADODataSet.Close wieder schliessen.

Warum spekulieren?
Der vollständige Source-Code hilft hier weiter.

Zitat von Gerkey:

Zur Frage, ob die 32-Bit Version unter Delphi 10 läuft: ja, das tut sie, wenn ich die Zeile mit dem ConnectionString lösche !

Alleine diese Aussage zeigt, daß hier einiges im Argen liegt.

Gruß
K-H

[Gerkey]

Datenmodul:
uses
SysUtils, Classes, Dialogs, Messages, DB, ADODB;
type
Tdm = class(TDataModule)
ADOConnection1: TADOConnection;
Hd: TADOTable;

{ ________________________ procedure Tdm.DataModuleCreate _____________________}
procedure Tdm.DataModuleCreate(Sender: TObject);
begin
dm.Hd.ConnectionString := Format('Provider=Microsoft.ACE.OLEDB.12.0;Data Source=%s;Persist Security Info=False',['c:\JrBrHd.mdb']);
{ dm.Hd.DisableControls; }
end;

Function FINDE_HAND_MIT_HANDNR( HdNr : String ) : boolean;
begin
if not dm.Hd.Active then dm.Hd.Open;
result := False;
if dm.Hd.Locate('HdNr',(HdNr),[loPartialKey]) then
result := True;
end;

Procedure ZEITINTERVALLE_SPEICHERN;
var sWert, strIntv : String;
begin
if FINDE_HAND_MIT_HANDNR( 'G001' ) then
begin
…
dm.Hd.Edit;
dm.Hd['Info1'] := strIntv;
dm.Hd.Post;
end;
end;

Die Tabelle ist also nach Ausführung von FINDE_HAND_MIT_HANDNR geöffnet. Das Problem entsteht mit der Ausführung von dm.Hd.Post !
Auch bei gelöschtem Statement dm.Hd.DisableControls kommt die Fehlermeldung.
Und in der Delphi 10 / 32-Bit Version funktioniert es (ohne ConnectionString).

Gerkey