Delphi i backup baze

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


const
sConString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=';

var
oJetEng: JetEngine;
backup : boolean;
begin
ADOConnection1.Close;

if FileExists('C:\internet.mdb') then
DeleteFile(PChar('C:\internet.mdb'));

oJetEng:= CoJetEngine.Create;
try
try
oJetEng.CompactDatabase(sConString + 'C:\Internet provajder\Internet.mdb' + ';Jet OLEDB:Database Password=pop' , sConString + 'C:\internet.mdb' + ';Jet OLEDB:Database Password=pop');
if not BackUp then
begin
DeleteFile(PChar('C:\Internet provajder\Internet.mdb'));
RenameFile('C:\internet.mdb', 'C:\Internet provajder\Internet.mdb');
end;
except
on E:Exception do
ShowMessage(E.Message);
end;
ADOConnection1.Open;
finally
oJetEng := nil;
end;


end;

Probaj da umesto 'C:\internet.mdb' koristis 'C:\Internet provajder\TempInternet.mdb' ili nesto drugo samo da nije na cist 'c:\'. Verovatno nemas prava.

Da,to sam shvati,nece u cisto c,ali kako da namestim da gde god da postavim podatke,da mi vuce sa tog mesta,mislim u konekcionom stringu....

Pa definiraš negdje u programu path do baze i onda taj path upišeš u connection string.

Potpis

F

Potpis

Nikad izvini!

Da.na to sam mislio,hvala,ali sam napravio vec fiksnu putanju,pa cu tako....Jos jednom hvala....

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

Prije backupa neka odaberu sami putanju. Imaš komponentu TOpenDialog/TFileOpenDialog

FileOpenDialog

Potpis

F

Da,ali meni treba da selektujem folder,a ne fajl...

evo

Potpis

F

Ali ja nemam na d7 TFileopendialog komponenetu,vec samo TOpenDialog,a ova moja nema opciju pickfolders...

Probaj nešto od ovoga

ili ovdje

Potpis

F

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;

finally
oJetEng := nil;
end;
ADOConnection1.Open;

Ovdje ti je path C:\ koliko vidim i zato ti ga tamo i prenosi.

Potpis

F

Nije u tome problem,nesto drugo je tu posredi,jer izbrisem taj path,i isto je...to samo pokazuje sta otvara prvo....

Upiši Folder umesto Path:

Potpis

Nikad izvini!

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