MySQL Funktion (z.B. YEAR()) gibt je nach DB unterschiedliche Typen zurück

[Medium]

Ich möchte gern eine einfache Abfrage machen:

Code:

SELECT 
  YEAR(V_Dat) yr,
  MONTH(V_Dat) mn,
  DAY(V_Dat) dy,
  SUM(Anteil_I) sm
FROM 
  rpohis
WHERE 
  Tank_Nr = 20 
GROUP BY 
  DATE(V_Dat) 
ORDER BY 
  yr DESC, 
  mn ASC, 
  dy ASC

Das ganze in einer TUniQuery, in welcher ich die Felder anlegen lassen habe.

Mit meiner DB auf meinem Entwicklungs-PC werden diese für die Spalten yr, mn und dy als TIntegerField angelegt.
Auf dem Live-System beim Kunden ist statt MariaDB noch eine ältere MySQL Installation, die ich auch nicht mal eben wechseln kann. Diese scheint für die Datumsfunktionen nun aber LargeInts zurückzugeben, sodass mein Programm dann meckert, dass TLargeField erwartet würden, aber TIntegerField gefunden wurden.

Ich habe bislang keine Möglichkeit gefunden, wie ich in dem SELECT einen bestimmten Ergebnistyp erzwingen kann. CAST() und CONVERT() lassen lediglich die generischen SIGNED und UNSIGNED Tyen zu, die zum selben Problem führen. Einen View kann ich auf dem Live-System aus mir unbekannten Gründen auch nicht erzeugen (die Option zum Anlegen ist unter HeidiSQL ausgegraut) - mit dem hätte ich ja die Möglihckeit die Typen fix zu definieren.

Was könnte ich da noch versuchen?

[Sinspin]

Ich verstehe jetzt nicht ganz wo Du das Problem hast.
Deine TUniQuery hat angelegte Felder? Und es knallt dann auf einem von beiden Rechnern?

Dann arbeite doch ohne angelegte Felder. Das macht doch eh nur Ärger.
Und greif dann via FieldByName('FieldName').As... zu.

[Medium]

Das ist leider keine Option, wenn ich das Ergebnis dann mit einer TDataSource in einen TAdvDBGrid darstellen will. Nen Grid von Hand zu befüllen würde ich gern vermeiden, und wozu hab ich denn sonst so schmucke Komponenten gekauft =)

[himitsu]

Du kannst doch im Grid die Spalten schon erstellen und falls die im DtaSet dafür nötig waren, dann aus dem Dataset wieder rauslöschen und automatisch erstellen lassen.

Neuerdings können viele Query-Komponenten nun auch Beides (z.B. FireDAC), also ein paar Felder im Designer oder vorm Öffnen per Code dran und den Rest beim Open automatisch. (früher ging nur entweder oder)

[Uwe Raabe]

Mit FireDAC könnte man auch das Datentyp-Problem mit einem entsprechenden Mapping lösen. Ob, und wenn ja, wie das mit TUniQuery geht, kann ich leider nicht sagen.

[Medium]

Mein Fehler: Habe vergessen zu erwähnen, dass das unter D2007 passieren muss. Das sollte eine ganz einfache aus der Hüfte geschosssene Funktion für ein bestehendes Programm werden, mit der man sich Verbräuche summiert pro Tag anzeigen lassen kann. Habe ich unentgeldlich zugesagt, weil "ist ja bloß 2 Zeilen SQL, und nen Grid auf ein Fenster schmeißen". Bis ich es dann beim Kunden ausgeführt habe war das auch so...

Also: FireDAC schön und gut, kann ich hier aber nicht mal so eben austauschen ohne ein paar Mannwochen Arbeit. Ich habe bei Uni nichts gefunden, was irgendwie den Namen "Mapping" trägt, und habe auch nicht wirklich eine Vorstellung davon was das genau macht in diesem Zusammenhang.

Das Alter der IDE und Komponenten führt fürchte ich auch dazu, dass Himi's 2. Idee hier nicht eingesetzt werden kann.
Die erste verstehe ich nicht ganz. Die Spalten im Grid an sich sind nicht das Problem, sondern die Fields die ich im Field-Editor der Query anlege. Da diese mitsamt ihres Typen fest im Deklarationsteil landen, verstehe ich gerade nicht wie ich da zur Laufzeit etwas löschen/hinzufügen können soll.

[Uwe Raabe]

Seit ein paar Versionen erlaubt ein TDataSet einen Mischbetrieb mit statischen und dynamischen Feldern. Das würde aber das Typ-Problem vermutlich gar nicht lösen.

Allerdings unterstützt auch UniDAC so ein Mapping: https://docs.devart.com/unidac/data_type_mapping.htm - zumindest in der aktuellen Version.

[Medium]

Sieht interessant aus, aber die D2007 Komponenten haben die entsprechenden Methoden und Eigenschaften offenbar leider noch nicht :(

Kann ich das nicht auch evtl. auf Seite der DB oder Abfrage lösen? Irgendwie muss man doch einem Result-Set konkrete Typen aufdrücken können :?

[Sinspin]

Zitat:

Zitat von Medium (Beitrag 1509696)

Das ist leider keine Option, wenn ich das Ergebnis dann mit einer TDataSource in einen TAdvDBGrid darstellen will.

Alle meine Queries kommen ohne statische Felder und hängen genauso auch an Grids. Allerdings DevExpress.

Im Regelfall lade ich die Query einmal zur Designzeit und lasse vom Grid alle Columns erstellen.
Zur Laufzeit macht der Grid sich dann selber ran und ordnet alles passend zu. Namen und Typen sind ja bekannt. Der Grid hat zum Glück keine Probleme wenn die Typen leicht abweichen.

Wenn dein Grid damit nicht klarkommt, die Columns müssten sich doch auch zur Laufzeit erstellen lassen? ...dann jeweils mit den passenden Typen.

Zitat:

Zitat von Medium (Beitrag 1509696)

Kann ich das nicht auch evtl. auf Seite der DB oder Abfrage lösen? Irgendwie muss man doch einem Result-Set konkrete Typen aufdrücken können

Eigentlich ja, aber du hast ja schon geschrieben dass CAST keinen Einfluss zu haben scheint.

[himitsu]

Es gibt irgendwo in der Komponente eine/meherere Tabelle/Listen, wo Übersetzungen drin stehen.

DatenbankTypen -> TDataType/TFieldType -> TFieldClassIrgendwas


Und dann kann man eben teilweise im Select einen CAST machen.



Bei uns gibt es noch was bissl Krankes, wo unsere abgeleiteten Querys (TPgQuery) nochmal ein

Delphi-Quellcode:

SELECT * FROM &tablenbame

im BeforeOpen machen, um von der Datenbank die Typen abzufragen und die fehlenden Felder noch schnell zu erstellen. (Fields durchgehen und was noch nicht existiert als FieldDef ins eigentliche Query kopieren)
Einige Felder erstellen wir manuell, z.B. wo Einstellungen gemacht und Events angehängt werden. Der Rest kommt "automatisch" aus der DB, so wie es dort grade aussieht.
Nach dem Open kann man ja leider keine TFieldXyz anhängen.

Jetzt, im aktuellen Delphi, wo es eventuell nun auch gemischt beim Erstellen geht (selber + automatisch), wäre es nicht mehr zwingend nötig das vor dem Open zu machen.

[Uwe Raabe]

Zitat:

Zitat von Medium (Beitrag 1509690)

CAST() und CONVERT() lassen lediglich die generischen SIGNED und UNSIGNED Tyen zu, die zum selben Problem führen.

Wenn du das CAST bzw. CONVERT drin hast, sollten doch beide Datenbanken das gleiche Ergebnis liefern. Pass deine statischen Felder doch einfach auf SIGNED bzw. UNSIGNED an (TLargeIntField).

[Medium]

Genau das hilft leider nicht. Ich vermute, dass das DBMS so "intelligent" ist, dass es beim Cast auf diese generischen Typen die Länge des originalen Typens beibehält. Bei mir gibt meine MariaDB auf dem Entwicklungs-PC auch mit Cast einen Typen zurück, den mein Programm als Integer-Feld anlegen möchte. Die MySQL DB beim Kunden gibt, mit demselben Cast, allerdings ein LongInt zurück. Genau wie die ungecasteten Aufrufe von YEAR() usw.

Die Felder manuell im Feld-Editor als TLargeIntField anzulegen brachte zumindest, dass ich es jetzt beim Kunden laufen lassen kann. Aber testen kann ich damit nun nicht mehr.

Ich hatte auch nach einer Möglichkeit gesucht, um mir mal vom DBMS selbst anzeigen zu lassen, welche Typen es für die Spalten um Result-Set verwendet. Für Tabellen gibt es da gleich mehrere Wege, aber für eine Query scheinbar nichts. Damit hätte ich zumindest dann etwas rumspielen können. Hat mich irritiert, dass das scheinbar wohl ein Nischenproblem ist.

[Medium]

Zitat:

Zitat von Sinspin (Beitrag 1509703)

Alle meine Queries kommen ohne statische Felder und hängen genauso auch an Grids. Allerdings DevExpress.

Das AdvDBGrid (TMS) möchte als Datenquelle ein TDataSource. Eine Query kann ich da nicht direkt einhängen, und ohne die Feld-Deklarationen in der Query-Komponente, findet es auch keine Daten. Da ich DevExpress nicht habe, und für eine kostenlose Schnellschusslösung auch nicht anschaffen möchte, hilft mir das leider nicht weiter.

[Uwe Raabe]

Zitat:

Zitat von Medium (Beitrag 1509711)

Ich vermute, dass das DBMS so "intelligent" ist, dass es beim Cast auf diese generischen Typen die Länge des originalen Typens beibehält.

Hast du es mal mit CONVERT versucht?

[Bernhard Geyer]

Wenn du für einen Kunden ein Anwendung entwickelst ist es sinnvoll hier auch das vom Kunden genutzten System in der Entwicklungsumgebung zu nutzen.
Gegen MariDB zu entwickeln obwohl der Kunde ein (älteres) MySQL hat halte ich für kein guten Ansatz.
Hier sind Probleme die nur beim Kunden auftreten vorprogrammiert.

Wir haben bei uns z.B. MySQL, MS SQL und Oracle in diversen Versionen laufen, um genau möglichst nahe beim Kundensystem zu sein.
Natürlich können wir nicht alles Sub-Versionen abbilden, aber ein "Aktueller Patch-Stand von Vx/y/z ist schon mal ein guter Kompromiss.

bei MySQL hatten wir auch mal den Fall das eine Version von MySQL die Feldtypen falsch zurück gemeldet hat.
D.h. unsere Anwendung konnte gar nicht mehr Funktionieren, da es die Typen bei Programmstart prüft.
mit dem nächsten Fix-Version von MySQL hatten sie diesen groben Fehler behoben.
Wenn dein Kunde natürlich eine solche Problematische Version hat wird es schwieriger.

[Medium]

Zitat:

Zitat von Uwe Raabe (Beitrag 1509713)

Hast du es mal mit CONVERT versucht?

Jap, selbes Ergebnis leider.

[Medium]

Zitat:

Zitat von Bernhard Geyer (Beitrag 1509714)

Wenn du für einen Kunden ein Anwendung entwickelst ist es sinnvoll hier auch das vom Kunden genutzten System in der Entwicklungsumgebung zu nutzen.

Bislang hatte ich damit keine Probleme. Ich muss auch gestehen, dass ich nicht unbedingt scharf darauf bin MariaDB und MySQL usw. in jeweils ~5 Versionen zu installieren und pflegen, nur um alle paar Jahre mal ein Problem nicht zu haben :) Aber vom Prinzip her hast du natürlich Recht.

[himitsu]

Zitat:

Installieren

Für nahezu alle Datenbanken gibt es fertige Docker-Container.

Die kann man sogar oftmals auf seinem NAS laufen lassen, falls man sowas besitzt und nicht alles auf dem PC haben will.



Alternatiuv kann man das DBMS auch in je einer VM installieren (auf PC, NAS, sonstwo), wenn man mit dem Zeugs nicht direkt seinem Entwicklungsrechner zumüllen möchte.

[HeZa]

Hallo Uwe,

Zitat:

Zitat von Uwe Raabe (Beitrag 1509701)

Seit ein paar Versionen erlaubt ein TDataSet einen Mischbetrieb mit statischen und dynamischen Feldern.

davon hatte ich noch nicht gehört. Hast du (oder jemand anderes) einen Tipp, wo ich mehr Informationen dazu finden kann?

Danke.

Ciao HeZa

[Uwe Raabe]

Das verbirgt sich im TDataSet im protected FieldOptions, das in abgeleiteten Klassen dann veröffentlicht wird.

Mit AutoCreateMode kann man festlegen, wie mit statischen und dynamischen Feldern umgegangen werden soll:

• acExclusive arbeitet so wie gehabt. Wenn keine statischen Felder da sind werden alle Felder dynamisch erzeugt.
• acCombineComputed lässt dabei dann noch (statische) berechnete Felder zu.
• acCombineAlways mischt die statischen Felder mit den (noch nicht vorhandenen) dynamischen Felder.

