Delphi-PRAXiS
Seite 3 von 3     123   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Datenbanken (https://www.delphipraxis.net/15-datenbanken/)
-   -   MySQL Daten updaten mit Delphi FireDac (https://www.delphipraxis.net/216661-mysql-daten-updaten-mit-delphi-firedac.html)

Delphi.Narium 7. Feb 2025 15:41

AW: MySQL Daten updaten mit Delphi FireDac
 
Zitat:

Zitat von HCB (Beitrag 1546049)
@Delphi.Narium
Das mit den Parametern habe ich schon verstanden.
Ich meinte
Delphi-Quellcode:
 MyQuery.ParamByName('ArtVKPreis_0').AsString := AccessQuery.FieldByName('ArtVKPreis_0').AsString;
was die Nachkommastellen nicht nimmt.

Naja, .AsString ist ja für nummerische Werte auch nicht korrekt. Da kann man nicht erwarten das es korrekt funktioniert.
Zitat:

Zitat von HCB (Beitrag 1546049)
Mit Value oder mit asFloat ist es korrekt.

Value interpretiert, wird meist richtig sein wird. .AsFloat dürfte in dem Fall der Preise die einzig richtige Variante sein.
Zitat:

Zitat von HCB (Beitrag 1546049)
Ich habe mal deine Variante eingesetzt. Es erfolgt kein Update obwohl der Loop durchläuft.
Interessanterweise zeitgte mir
Delphi-Quellcode:
 pgb_updateStatus.Caption := Format('ArtNr: %.5d - aktuallisierte Sätze: %.5d',[Q_sArtikelArtNr.AsInteger, MyQuery.RowsAffected]);
nur den ersten Datensatz. Eine Veränderung findet nicht statt.

Wenn nur der erste Datensatz angezeigt wird, läuft die Schleife nicht (zwingend) durch. Hier würde ich eher erwarten, dass ein Fehler auftritt, der aber "irgendwo" verschluckt wird.
Kommt das Programm denn im Except-Block an? Wird dort dann das Rollback ausgeführt? Mal den Programmablauf im Debugger überprüft, nachvollzogen?
Zitat:

Zitat von HCB (Beitrag 1546049)
Ohne die Transaktionsachen läuft es korrekt.

Irgendwas scheint da gewaltig schiefzulaufen :-(
Zitat:

Zitat von HCB (Beitrag 1546049)
Nebenbei ist mir noch etwas nicht klar:
Delphi-Quellcode:
begin
     FDMSAccessService.Database:='E:\Preisdateien\K000110_p.mdb';
     FDConnection.Connected := False;
     FDMSAccessService.Compact;
end;
sollte doch eigentlich ganz easy die Datenbank komprimieren. Was es aber nicht tut.
Es kommt die Fehlermeldung: Unbekannter OLE-Fehler ['' konnte nicht verwendet werden; Datei wird bereits verwendet]

Im MS Access Demoprogramm funktioniert es ebenso mit gleicher Fehlermeldung nicht!
Was ist denn da schon wieder verkehrt? Ich zweifel ernsthaft an meinen schon ohnehin geringen Fähigkeiten bezg. Delphi.

Die Fehlermeldung besagt, dass die Datenbankdatei in Benutzung ist. Ein Compact geht nur, wenn kein Prozess auf die Datenbankdatei zugreift. Es wird ein exklusiver Dateizugriff benötigt.

Wenn z. B. in der IDE eine Connection auf True steht und Du dann das Programm ausführst, reicht dies aus, um diese Fehlermeldung zu erhalten.

Compact geht nur, wenn absolut sichergestellt ist, dass kein Prozess noch eine Verbindung zur Datenbank hat. Auch alle Connections im eigenen Programm, alle Querys, ... müssen geschlossen sein. Ebenso alle anderen Programme, die auf diese Datenbankdatei zugreifen können.

HCB 7. Feb 2025 16:43

AW: MySQL Daten updaten mit Delphi FireDac
 
FDConnection.Connected := False;
reicht das nicht aus? Es sind doch dann alle die an der Verbindung hängen automatisch geschlossen.
Im Demoprogramm geht aus bei mir ja auch nicht. Da habe ich überhaupt nichts daran verändert!

In der Fehlermeldung sieht es so aus, als wenn keine Datei angegeben ist. (Beide Hochkommas) ['' konnte nicht verwendet werden; Datei wird bereits verwendet]

Sehr merkwürdig.

Delphi.Narium 7. Feb 2025 16:56

AW: MySQL Daten updaten mit Delphi FireDac
 
Es müssen alle Verbindungen zur Datenbank geschlossen sein, nicht nur die im eigenen Programm.

Sind in der IDE noch Datenbankverbindungen offen?
Stehen das irgendwelche Connections auf True oder sind irgendwelche Querys aktiv?
Greifen weitere Programme auf die Datenbank zu?
...

Dass da kein Dateiname in der Fehlermeldung steht, ist unschön, aber normal. Da wurde wohl bei der Programmierung (irgendwo in den Tiefen der Schnittstelle) geschlampt.

Hast Du den Process-Explorer auf Deinem Rechner? Wenn ja, dann schau mit dem mal nach, welche Prozesse auf die Datenbankdatei zugreifen.

HCB 7. Feb 2025 17:15

AW: MySQL Daten updaten mit Delphi FireDac
 
@Delphi.Narium

Danke vielmals für Deine ständige Unterstützung. Wieder einmal hast du mir sehr geholfen.
Ich hatte die externe Datei 'E:\Preisdateien\K000110_p.mdb' mit AssignFile(F, FileName)zwar verbunden, aber nicht mehr freigegeben!
Das FDConnection.Connected := False bezieht sich ja offenbar nur auf interne Queries etc.

Alles gut soweit.

Mit den Transaktionen muss ich mich mal näher befassen.

LG Harry


Alle Zeitangaben in WEZ +1. Es ist jetzt 13:15 Uhr.
Seite 3 von 3     123   

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz