Das führt zu einem Fehler oder ich versteh deinen Tipp nicht.
SQL-Code:
begin
cFilter := '';
cFileName := AdsTable1.TableName;
if txtPrimNutz.Text <> '' then begin
if checkboxExakt1.checked = true then begin
AdsQuery1.Close;
AdsQuery1.SQL.Clear;
cFilter := 'SELECT * FROM "cFileName" WHERE PRIMNUTZER = "'+UpperCase(txtPrimNutz.Text)+'"';
end
else begin
AdsQuery1.Close;
AdsQuery1.SQL.Clear;
cFilter := ('SELECT * FROM "cFileName" WHERE PRIMNUTZER = "'+UpperCase(txtPrimNutz.Text + '*')+'"');
end;
end;
if txtBez.Text <> '' then begin
if checkboxExakt2.Checked = true then begin
if cFilter <> '' then cFilter := cFilter + ' and';
AdsQuery1.Close;
AdsQuery1.SQL.Clear;
cFilter := cFilter + ' BEZEICHNUNG = "'+UpperCase(txtBez.Text)+'"';
end
else begin
if cFilter <> '' then cFilter := cFilter + ' and';
AdsQuery1.Close;
AdsQuery1.SQL.Clear;
cFilter := cFilter + ' BEZEICHNUNG = "'+UpperCase(txtBez.Text + '*')+'"';
end;
end;
.
.
.
//edit: Danke oldmax ich werds mal sorum probieren aber ich denke mein Fehler liegt irgendwo anders, kann garnicht mehr kompilieren mitlerweile und bekomm nur ne 4zeilige, recht unverständliche Fehlermeldung.