AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Datenbanken Stringgrid aus Datenbank füllen
Thema durchsuchen
Ansicht
Themen-Optionen

Stringgrid aus Datenbank füllen

Ein Thema von Luckner · begonnen am 18. Nov 2014 · letzter Beitrag vom 20. Nov 2014
Antwort Antwort
Seite 1 von 2  1 2      
Luckner

Registriert seit: 28. Nov 2006
Ort: Berlin
418 Beiträge
 
Delphi 7 Enterprise
 
#1

Stringgrid aus Datenbank füllen

  Alt 18. Nov 2014, 16:13
Datenbank: Firebird • Version: 2.1 • Zugriff über: Dataset
Hallo,
habe eine Tabellen mit mit Datensätzen wie z.Bsp.: Text(String), Zeile(Integer), Spalte(Integer). In Zeile und Spalte befindet sich die Zahlen aus derer Kombination die Zellen-Nummer zusammensetzt. In meiner Form habe ich ein StringGrid mit 10 Zeile und 7 Spalten. Jetzt würde ich den Text in der richtigen Zelle schreiben. Jetzt könnte ich mit sql.select für jede Zelle den richtigen Text herausfinde, aber es würde bedeuten dass ich 70 Sql.select-Abfragen hintereinander machen muss. Geht es möglicherweise intelligenter?

Danke, Luckner
  Mit Zitat antworten Zitat
bcvs

Registriert seit: 16. Jun 2011
668 Beiträge
 
Delphi 12 Athens
 
#2

AW: Stringgrid aus Datenbank füllen

  Alt 18. Nov 2014, 16:25
Machs doch anders herum:

Du machst ein Select. Dann gehst du die Query durch mit While not Query.eof und schreibst den Text in die so erhaltenen StringGrid-Zellen.
  Mit Zitat antworten Zitat
Benutzerbild von rapante
rapante

Registriert seit: 3. Jun 2009
Ort: OPR
171 Beiträge
 
Delphi XE2 Professional
 
#3

AW: Stringgrid aus Datenbank füllen

  Alt 18. Nov 2014, 16:26
Hy,
kannst du es nicht andersherum angehen? Also erst alle Daten holen und dann die Ergebnismenge durchgehen und die Zellen füllen...
Delphi-Quellcode:
Query.SQL.Text := 'SELECT * FROM table';
Query.open;
while not Query.Eof do
begin
  FillCell(query.fieldbyname('zeile').asinteger, query.fieldbyname('spalte').asinteger, query.fieldbyname('text').asstring);
  query.next;
end;
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.542 Beiträge
 
Delphi 11 Alexandria
 
#4

AW: Stringgrid aus Datenbank füllen

  Alt 18. Nov 2014, 16:29
Entweder habe ich es falsch verstanden, oder Du hast eine sehr eigenartige Tabelle, wenn darin Darstellungsinformationen wie Zeile und Spalte stehen. Ich würde einfach eine Abfrage starten, die Spaltenanzahl der Grid anhand der zurückgegebenen Feldanzahl und die Zeilenanzahl anhand der Anzahl der Datensätze festlegen. Dann einfach datensatzweise durchgehen und die Spalten aus den Feldern des aktuellen Datensatzes befüllen.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.021 Beiträge
 
Delphi 12 Athens
 
#5

AW: Stringgrid aus Datenbank füllen

  Alt 18. Nov 2014, 17:36
Entweder habe ich es falsch verstanden
Möglich, denn seine Tabelle enthält pro Datensatz einen Zellenwert und die Information, in welcher Zeile und Spalte der Wert im Grid zu stehen hat.
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#6

AW: Stringgrid aus Datenbank füllen

  Alt 18. Nov 2014, 17:56
Code:
select zeile,spalte,text from tabelle
order by zeile,spalte
Und das dann in das Stringgrid einfügen.
(ich hoffe da gibt es keine Lücken, sonst müßte man jeden Datensatz an seine Position bringen)

Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.153 Beiträge
 
Delphi 12 Athens
 
#7

AW: Stringgrid aus Datenbank füllen

  Alt 18. Nov 2014, 19:01
Oder man lässt sich via SQL die Daten in einer Tabelle zusammenetzen (joinen) und bindet das Ganze ganz einfach nur noch an ein DBGrid.

* Sequenz generieren erste bis letzte Zeile <- min(zeile) bis max(zeile)
* geht die Sequenz durch <- SELECT spalte_x.text, ... FROM sequenz
* und joint für die einzelnen Spalten dann jeweils noch entsprechenden Wert dort rein <- LEFT JOIN tabelle AS spalte_x ON zeile = sequenz AND spalte = x
* kann man sich z.B. bei den vielen Codes für Pivottabellen abgucken
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat
Luckner

Registriert seit: 28. Nov 2006
Ort: Berlin
418 Beiträge
 
Delphi 7 Enterprise
 
#8

AW: Stringgrid aus Datenbank füllen

  Alt 18. Nov 2014, 19:08
Hätte ich doch etwas ausführlicher erklären sollen. Also es geht um eine ToDo-Darstellung für eine Woche. Die Spalten sin die Tage der Woche und die Zeilen jeweils eine Stunde. Jetzt werden die Datensätze nicht hintereinander in der Tabelle eingetragen, sondern so wie es kommt. Also als Beispiel: der 1-ter Termin der eingetragen wird mit der ID=1 ist z.Bsp. Dienstag 15:00Uhr. Also Stringgrid.cells[8,2] (8. Zeile, 2. Spalte). Neuer Eintrag in die Datenbank ID=2 Montag 09:00Uhr Stringgrid.cells[2,1], usw. Manche Zellen sind auch leer. Der Anwender geht in die entsprechende Zelle und schreibt seinen Text da rein. Beim Speichern, schreibe ich in die Datenbank den Text und die Zellen-Koordinaten. Das funktioniert auch gut. Jetzt nur vernünftig auslesen und zuordnen.
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.021 Beiträge
 
Delphi 12 Athens
 
#9

AW: Stringgrid aus Datenbank füllen

  Alt 18. Nov 2014, 19:30
Die Spalten sin die Tage der Woche und die Zeilen jeweils eine Stunde. Jetzt werden die Datensätze nicht hintereinander in der Tabelle eingetragen, sondern so wie es kommt. Also als Beispiel: der 1-ter Termin der eingetragen wird mit der ID=1 ist z.Bsp. Dienstag 15:00Uhr. Also Stringgrid.cells[8,2] (8. Zeile, 2. Spalte). Neuer Eintrag in die Datenbank ID=2 Montag 09:00Uhr Stringgrid.cells[2,1], usw. Manche Zellen sind auch leer.
Das Vorgehen bleibt dasselbe: Iteriere durch die Datenbanktabelle und ordne jeden Datensatz der passenden Zelle im Grid zu. Das wurde doch bereits ziemlich zu Anfang so beschrieben.
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#10

AW: Stringgrid aus Datenbank füllen

  Alt 18. Nov 2014, 21:09
Rein grundsätzlich betrachtet bietet es sich immer an, sowas nicht direkt von der Datenbank in ein Control zu pusten. Das verführt dann auch sehr leicht dazu in der Datenbank seltsame Strukturen zu erstellen (das passt besser zum Control) oder sich sonstwie zu stark an der Präsentation zu orientieren.

Von der Datenschicht holt man sich einfach eine Liste mit den Daten ab TList<TTermin> . Diese Liste wird dann in eine Klasse gedrückt aus der man wiederum die mundgerechten Informationen bekommt, um die Daten in einem StringGrid anzuzeigen (oder einer ListView, ListBox, ComboBox, ...).
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 09:37 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz