Einzelnen Beitrag anzeigen

Scarejojo

Registriert seit: 14. Mai 2004
Ort: Wetzlar
1 Beiträge
 
#10

Re: Ein Programm Netzwerkfähig machen

  Alt 19. Aug 2004, 08:38
Je nach Datenbank (mache alle mit Access) gibt es verschiedene Möglichkeiten. Auf jedenfall schau mal unter Tutorial nach. Setze eine Application an und versuch die Datenbank vom Client aus zu öffnen (mehrfacher Zugriff sollte möglich sein). Hier Anbindung bei Access:

procedure TForm18.Button11Click(Sender: TObject);
begin
AccessApplication2.Connect;
AccessApplication2.Visible := True;
AccessApplication2.OpenCurrentDatabase('I:\Kalk00\ bedampf.mdb', True);
end;


und



procedure TForm18.FormCreate(Sender: TObject);
var verz: string;
begin
verz := ExtractFilePath(ParamStr(0)); //Ermittelt den aktuellen Pfad für Datenbank
with ADOTable2 do begin
try
connectionstring := 'Provider=Microsoft.Jet.OLEDB.4.0; Data Source=I:\Kalk0\bedampf.mdb;
Mode=Read|Write|Share Deny None; Persist Security Info=False'; //Serververzeichnis!
TableName := 'bedampf'; Active:=True
except
//Beep;
//Showmessage('Die Datenbank Glasdat1 befindet sich nicht ' + #10#13
//+ 'im aktuellen Verzeichnis ' + verz)
end
end
end;


Und dann auf die Datensätz zugreifen!

Hoffe ich habe ein wenig helfen können.
  Mit Zitat antworten Zitat