/
Forside
/
Teknologi
/
Udvikling
/
Delphi/Pascal
/
Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn
*
Kodeord
*
Husk mig
Brugerservice
Kom godt i gang
Bliv medlem
Seneste indlæg
Find en bruger
Stil et spørgsmål
Skriv et tip
Fortæl en ven
Pointsystemet
Kontakt Kandu.dk
Emnevisning
Kategorier
Alfabetisk
Karriere
Interesser
Teknologi
Reklame
Top 10 brugere
Delphi/Pascal
#
Navn
Point
1
oldwiking
603
2
jrossing
525
3
rpje
520
4
EXTERMINA..
500
5
gandalf
460
6
gubi
270
7
DJ_Puden
250
8
PARKENSS
230
9
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
Alle emner
Teknologi
Udvikling
Delphi/Pascal
Indstillinger
Spørgsmål
Tips
Usenet
Reklame
Statistik
Spørgsmål :
177552
Tips :
31968
Nyheder :
719565
Indlæg :
6408849
Brugere :
218887
Månedens bedste
Årets bedste
Sidste års bedste
Copyright © 2000-2024 kandu.dk. Alle rettigheder forbeholdes.