Einzelnen Beitrag anzeigen

Benutzerbild von eddy
eddy

Registriert seit: 4. Jan 2003
Ort: Sachsen
573 Beiträge
 
Delphi 5 Professional
 
#1

Paradox-Datenbanken im Netzwerk nutzen

  Alt 6. Jun 2003, 23:17
Hallo MrSpock,

ich wende mich gleich an Sie, da ich aus den bereits vorhandenen Beiträgen herausgelesen habe, daß Sie Paradox-DB im Netz erfolgreich verwenden. (Natürlich nehme ich gern auch Hilfe von jedem anderen Nutzer dieses Forums an!)

Ich habe seit mehr als einem Jahr eine kleine Anwendung zur Adressen-, Artikel- und Projektverwaltung in Benutzung, die auf Paradox-DB basiert. Funktioniert so halbwegs, Tools zur Fehlersuche, automatischer Indexerzeugung usw. habe ich mir auch geschaffen.

Aufgrund diverser räumlicher Änderungen ist nun ein zweiter PC dazu gekommen, mit dem ich auf die gleichen Datenbestände zugreifen will.

Zum Test im Netzwerk habe ich folgende Komponenten angelegt:
DS1 : TDataSource (lies DS-Eins)
Tab1 : TTable
DB1 : TDatabase
Sess1 : TSession

Die Anzeige der Daten erfolgt in einem TDBGrid

Über einen Button erfolgt die Aktivierung:
Code:
procedure TForm1.sbAktivierenClick(Sender: TObject);
begin
  DB1.Connected := false;
  Sess1.Active := false;
  Tab1.Active := false;

  Tab1.DatabaseName := Edit1.Text;    // c:\adr\daten oder m:\adr\daten
  Tab1.SessionName := Sess1.SessionName;
  Tab1.TableName := fnAdr; //Adressen.DB

  DS1.DataSet := Tab1;

  DBGrid1.DataSource := DS1;

  DB1.DatabaseName := Edit1.Text; // c:\adr\daten oder m:\adr\daten
  DB1.SessionName := Sess1.SessionName;
  DB1.TransIsolation := tiDirtyRead;

  // während OnActivate wird in Abhängigkeit vom PC
  //   zuvor Sess1.NetFileDir zugewiesen
  // PC mit Datenbank: C:\adr\daten
  // PC ohne Daten: M:\adr\daten

  Sess1.Active := true;
  DB1.Connected := true;
  Tab1.Active := true;
end;
Die Adress-DB enthält einen Primär-Index ID (AutoInc) sowie einen Sekundär-Index Such (A, 40).

Auf beiden PC's erfolgt die Anzeige der Tabelle. Ich ändere auf einem der beiden PC's den aktuellen Suchbegriff von "Test" auf "Testxxxxxx" um und wechsle zum nächsten Datensatz.

Auf dem anderen PC bleibt aber "Test" stehen. Und damit bin ich bei meinem Problem angekommen: wie bringe ich meine Anwendung dazu, daß die Änderungen umgehend nach Wechsel des Datensatzes (und somit dem Abschluß der Änderungenen in diesem Satz) auf dem jeweils anderen PC angezeigt werden?


mfg
eddy
  Mit Zitat antworten Zitat