Problem mit IF unf FieldbyName

[Delphi Code Anfänger]

Habe ein kleines Problem. Auch wenn der wert in der DB 'Test' ist, ist CheckBox1 nicht 'checked'

Ist hier vielleicht etwas falsch?

Delphi-Quellcode:

if ADOQuery2.FieldByName('Text').AsString = 'test' then
 CheckBox1.Checked

[DeddyH]

'Test' <> 'test'

Delphi-Quellcode:

if AnsiLowerCase(ADOQuery2.FieldByName('Text').AsString) = 'test' then
  CheckBox1.Checked := true;

[edit] Tippfehler [/edit]

[Delphi Code Anfänger]

Danke! Aber warum kommt dann diese Meldung:
ADOQuery1: Operation bei geschlossener Datenmenge nicht ausführbar

Ich habe zwei ADOQuerys auf der Form. Benutze aber für die CheckBox nur ADOQuery2

[DeddyH]

Die Meldung kommt bestimmt an anderer Stelle, aber ohne Code kann man da nichts zu sagen.

[Astartes]

Verwendest du eine oder 2 ADOQueries ??? Einmal sprichst du von ADOQuery2 und einmal von ADOQuery1 ?

Mfg Tom

[DeddyH]

Steht doch da:

Zitat von Delphi Code Anfänger:

Ich habe zwei ADOQuerys auf der Form. Benutze aber für die CheckBox nur ADOQuery2

[edit] Verdacht: Steht etwas im OnClick-Ereignis der CheckBox, was mit ADOQuery1 zu tun hat? [/edit]

[Astartes]

Oh hab ich übersehen.

Mfg Tom

[DeddyH]

Zitat von Astartes:

Oh hab ich übersehen

Kommt vor

[Delphi Code Anfänger]

Ah bin selber drauf gekommen. Im onClose habe ich folgendes:

Delphi-Quellcode:

 if not CheckBox1.Checked then
 ADOQuery1.Active:=false;
 ADOQuery1.Sql.Clear;
 ADOQuery1.Sql.Add('...');
 AdoQuery1.Prepared := True;
 AdoQuery1.ExecSQL;
 ADOQuery1.Next;
 if CheckBox1.Checked then
 ADOQuery1.Active:=false;
 ADOQuery1.Sql.Clear;
 ADOQuery1.Sql.Add('...');
 AdoQuery1.Prepared := True;
 AdoQuery1.ExecSQL;
 ADOQuery1.Next;

Dadurch kommt Meldung. Ich glaube es geht nicht, dass man zwei mal eine ADOQuery in einer Procedure anspricht oder?

[DeddyH]

Zum Einen machst Du irgendwie 2 mal das Gleiche, zum Anderen ist ein Next nach einem ExecSQL ziemlich sinnfrei