![]() |
Datenbank: MySQL • Version: 5.xx • Zugriff über: DBExpress
TDBXError: Reader-hat-keine-weiteren-Zeilen
Liste der Anhänge anzeigen (Anzahl: 1)
Hi zusammen
Um es gleich vorwegzunehmen: dies ist ein ![]() Es geht darum, Bilder in eine Datenbank einzufügen; nebst den absoluten Rohdaten im Nef-Format sollen aus diesen Thumbnails im jpeg-Format in eine Bildtabelle gespeichert werden. Das für sich klappt soweit. Auch das Abholen des letzten Autoinc-Wertes nach der Einfüge-Operation war erstmal erfolgreich, und so konnten auch verknüpfte Tabellen ihre Werte erhalten. Aber dann gings los. Was genau der Grund, bzw. die bevorstehende Änderung war, kann ich leider nicht mehr nachvollziehen. Auf jeden Fall löschte ich mal alle Testdaten, die sich in der DB angesammelt hatten und vollzog die Änderungen. Und seither meint Delphi jedes mal, wenn das Ergebnis der Abfrage 'SELECT LAST_ID' in eine Variable geschrieben werden soll, der Reader hätte keine weiteren Zeilen... Ein Codeschnipsel aus der zuständigen Prozedur, nachdem ich von der Abfrage der Serverfunktion 'SELECT_LAST_ID' testweise auf ein nach dem höchsten Wert suchenden SQL-Statement umgestiegen war:
Delphi-Quellcode:
Und SelectLastID:
...
SQLString := 'Insert Into Bildtabelle(Thumbnail, NEF) Values (:FThumbMemory,:FNefMemory)'; DelborDataMod.SQLDataSetXE.CommandType := (ctQuery); DelborDataMod.SQLDataSetXE.CommandText := SQLString; DelborDataMod.SQLDataSetXE.Params.CreateParam(ftBlob, 'FThumbMemory', ptInput); DelborDataMod.SQLDataSetXE.Params.CreateParam(ftBlob, 'FNefMemory', ptInput); DelborDataMod.SQLDataSetXE.Params[0].LoadFromStream(FThumbMemory, ftgraphic); DelborDataMod.SQLDataSetXE.Params[1].LoadFromStream(FNefMemory, ftgraphic); DelborDataMod.SQLDataSetXE.ExecSQL(false); DelborDataMod.SQLDataSetXE.Close; SelectLastId(SQLString); Progressbar1.Position := Progressbar1.Position+1; Application.ProcessMessages; FReportList.Add(' '+ IntToStr(i)+'-TPicAdmin.BildTabelleInsert'); FReportList.Add(' '); BildDescribeTabelleInsert(BildTabelleLastId,BildName); end; finally ...
Delphi-Quellcode:
Aufgerufen wird diese Prozedur hier:
procedure TPicAdmin.SelectLastId(SQLString: string);
begin SQLString := 'Select MAX(idBild) from Bildtabelle'; // SQLString := 'Select Last_Insert_ID()'; // DelborDataMod.SQLDataSetXE.GetMetadata := true; // DelborDataMod.SQLDataSetXE.SetSchemaInfo(stIndexes,'Bildtabelle','nil',''); // DelborDataMod.SQLDataSetXE.CommandType := (ctQuery); DelborDataMod.SQLDataSetXE.CommandText := SQLString; DelborDataMod.SQLDataSetXE.Open; DelborDataMod.SQLDataSetXE.First; while not DelborDataMod.SQLDataSetXE.Eof do begin LbxLastID.Items.Add(IntToStr(DelborDataMod.SQLDataSetXE.Fields[0].AsInteger)); end; end;
Delphi-Quellcode:
Für Interessierte habe ich die komplette Bildinsert-Prozedur als Pdf angehängt; ich finde, sie ist etwas zu monströs, um sie hier in voller Länge zu posten.
procedure TPicAdmin.Alle_oeffnenClick(Sender: TObject);
var Seitenlaenge: Integer; AUser, APass: String; Transaction : TDBXTransaction; begin OpenDlg.Filetype := '.NEF'; APass := CM_Main.ProjektFrame1.MaskEdit1.Text; AUser := CM_Main.ProjektFrame1.Edi_User.Text; Seitenlaenge := 100; if OpenDlg.ShowModal = mrOK then begin if DelborDataMod.GetSQLConnection(AUser,APass) then begin DelborDataMod.SQLDataSetXE.SQLConnection := DelborDataMod.SQLConnectionXE; Transaction := DelborDataMod.SQLConnectionXE.BeginTransaction; DelborDataMod.SQLConnectionXE.KeepConnection := true; DelborDataMod.SQLConnectionXE.AutoClone := true; LbxLastId.Items.Add('ActiveStatements := ' + IntToStr(DelborDataMod.SQLConnectionXE.ActiveStatements)); LbxLastId.Items.Add('MaxStmtsPerConn := ' + IntToStr(DelborDataMod.SQLConnectionXE.MaxStmtsPerConn)); // MaxStmtsPerConn- Wert := 1 / Readonly DelborDataMod.SQLDataSetXE.Prepared := false; FReportList.Add(' - TPicAdmin.Alle_oeffnenClick'); BildTabelleInsert2(Seitenlaenge); FReportList.Add(' - TPicAdmin.Alle_oeffnenClick'); WriteReportFile; //<== erstellt eine Reportdatei zur Ausgabe von Variablenwerte etc. DelborDataMod.SQLConnectionXE.CommitFreeAndNil(Transaction); end; end; end; Ich gehe mal davon aus, dass die Variable 'MaxStmtsPerConn' ihren Wert vom MySQL-Server erhält und habe da nach einer entsprechenden Variablen gesucht. Bisher allerdings erfolglos. Ich hab mich auch schon in ![]() ![]() Was mache ich falsch? Für eure Antworten schon mal vielen Dank! Gruss Delbor |
AW: TDBXError: Reader-hat-keine-weiteren-Zeilen
Ich sehe da mehrere Probleme in deinem Code.
1.) du hast ein Datenmodul (DelborDataMod) und darauf ein Dataset (SQLDataSetXE). Es macht wenig Sinn stets das gleiche Dataset für unterschiedliche SQL-Anweisungen zu benützen. Stattdessen sollte man mehrere Datasets benützen und möglichst alle Eigenschaften (insbesondere CommandText) im Objektinspektor einstellen. Kurz: für jeden Zweck ein eigenes Dataset 2.) du verwendest ExecSQL und Close hintereinander. Entweder eine SQL-Anweisung gibt ein Dataset zurück (kann eigentlich nur ein SELECT sein) oder eben nicht (z.B. INSERT, UPDATE oder DELETE). Wenn man ein Dataset erwartet verwendet man Open und Close. Falls man kein Dataset erwartet verwendet man ExecSQL. Diese beiden Fälle sollen nicht vermischt werden 3.) bestimme Abfragen wie z.B.
SQL-Code:
können grundsätzlich nur einen Datensatz liefern.
Select MAX(idBild) from Bildtabelle
Daher sollte der Code so aussehen:
Delphi-Quellcode:
4.) achte darauf, dass Felder immer einen definierten Namen bekommen.
procedure TPicAdmin.SelectLastId(SQLString: string);
var s : string; begin (* im Objektinspektor festgelegt, braucht daher nicht im Code zu sein soll hier nur dem Verständnis dienen SQLString := 'Select MAX(idBild) as MaxID from Bildtabelle'; DelborDataMod.SQLDataSetMaxId.CommandType := (ctQuery); DelborDataMod.SQLDataSetMaxId.CommandText := SQLString; *) DelborDataMod.SQLDataSetMaxId.Close; // zur Sicherheit erst mal schliesen DelborDataMod.SQLDataSetMaxId.Open; s := IntToStr(DelborDataMod.SQLDataSetMaxId.Fields[0].AsInteger); DelborDataMod.SQLDataSetMaxId.Close; // nur hinzufügen, falls noch nicht in der Liste // andernsfalls könnte die gleiche ID mehrfach eingefügt werden if LbxLastID.Items.IndexOf(s) <> -1 then LbxLastID.Items.Add(s); end; Bei der Abfrage
SQL-Code:
hängt es von der Datenbank ab, welchen Namen das Feld bekommt.
Select MAX(idBild) from Bildtabelle
Daher sollte man den Namen mit der AS-Klausel vorgeben:
SQL-Code:
Select MAX(idBild) AS LastId from Bildtabelle
|
AW: TDBXError: Reader-hat-keine-weiteren-Zeilen
Hi sx2008
Grundsätzlich denke ich, hast du damit recht, verschiedene DataSets zu verwenden. Ich sehe allerdings nicht,weshalb die Funktion eingeschränkt werden soll, wenn ich das einemal eine Selectanweisung und das andere mal ein Insert-Statement über dasselbe Dataset ausführe. Zitat:
Zum Beispiel, wenn eine Abfrage die ersten drei Felder liefern soll, eine andere alle und eine dritte nur eines? Zitat:
Das Close steht da auch erst, seit ich mit 'SELECT..MAX' arbeite und sicher sein wollte, das das Dataset auch wirklich geschlossen ist. Ich gehe mal davon aus, dass der Reader, von dem hier die Rede ist, die Objektinstanz ist, die das DataSet ausliest und von diesem erzeugt wird, wenn die Ergebnisse eines SELECT angefordert werden. Zitat:
Gruss Delbor |
AW: TDBXError: Reader-hat-keine-weiteren-Zeilen
Zitat:
Zitat:
Die meisten Abfragen sind fest, d.h. man kann sie schon im Objektinspektor festlegen. Dynamische Abfragen, also wenn das SqlCommand zur Laufzeit zusammengebaut wird, kann man natürlich auch verwenden, aber das ist eher selten. Man kann ca 20 bis 30 Datasets auf ein Datenmodul packen bevor es unübersichtlich wird. Zitat:
Ich verstehe übrigens nicht so ganz, was du mit der LastId eigentlich bezweckst. Eigentlich muss man die höchste ID nur abfragen, wenn man einen neuen Datensatz einfügen möchte. Dann braucht man aber die höchste ID plus 1. Und die Insertanweisung wäre dann
SQL-Code:
weil man die neue ID schon beim Einfügen mitgeben muss.
Insert Into Bildtabelle(idBild, Thumbnail, NEF) Values (:FidBild, :FThumbMemory,:FNefMemory)
Falls das Feld idBild ein Autoincrement-Feld ist muss man es allerdings beim Insert weglassen. Dann ergibt sich allerdings das Problem, dass man nicht weiss mit welcher ID der letzte Datensatz eingefügt wurde. (was passiert wenn mehrere Clients quasi gleichzeitig einfügen?) Ich würde empfehlen auf Autoincrement-Felder komplett zu verzichten und stattdessen die neue ID direkt vor dem Insert zu ermitteln. |
AW: TDBXError: Reader-hat-keine-weiteren-Zeilen
Hi sx2008
Zitat:
Zitat:
Die Funktion 'SELECT_LAST_INSERT_ID' ist übrigens Verbindungsbezogen und mindestens der in Bearbeitung stehende Datensatz gesperrt. MySQL 5.1.xx ist da recht überzeugend. Zitat:
Ich denk, ich werd' mal ein Testprogrämmchen zum Austesten des Frameworks schreiben und hier vorerst auf 'Indexvergabe per Hand' umsteigen. Gleichwohl interessiert es mich immer noch, wenn irgendwer Kenntnisse über das DBX-Framework hat. Gruss Delbor |
Alle Zeitangaben in WEZ +1. Es ist jetzt 17:39 Uhr. |
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 by Thomas Breitkreuz