keinen Zugriff auf Datensatz

[Sharky]

Zitat von Hansi:

Ich möchte eigentlich die Felder Artikelnummer und Bezeichnung aus der Datenbank auslesen und dann mit dem String s und Tab's in eine Txt Datei schreiben!

Dann musst Du deinen Code so ändern das aus der Tabelle gelesen wird

Hier mal einige Änderungen in deinem Code. Ist aber ungetestet.

Delphi-Quellcode:

procedure TForm1.Exportieren1Click(Sender: TObject);
var
  Kopfzeile     : String;
  f             : TextFile;
  AN            : String;
  s             : String;
  BZ            : String;
begin
  Kopfzeile:='v_products_model'+#9+'v_products_name'+#9+'EOREOR';
  AssignFile(f,'.\Export.txt');
  Rewrite(f);
  WriteLn(f,Kopfzeile);
  Table1.DatabaseName:='.\DB\';
  Table1.TableName:='Artikeldatenbank';
  Table1.Active:=true;
//  Table1.Edit;  // Die Tabelle möchtest Du ja nicht ändern. Darum auch kein Edit
  Table1.First;  // Zum ersten Datensatz der Tabelle
  while not (Table1.Eof) do // Solange nicht das Ende der Tabelle erreicht ist...
  begin
    AN := Table1.FieldValues['Artikelnummer'];  // Feld 'Artikelnummer' AUSlesen
    BZ := Table1.FieldValues['Bezeichnung']:=BZ;
    s:=AN+#9+BZ+#9+'EOREOR';
    WriteLn(f, s);
    Table1.Next; // Zum nächsten Datensatz hüpfen;
  end;  
  CloseFile(f);
end;