PositionMode steuert die Reihenfolge der Felder.

UpdatePersistent passt einige der (statischen) Feldeigenschaften an die Informationen der Datenbank an. Das betrifft z.B. auch die Länge von Stringfeldern - ein häufiges Problem in früheren Versionen und beliebtes Argument gegen statische Felder.

[jobo]

Wie alt ist diese mySQL Version wohl? Ach, egal. Aber wenn man es weder selbst noch anderswo nachvollziehen kann, dann wird es spätestens kritisch.


Wie wär es mit einer Konvertierung in Text?
Man müsste nur die Werte auf '00' formatieren. Ggf. sogar diese Werte auch wieder in Zahlen umwandeln. Verhält sich vielleicht anders als cast.

(OT: Ich verstehe nicht, warum man sich mit so altem Zeug abgibt)

[Medium]

Zitat:

Zitat von jobo (Beitrag 1509784)

Wie alt ist diese mySQL Version wohl? Ach, egal. Aber wenn man es weder selbst noch anderswo nachvollziehen kann, dann wird es spätestens kritisch.

Unnötig passive-agressive irgendwie, vor allem weil dies

Zitat:

Zitat von jobo (Beitrag 1509784)

Wie wär es mit einer Konvertierung in Text?

eigentlich eine garnicht so üble Idee ist! Sicher nicht elegant, performant oder gar ratsam, aber ich brauche hier wirklich keine 100% einwandfreie Lösung. Das Programm läuft auf einem PC beim Kunden, wird auch immer so bleiben, es sei denn er entscheidet sich doch endlich mal unserem stetigen Rat nach Rundumerneuerung nachzugehen und dieses in großen Teilen der frühen XP-Ära entsprungenen Systems abzulösen. Ist halt keine kleine Investition, wenn es eine Individualentwicklung für eine spezielle Produktionsanlage an einem Standort mit einem Bedien-PC ist.
(Edit: Derselbe Kunde hat immerhin kürzlich ein genau soetwas für eine andere Anlage bestellt - die im Moment noch aktiv unter WinXP betrieben wird. Da hat zum Glück deren eigene IT den Hammer fallen lassen und gesagt, dass diese Kiste aus dem Netzwerk verschwinden muss, und die Software ist aus Gründen nicht unter neueren OSs lauffähig.)

Zitat:

Zitat von jobo (Beitrag 1509784)

(OT: Ich verstehe nicht, warum man sich mit so altem Zeug abgibt)

Weil wir durch solche kleinen Dienstleistungen auch als Kleinstunternehmen noch gern als Lieferant bei Großkonzernen gesehen werden, die letztlich meinen Unterhalt finanzieren. Auf hohem Roß reiten ist hier einfach nicht. Du willst gar nicht wissen, wie viele Konzerne an wie vielen teils kritischen Stellen wie alte Hard- und Software einsetzen. In dem Segment ist halt nicht alles flashy und neu und aalglatt, und die Entscheidungsträger sind halt (leider!) oft auf dem Trip "Läuft doch, warum ändern? Kostet nur, und geringer unmittelbarer Mehrwert." - Und wenn man noch nicht oft genug damit auf die Nase gefallen ist, oder das Nasefallen nicht allzu sehr weh tat, bleibt das auch so. Wenn ich anfange deshalb den Kunden vollzuweinen, sucht er sich halt einen, der trockenen Auges die Arbeit macht und ich mache den Laden dicht. Ist das dein Vorschlag?

[hhcm]

DataTypeMap wurde bereits erwähnt. Warum wird es nicht genutzt?

Delphi-Quellcode:

// FormCreate
Queryx.DataTypeMap.AddFieldNameRule('feldname', ftLargeInt); // <-- Hier den Typ des Entwicklungsrechners eintragen

Ich kann mir nicht vorstellen, dass es das bei D2007 nicht geben soll. Ich hab´s schon in D7 genutzt.
Sollte es kein DataTypeMap geben, Unidac updaten.

[Medium]

Hatte ich bereits beantwortet. Die Methode DataTypeMap() gibt es dort auch nicht.

Zitat:

Zitat von Medium (Beitrag 1509700)

Ich habe bei Uni nichts gefunden, was irgendwie den Namen "Mapping" trägt, und habe auch nicht wirklich eine Vorstellung davon was das genau macht in diesem Zusammenhang.

Wenn ich nicht irre, sollte ich die letzte Version haben die ich für D2007 mit meiner Lizenz abrufen konnte. (Zudem würde ich nicht riskieren, für einen Zweizeiler potenziell in einem mehrere Mannmonate schweren Projekt nach unerwarteten Folgeeffekten eines Updates jagen zu müssen. Der ganze Thread hier ist schon in WEIT mehr Arbeit ausgeartet, als ich dafür je investieren wollte.)

[Delphi.Narium]

Nur 'ne ganz blöde Idee:

SQL-Code:

SELECT
  Cast(Concat(YEAR(V_Dat),"") as Signed) as yr,
  Cast(Concat(MONTH(V_Dat),"") as Signed) as  mn,
  Cast(Concat(DAY(V_Dat),"") as Signed) as  dy,
  SUM(Anteil_I) sm
FROM
  rpohis
WHERE
  Tank_Nr = 20 
GROUP BY
  DATE(V_Dat)
ORDER BY
  yr DESC,
  mn ASC,
  dy ASC

Mal mit sowas in der Art

SQL-Code:

SELECT
  Cast(Concat(YEAR(sysdate()),"") as Signed) as yr,
  Cast(Concat(MONTH(sysdate()),"") as Signed) as  mn,
  Cast(Concat(DAY(sysdate()),"") as Signed) as  dy

auf MySQL Tryit Editor v1.0 ausprobieren.

yr	mn	dy
2022	8	5

[jobo]

Zitat:

Zitat von Medium (Beitrag 1509785)

Unnötig passive-agressive irgendwie, ..

es sei denn er entscheidet sich doch endlich mal unserem stetigen Rat nach Rundumerneuerung nachzugehen

In dem Segment ist halt nicht alles flashy und neu und aalglatt, und die Entscheidungsträger sind halt (leider!) oft auf dem Trip "Läuft doch, warum ändern? Kostet nur, und geringer unmittelbarer Mehrwert." - Und wenn man noch nicht oft genug damit auf die Nase gefallen ist..

..Du willst gar nicht wissen, wie viele Konzerne an wie vielen teils kritischen Stellen..

Es war überhaupt nicht aggressiv gemeint, nicht mal passiv.
Ich habe versucht, Dein Problem nachzuvollziehen, aber kein System gefunden, was alte genug ist, das Problem zu zeigen. Wahrscheinlich kleiner 5.7 oder kleiner 5. Für eine "2 Zeilen" Gefälligkeitsumsetzung habe ich m.E. einen relativ pragmatischen Workaround vorgeschlagen.

Ich weiß glaube ich sehr gut, wovon ich rede und ich kenne die Situation, die Du schilderst. Ich fürchte, dass es dem Kunde am Ende auch gar nicht klar ist, wieviel Aufwand darin steckt, ein Altsystem am Laufen zu halten. Es gibt Softwarehersteller, die ewigen Support anbieten, ja, gibt es, aber kostet natürlich auch ewig viel.

