Hallo
Habe da eine Möglichkeit gefunden mit 10 Zeilen die Bde in die die Tonne zu werfen.
Ich kreife Über Einen BDE- ALIAS ('TEST') auf eine Dbase Datei ('WAHL.DBF') zu. Einmal mit einer Query und ein weites mal mit einer TTABLE
Local geht alles normal. Liegt der Alias im netz geht es ein mal. Beim 2. mal Filtered:=TRUE gehts krachen. Warum???
Quelle
procedure TForm2.Button1Click(Sender: TObject);
begin
with query1 do begin
active:=true;
first;
while NOT eof do begin
detail.Items.add(FieldByName('txt').asString);
next;
end;
first;
active:=false;
end;
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
with Wahl do begin
Filtered:=False;
filter:='[SCHL]=''firma''';
Filtered:=True;
First;
end;
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
wahl.Active:=TRUE;
end;
Habe da eine Möglichkeit gefunden mit 10 Zeilen die Bde in die die Tonne zu werfen.
Ich kreife Über Einen BDE- ALIAS ('TEST') auf eine Dbase Datei ('WAHL.DBF') zu. Einmal mit einer Query und ein weites mal mit einer TTABLE
Local geht alles normal. Liegt der Alias im netz geht es ein mal. Beim 2. mal Filtered:=TRUE gehts krachen. Warum???
Quelle
procedure TForm2.Button1Click(Sender: TObject);
begin
with query1 do begin
active:=true;
first;
while NOT eof do begin
detail.Items.add(FieldByName('txt').asString);
next;
end;
first;
active:=false;
end;
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
with Wahl do begin
Filtered:=False;
filter:='[SCHL]=''firma''';
Filtered:=True;
First;
end;
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
wahl.Active:=TRUE;
end;
Comment