Problem mit zugriff auf dbf Dateien und bearbeiten.

[joachimd]

Zitat von Duffy Duck:

snip viel code

Vom Code her sehe ich auf den ersten Blick keinen Grund, warum es nicht gehen sollte. Ist vielleicht die DBF-Datei selbst schreibgeschützt?

[Duffy Duck]

Hallo Joachim

die dbf datei ist nicht schreibgeschützt, denn wenn ich es mit dem Formular-Experte eine verbindung aufbaue, dann klappt es mit den ändern...

ich probiere gleich nochmal mit Tdbf eine komplett neue Verbindung herzustellen...

Edit:

Das gleiche problem.. die Einträge lassen sich nicht verändern...

Hier nochmals den Code (Falls es was bringt den Code zu posten):

Delphi-Quellcode:

unit Main;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, Menus, ComCtrls, DB, Grids,
  DBGrids, dbf, DBTables;

type
  TMainForm = class(TForm)
    MainMenu: TMainMenu;
    FileNewItem: TMenuItem;
    FileOpenItem: TMenuItem;
    FileSaveItem: TMenuItem;
    FileSaveAsItem: TMenuItem;
    FilePrintItem: TMenuItem;
    FilePrintSetupItem: TMenuItem;
    FileExitItem: TMenuItem;
    EditUndoItem: TMenuItem;
    EditCutItem: TMenuItem;
    EditCopyItem: TMenuItem;
    EditPasteItem: TMenuItem;
    StatusLine: TStatusBar;
    OpenDialog: TOpenDialog;
    SaveDialog: TSaveDialog;
    PrintDialog: TPrintDialog;
    PrintSetupDialog: TPrinterSetupDialog;
    DataSource1: TDataSource;
    Dbf1: TDbf;
    DBGrid1: TDBGrid;
    Dbf1KUNR: TIntegerField;
    Dbf1KUNAM: TStringField;
    Dbf1KULIMIT: TLargeintField;
    procedure FormCreate(Sender: TObject);
    procedure ShowHint(Sender: TObject);
    procedure FileNew(Sender: TObject);
    procedure FileOpen(Sender: TObject);
    procedure FileSave(Sender: TObject);
    procedure FileSaveAs(Sender: TObject);
    procedure FilePrint(Sender: TObject);
    procedure FilePrintSetup(Sender: TObject);
    procedure FileExit(Sender: TObject);
    procedure EditUndo(Sender: TObject);
    procedure EditCut(Sender: TObject);
    procedure EditCopy(Sender: TObject);
    procedure EditPaste(Sender: TObject);
  end;

var
  MainForm: TMainForm;

implementation

{$r *.dfm}

procedure TMainForm.FormCreate(Sender: TObject);
begin
  Application.OnHint := ShowHint;
end;

procedure TMainForm.ShowHint(Sender: TObject);
begin
  StatusLine.SimpleText := Application.Hint;
end;

procedure TMainForm.FileNew(Sender: TObject);
begin
  { Code zur Erzeugung einer neuen Datei hinzufügen }
end;

procedure TMainForm.FileOpen(Sender: TObject);
begin
  if OpenDialog.Execute then
  begin
    //ShowMessage(OpenDialog1.FileName);

   //showmessage ('Daten wurden erfolgreich eingelesen.... oder auch nicht');
    { Code zum Öffnen von OpenDialog.FileName hinzufügen }
  end;
end;

procedure TMainForm.FileSave(Sender: TObject);
begin
   { Code zum Speichern der aktuellen Datei unter aktuellem Namen hinzufügen }
end;

procedure TMainForm.FileSaveAs(Sender: TObject);
begin
  if SaveDialog.Execute then
  begin
    { Code zum Speichern von SaveDialog.FileName  hinzufügen }
  end;
end;

procedure TMainForm.FilePrint(Sender: TObject);
begin
  if PrintDialog.Execute then
  begin
    { Code zum Drucken von aktueller Datei hinzufügen }
  end;
end;

procedure TMainForm.FilePrintSetup(Sender: TObject);
begin
  PrintSetupDialog.Execute;
end;

procedure TMainForm.FileExit(Sender: TObject);
begin
  Close;
end;

procedure TMainForm.EditUndo(Sender: TObject);
begin
  { Code zur Durchführung von Bearbeiten Rückgängig hinzufügen }
end;

procedure TMainForm.EditCut(Sender: TObject);
begin
  { Code zur Durchführung von Bearbeiten Ausschneiden hinzufügen }
end;

procedure TMainForm.EditCopy(Sender: TObject);
begin
  { Code zur Durchführung von Bearbeiten Kopieren hinzufügen }
end;

procedure TMainForm.EditPaste(Sender: TObject);
begin
  { Code zur Durchführung von Bearbeiten Einfügen hinzufügen }
end;

end.

[haentschman]

Zitat:

nicht zwingend...vielleicht ist die DBF auch vorgegeben

... meine Aussage war nicht provokant genug damit der TE mal erklärt warum DBF verwendet wird.

[Luckie]

Muss man die Datenbank nicht erst in den Edit-Modus versetzen?

[nahpets]

Zitat von Luckie:

Muss man die Datenbank nicht erst in den Edit-Modus versetzen?

Nein, geht automatisch, wie bei allen anderen Datenbankkomponenten auch.

Zitat von Duffy Duck:

nun ich versuche eine "bestehende" dbf Datei auszulesen und zu editieren. Die vorhandene Software Arbeitet mit dbf Dateien (ist leider so gegeben).
Das Editieren der dbf Datei resp. Kunden kann in der Software immer nur ein Kunde editieren, ich versuche nun dies mit Delphi eine von - bis änderung zu erstellen.
Desweiteren weiss ich auch nicht wie ich die von - bis Abfragen machen soll... stehe im moment voll auf dem schlauch

Beispiel:
Kunde 1 hat 10 Euro guthaben
Kunde 2 hat 10 Euro guthaben
Kunde 3 hat 10 Euro guthaben

Nun möchte ich mit abfragen der Tabelle folgendes erstellen, mit Auswahlfeld "von Kunde" - "bis Kunde" einen neuen Wert von z.B. 30 Euro eintragen lassen. (OK drücken und der neue Wert steht im entsprechndem Feld und kann von der Software verwendet werden).

Das sieht sehr nach der Verwendung von SQL aus.
TDBF kann kein SQL.
Man kann Filter setzen.

Habe mal ein Miniprogrämmelchen angehängt, das eine änderbare DBF nutzt, Filter setzen kann und für die gefilterten Sätze den Inhalt einer Spalte auf einen eingegebenen Wert ändern kann. (mit Delphi 7 erstellt)

Um Probleme beim Öffnen und schließen von Tabellen zu verringern, empfiehlt es sich, die Tabellen in der Entwicklungsumgebung geschlossen zu halten und erst beim Programmstart zu öffnen und beim Programmende zu schließen.
TDBF ist nicht multiuserfähig, wer soll dann beim Ändern "gewinnen"? Die Entwicklungsumgebung oder die aus der Entwicklungsumgebung heraus gestartete Exe?

[Duffy Duck]

Hey suuuper
genau das was ich brauche... nur kommt leider bei einsetzten eines betrages folgende Fehlermeldung (siehe anhang).

Auch habe ich in den Projektoptionen die Verzeichnisse geändert.. waren auf Lfw E:\

[hoika]

Hallo,
TDbf hat ein ReadOnly-Flag, setze das mal nach dem Open auf False.


Heiko

[nahpets]

Zitat von Duffy Duck:

Hey suuuper
genau das was ich brauche... nur kommt leider bei einsetzten eines betrages folgende Fehlermeldung (siehe anhang).

Auch habe ich in den Projektoptionen die Verzeichnisse geändert.. waren auf Lfw E:\

Die Fehlermeldung ist für mich absolut unerwartet.
Die Tabelle ist im Programm (bei mir) änderbar (habe die Nonsensdaten im Grid in die Tabelle gedaddelt).
Bitte überprüfe mal, ob Du wirklich an der Stelle, an der die Datei liegt, auch Schreibrechte hast.
Das ReadOnly-Flag steht in meinem Progrämmelchen auf false und kann von daher (eigentlich) nicht die Fehlerursache sein.

Nimm bitte mal die von mir erstellte Exe und die DBF und kopiere die beiden in ein Verzeichnis, in dem Du Schreibrechte hast (andernfalls dürfte das Kopieren ja nicht funktionieren).
Dann starte dort die EXE, sie sucht die DBF im gleichen Verzeichnis. Ist die DBF dann auch ReadOnly?

Ok, die Projektoptionen waren bei mir halt so, wie bei mir Delphi eingerichtet ist, da hab' ich vor'm Zippen nix geändert

[freimatz]

BTW:

Zitat von Duffy Duck:

Hey suuuper
genau das was ich brauche... nur kommt leider bei einsetzten eines betrages folgende Fehlermeldung (siehe anhang).

Auch habe ich in den Projektoptionen die Verzeichnisse geändert.. waren auf Lfw E:\

Das geht meist schöner: Zur Sicherheit auf den Text klicken; Strg+C

[Duffy Duck]

Zitat von haentschman:

Zitat:

nicht zwingend...vielleicht ist die DBF auch vorgegeben

... meine Aussage war nicht provokant genug damit der TE mal erklärt warum DBF verwendet wird.

nun ich versuche eine "bestehende" dbf Datei auszulesen und zu editieren. Die vorhandene Software Arbeitet mit dbf Dateien (ist leider so gegeben).
Das Editieren der dbf Datei resp. Kunden kann in der Software immer nur ein Kunde editieren, ich versuche nun dies mit Delphi eine von - bis änderung zu erstellen.
Desweiteren weiss ich auch nicht wie ich die von - bis Abfragen machen soll... stehe im moment voll auf dem schlauch

Beispiel:
Kunde 1 hat 10 Euro guthaben
Kunde 2 hat 10 Euro guthaben
Kunde 3 hat 10 Euro guthaben

Nun möchte ich mit abfragen der Tabelle folgendes erstellen, mit Auswahlfeld "von Kunde" - "bis Kunde" einen neuen Wert von z.B. 30 Euro eintragen lassen. (OK drücken und der neue Wert steht im entsprechndem Feld und kann von der Software verwendet werden).


siehe Bild im Anhang: