@Bob68
Danke für deine Meinung das Recordset unterstützt die Methode isempty leider nicht das TDataSet schon ich möchte aber lieber wie gesagt den weg über das recordset gehen da nur 2 zeilen code
@All
Bitte um Meinungen zu diesem Code
Zitat:
var
sSQL : String; olev : Olevariant; aSet : _Recordset;
...
sSql:=Format('Select * from VarianteZuPos where VariantenGruppe=(%s)',
[QuotedStr(Caption)]);
aSet:=Form1.acn.ConnectionObject.Execute(sSql,olev ,0);
if aSet.RecordCount < 1 then
begin
//Mach was ...
end;
aSet.Close;
...