---

Jeg har et program der skal afvikles fra et dir på et netværks drev det skal
kunne afvikles fra flere maskiner men ikke samtidig. Det er også en
tilhørende .GDB fil

Hvis jeg kører det fra andre PC'er end min egen maskine hvor programmet er
udviklet på kan jeg ikke få adgang til databasen. Men under create af
datamodul gør jeg dette:

>>>>>
procedure TDataModule1.DataModuleCreate(Sender: TObject);
var
BasePath: string;
begin
BasePath:=ExtractFilePath(Application.ExeName)+'data';
if BasePath[length(BasePath)]<>'\' then BasePath:=BasePath+'\';
try
If Database.Connected then Database.close;
Database.params.Clear;
Database.params.add('SERVER NAME='+basepath+'CALIBRATION.GDB');
Database.params.add('USER NAME=sysdba');
Database.params.add('OPEN MODE=READ/WRITE');
Database.params.add('SCHEMA CACHE SIZE=64');
Database.params.add('SQLPASSTHRU MODE=SHARED AUTOCOMMIT');
Database.params.add('SCHEMA CACHE TIME=-1');
Database.params.add('MAX ROWS=-1');
Database.params.add('BATCH COUNT=200');
Database.params.add('ENABLE SCHEMA CACHE=TRUE');
Database.params.add('SCHEMA CACHE DIR='+BasePath);
Database.params.add('ENABLE BCD=FALSE');
Database.params.add('PASSWORD=masterkey');
Database.Open;
except
ShowMessage('DataBase Refuses Access');
Database.Close;
Application.Terminate;
end;
>>>>>

Hvad skal jeg gøre for at få det til at virke på alle maskiner. Der er
InterbaseServer på dem.

Mvh
Mads P

---

bruger de alle samme DSN og har de installeret ODBC overhovedet ? check dcom
og mdac fra microsoft

"Mads Piilgaard" <madsp@mail.tele.dk> wrote in message
news:3bc57066$0$42099$edfadb0f@dspool01.news.tele.dk...
> Jeg har et program der skal afvikles fra et dir på et netværks drev det
skal
> kunne afvikles fra flere maskiner men ikke samtidig. Det er også en
> tilhørende .GDB fil
>
> Hvis jeg kører det fra andre PC'er end min egen maskine hvor programmet er
> udviklet på kan jeg ikke få adgang til databasen. Men under create af
> datamodul gør jeg dette:
>
> >>>>>
> procedure TDataModule1.DataModuleCreate(Sender: TObject);
> var
> BasePath: string;
> begin
> BasePath:=ExtractFilePath(Application.ExeName)+'data';
> if BasePath[length(BasePath)]<>'\' then BasePath:=BasePath+'\';
> try
> If Database.Connected then Database.close;
> Database.params.Clear;
> Database.params.add('SERVER NAME='+basepath+'CALIBRATION.GDB');
> Database.params.add('USER NAME=sysdba');
> Database.params.add('OPEN MODE=READ/WRITE');
> Database.params.add('SCHEMA CACHE SIZE=64');
> Database.params.add('SQLPASSTHRU MODE=SHARED AUTOCOMMIT');
> Database.params.add('SCHEMA CACHE TIME=-1');
> Database.params.add('MAX ROWS=-1');
> Database.params.add('BATCH COUNT=200');
> Database.params.add('ENABLE SCHEMA CACHE=TRUE');
> Database.params.add('SCHEMA CACHE DIR='+BasePath);
> Database.params.add('ENABLE BCD=FALSE');
> Database.params.add('PASSWORD=masterkey');
> Database.Open;
> except
> ShowMessage('DataBase Refuses Access');
> Database.Close;
> Application.Terminate;
> end;
> >>>>>
>
> Hvad skal jeg gøre for at få det til at virke på alle maskiner. Der er
> InterbaseServer på dem.
>
> Mvh
> Mads P
>
>