Ich möchte, dass aus meiner *dbf nur bestimmte Klassen ausgelesen werden.
Diese werden in der Spalte BETKLA in der Form 'R5a=R5b=' etc gespeichert.
Um nun den Abteilungsplan ausgeben zu können, müssen die nötigen Klassen aus der Datei ABTxxx.txt abgerufen werden.
Inhalt z.B.

markieren

Code:

H5a
H6a
H6b
H7a

Diese Klassen müssen nun so zusammengefügt werden, dass diese in eine WHERE-Bedingung passen.
Dafür habe ich folgende Funktion benutzt:

zusammenfalten · markieren

Delphi-Quellcode:

function GetAbtString1(myFile:String): String;
var
  klasse: String;
  s: String;
  f: Textfile;
begin
  AssignFile(f,myFile);
  Reset(f);

  while not eof(f) do begin
   ReadLn(f,s);
   klasse:=klasse+','+'"'+StringReplace(s,' ','',[rfReplaceAll])+'="';
  end;

  CloseFile(f);

  Result:=klasse;
end;

Übergabe an Query:

markieren

Delphi-Quellcode:

  if FileExists(path+'\ABT'+abt+'.txt') then begin
   abteilung:=GetAbtString1(path+'\ABT'+abt+'.txt');
   abteilung:=' AND BETKLA IN ('+StringReplace(abteilung,',','',[])+')';
  end
  else
   abteilung:='';

Problem: manchmal kommen da völlig unlogische Dinge bei raus! Der Query liefert teilweise Ergebnisse, die gar nicht gefordert sind (z.B. irgendwelche Daten, die vom Datum her lange zurückliegen und nicht mit der Abfrage übereinstimmen).

markieren

Delphi-Quellcode:

  Query1.Close;
  Query1.SQL.Text := 'SELECT * FROM "VT'+sj+'"';
  Query1.SQL.Add('WHERE NOT S="M" AND NOT S="E" '+abteilung+' AND NOT S="H" AND DATUM=:today');
  Query1.SQL.Add('ORDER BY DATUM DESC,'+order1);
  Query1.ParamByName('today').Value := today;
  Query1.Open;

Lass dir mal den erzeugten String anzeigen

Zitat von Svenkan:

... nur bestimmte Klassen ausgelesen werden. ...

Hai Svenkan,

ich habe jetzt fast zwei Minuten auf dein Posting geschaut und mich gefragt was Du für Klassen (im Sinne von TClass) aus einer DB ziehen möchtest. Dann habe ich zufällig diesen Thread gelesen und bemerkt das es wohl um "Schulklassen" geht

Du siehst also wie gut es ist am anfang ersteinmal zu beschreiben um was es eigentlich geht.

markieren

SQL-Code:

SELECT * FROM "VT07_08.dbf"
WHERE NOT S="M" AND NOT S="E"  AND BETKLA IN ("AG=","Nh=","SV=") OR KLASSEN IN ("AG","Nh","SV") AND NOT S="H" AND DATUM=:today
ORDER BY DATUM DESC,KLASSEN ASC,S ASC

Ebenfalls ist unten als Vertretungslehrer 'Hec' drin; diese Vertretung gibt es an diesem Tag aber gar nicht.

Einträge
Montag: 134
Dienstag: 132
Mittwoch: 132
Donnerstag: 131
Freitag: 131

Schüler: http://svenkan.sv.ohost.de/vplan_fehler/vplan_index.htm
Lehrer: http://svenkan.sv.ohost.de/vplan_feh..._index_leh.htm

@Svenkan: was ich mich frage, hast du dir denn gedanken über das datenmodell gemacht... als du angefangen hast zu programmieren...

falls es noch nicht zu spät ist.. würd ich damit mal beginnen...

wie sieht denn bspw. dein aktuelles ERM aus?

dank und gruss
GG

Sry, aber ich steh nich so ganz auf Abkürzungen..
Was meinst du mit ERM?

ERM = Entity Relation Model

ERM = Entity Relationship Model oder auf Deutsch, dein Datenmodell

du hast doch eins entworfen, bevor du zu programmieren begonnen hattest... oder nicht...

OK, ich selbst wusste bisher nicht so ganz, was damit gemeint ist. (hoffe mal, das Richtige gefunden zu haben^^)
Auf alle Fälle: die Struktur der Datenbank kommt nicht von mir! Diese wird von einem - nicht von mir erstellten Programm - erzeugt. Ich lasse die Daten nur auslesen und in HTML-Dateien exportieren.

wie wäre es da, die daten zu kapseln ...

• die daten in eine ordentliche datenbank zu schieben, mit 'n ordentlichen datenmodell, auf welchen dann die abfragen aufsetzen oder
• die daten komplett in objekte einzulesen und die objekte stellen die entsprechenden zugriffsroutinen zur verfügung...

mit dem ganzen abkürzungsscheiss "S", da weisste doch 5 minuten nachdem du dein progy aus der hand gelegt hast, nicht mehr, was damit gemeint ist... dies nur so als kleiner tipp

PS: bei dem aktuellen buff, würd ich mich weigern da weiterzumachen ...