Mein Problem ist eigentlich schnell erklärt. In einer ComboBox (name: Combo_Schulvorraussetzung) wird ein Schulabschluß ausgewählt (Hauptschule, Realschule, Fachabi, Abi), und bei einem Klick auf den Button2 soll dann über das AdoDataSet "DB_verbindung" ein
SQL Befehl ausgeführt werden, damit in dem DBGrid (spielt hier keine Rolle) auch wirklich nur die Berufe angezeigt werden, die dem gewählten Abschluß entsprechen.
Sobald ich jedoch auf diesen Button klicke fliege ich aus dem Programm.
schul_vorraussetzung ist eine globale Variable vom Typ Integer.
Code:
procedure TForm1.Button2Click(Sender: TObject);
begin
case Combo_Schulvorraussetzung.ItemIndex of
0: schul_vorraussetzung := 1;
1: schul_vorraussetzung := 2;
2: schul_vorraussetzung := 3;
3: schul_vorraussetzung := 4;
end;
DB_verbindung.CommandText := 'select * from Berufe where Berufs_SchulVorraussetzung=' + IntToStr(schul_vorraussetzung) + ';';
end;
Nachtrag:
Ich habs gerade mal ausprobiert ganz ohne die where-Bedingung oder auch mal nur mit Berufs_SchulVorraussetzung=1 probiert. Wenn die where-Bedingung ganz raus ist, klappt es. Aber warum mit nicht?