/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
Afvikling på netværksdrev
Fra : Mads Piilgaard


Dato : 11-10-01 11:12

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



 
 
Ingolf (31-10-2001)
Kommentar
Fra : Ingolf


Dato : 31-10-01 20:23

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
>
>



Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408926
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste