Uradio sam u kodu backup baze koja je access,i kada promenim folder(tj,stavim program nekome drugome na racunar) nece da ga backupuje,isto tako kada ga stavim i kod mene,samo ne bude na d,vec na c,iako prati putanju,prikazuje da je baza u eksluziv modu,,,,Evo koda,hteo bih da gde god da bude ide backup na c,pokusao i sa (data direktory) u connection stringu,opet nece....evo koda....
Probaj da umesto 'C:\internet.mdb' koristis 'C:\Internet provajder\TempInternet.mdb' ili nesto drugo samo da nije na cist 'c:\'. Verovatno nemas prava.
Treba mi jos jedna pomoc u vezi backup-a,a to je kako da napravim da backupuje bazu na mesto na koje ja odredim...Znaci da mi prilikom recimo otvaranja aplikacije ili na neko dugme,selektujem neki path,i da ga tamo stavlja...Dakle da nije fiksni path,vec da ga ja menjam....
Instalirao sam TBrowseforfolder,i sada radi,ali mi ne prenosi,kada hocu da ga postavim na neki folder na d disku,on mi postavi ne na taj folder,vec na d disk...i pod nazivom new pa naziv file mdb...
taj path mi se nalazi u path,kao opciju u okviru komponenete....
begin
with TBrowseForFolder.Create(nil) do try
path := 'C:\';
if Execute then
ADOConnection1.Close;
if FileExists('c:\Baza\BazaHem.mdb') then
DeleteFile(PChar('c:\Baza\BazaHem.mdb'));
oJetEng:= CoJetEngine.Create;
try
try
oJetEng.CompactDatabase(sConString + 'c:\HemijskoCiscenje\BazaHem.mdb' + ' ' , sConString + path + 'bazahem.mdb' + ' ');
if not BackUp then
begin
DeleteFile(PChar('c: \HemijskoCiscenje\BazaHem.mdb'));
RenameFile('c:\Baza\BazaHem.mdb', 'c: \HemijskoCiscenje\BazaHem.mdb');
end;
except
on E:Exception do
ShowMessage(E.Message);
end;
Zasto folder,prikazuje gresku jer nisam definisao taj folder...a ne postoji u opcijama ove komponente,kada postavim message taj path prikazuje stvarno taj path