Das Verrückte ist doch, dass die Arbeit, die durch Anbieter in den Erhalt gesteckt wird, gleichzeitig das Argument des Kunden ist, nie etwas zu ändern. Zumindest läuft es so, wenn der Kunde -wenn schon nicht technisch- es nicht mal an den Wartungskosten merkt.
Ich fahre ein relativ altes Auto aus dem vorigen Jahrtausend, nicht mal Oldtimer, aber was besonderes (für mich). Führt zu dem Effekt, dass die Ersatzteile immer teurer werden. (Während die Reparaturarbeit relativ günstig ist / bleibt. Vielleicht auch, weil es noch nicht viel Software in dem Auto gibt). Es ist jetzt nicht Aufgabe der Werkstatt, an dieser Realität etwas zu verschieben. Ich muss mir selbst überlegen, wofür ich wieviel Geld ausgeben will. Ja, der Vergleich hinkt, die Werkstatt ist nicht der Hersteller. Und der Hersteller ist natürlich in dem Segement sowieso raus.

Was ich sagen wollte, war ja nichts anderes, als das was Du laut Antwort auch Deinem Kunden sagst, das System muss aktualisiert werden. Alternativ muss man halt einen riesen Popanz an Altsystemen in Gang halten (als Anbieter), um sowas nachzustellen. Auch wenn es nur um vermeintlich kleine Goodies geht.
Perspektivisch werden solche Situationen natürlich immer wieder entstehen und die Sachen, die man heute baut, sollte man entsprechend strategisch bestmöglich ausrichten. Delphi war dafür m.E. schon immer ganz gut geeignet im Vergleich zu anderen Systemen. OS seitig kommt da mittlerweile immer stärker Linux ins Spiel, wo dann auch die Freiheitsgrade und Eingriffsmöglichkeiten steigen.

[Medium]

Zitat:

Zitat von Delphi.Narium (Beitrag 1509812)

Nur 'ne ganz blöde Idee:

Werde ich die Tage definitiv mal probieren. Im prinzip ist das ja nen round-trip über Strings, interessant und auch entfernt verwandt mit Jobo's Idee. Sehr ausprobierenswert.

@Jobo: Alles gut, du hast ja auch völlig Recht! Mich hatte in deinem vorigen Beitrag die Wortwahl und "Grundstimmung" nur etwas gejuckt :)
Das Problem bei dem Kunden ist höchstwahrscheinlich, dass eine komplette Reimplementierung des gesamten Systems locker in der hohen Fünfstelligkeit landen würde, sein Mehrwert allerdings nicht operativ ist, sondern er lediglich alle paar Monate dann kleinere Arbeiten für ein paar hundert Euro weniger bekommen könnte. Die sind einfacher in den Etats unterzubringen als eine große Investition, nach der die Geschäftsführer aber keinen gesteigerten Produkt-Output in ihren hübschen Kurven sehen. Ein Stück weit kann ich das sogar nachvollziehen, auch wenn ich am Ende der "Leidtragende" bin. Ich hab das als "part of the job" mittlerweile akzeptieren können, und wir können ja auch davon leben - so ist's ja nicht. Führt aber halt dann auch gelegentlich zu solchen "Zusammenstößen" wie hier. Nichts für Ungut! Und wie schon geschrieben, finde ich die Lösungsidee sehr interessant! Bin gespannt :thumb:

[haentschman]

Moin...8-)

Zitat:

Das AdvDBGrid (TMS) möchte als Datenquelle ein TDataSource. Eine Query kann ich da nicht direkt einhängen, und ohne die Feld-Deklarationen in der Query-Komponente, findet es auch keine Daten.

Das verstehe ich nicht. :gruebel: Du kannst doch eine Query "laden" und in die Datasource einhängen. Die TField der Query werden beim "Laden" dann automatisch anhand des Typs erstellt. Da kannst du mal schauen ob das Grid die Werte "versteht" (ohne TField separat was ja meckert)

Das Einzige was dann anders ist: Die Captions der Columns mußt du im Grid definieren...

:wink: