Datenmodul-Funktionen Delphi XE vs. Delphi 10

[Gerkey]

Möchte 32-Bit - Anwendungen von Delphi XE auf 64-Bit - Anwendungen in Delphi 10 umsetzen.
Bei der Speicherung von MSACCESS - Daten, die im XE - Datenmodul einwandfrei funktioniert, kommt an der selben Stelle in 64 - Bit / Delphi 10 die Fehlermeldung "Operation muss eine aktualisierbare Abfrage verwenden !".
Kann mir (Delphi Autodidakt) jemand bei der Lösung des Problems helfen ?

Gerkey

[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

[nahpets]

Nein, das was Du schreibst, kann so nicht sein.

Du hast 'ne TADOConnection, die baut 'ne Datenbankverbindung auf.

Zusätzlich weist Du aber der TADOTable auch 'nen ConnectionString zu. Entweder oder, aber bitte nicht beides.

Nimmst Du den String bei der TADOTable weg, wird die Verbindung der TADOConnection genutzt, sie scheinen sich wohl zu unterscheiden.

dm.Hd.DisableControls hat damit nix zu tun, das sagt nur, dass datensensitive Komponenten nicht aktuallisiert werden sollen. Ist also was für die Optik, aber nicht für den Datenbankzugriff.

Überprüfe doch mal bitte sämtliche Einstellungen der TADOConnection in allen Programmversionen, ob die auch wirklich zu 100% übereinstimmen.

Die Fehlermeldung besagt, dass die Änderungen nicht geschrieben werden dürfen, weil die Datenmenge nicht beschreibbar ist.

Also schau bitte mal nach, ob bei allen Versionen das Schreiben über die TADOConnection überhaupt zulässig ist.

Der von Dir gepostete ConnectionString lässt nicht erkennen, dass das Schreiben erlaubt sein könnte.

Beispiel für Windows-XP mit Delphi 7 und Zugriff auf 'ne Access-Datenbank:
Format('Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=%s;Mode=ReadWrite|Share Deny None;Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don''t Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False',['c:\JrBrHd.mdb']);
Bei Deiner Version fehlen alle Angaben zu Mode=. Hier sollten aber die Zugriffsrechte stehen.

Unter Windows-XP ist als Vorgabe der Zugriff auf ACCESS ReadOnly. Wie das bei anderen Betriebssystemen ist, mag ich jetzt nicht ermitteln. Prüfe das bitte selbst, durch den Aufbau einer neuen Datenbankverbindung aus der Entwicklungsumgebung heraus.