Forum: Datenbanken
by p80286,
16. Dez 2018
Du hast Recht! String geht nicht. Bei Char bin ich mir nicht sicher.
Wenn Section nur numerische Werte enthält, würde ich das sowieso über Integer lösen.
Gruß
K-H
Forum: Datenbanken
by p80286,
16. Dez 2018
procedure TForm1.Button1Click(Sender: TObject);
begin
Query1.SQL.Text:='Select * From USER where user=:user and password=:pass';
Query1.ParamByName('user').AsString := Edit1.Text;
Query1.ParamByName('pass').AsString := Edit2.Text;
Query1.Open
if not Query1.Eof then
begin
case Query1.FieldByName('SECTION').AsString of
'1' : begin