Arsip: backup database ACCESS dari Delphi

more 18 years ago
ganang
kpd Sensei-Sensei Delphi yang +Ca...eemmm
aq mo nanya caranya backup database access dari delphi gmn ya?
tapi bukan backup manual langsung dari access lho mas,
tolong ya ...makacheeeee

more 18 years ago
delphi_warrior
untuk backup nya biasanya aku cuman pake perintah copyfileto ....utk copy file mdb ke tempat lain dgn nama lain juga....
kalo utk compact datanya...aku dapet dari .......kalo gak salah delphi.about.com....
seperti ini procedurenya
uses ..., JRO_TLB;
function TFUtama.DatabaseCompact
(const sdbName: WideString) : boolean;
var
JE : TJetEngine; //Jet Engine
sdbTemp : WideString; //TEMP database
sdbTempConn : WideString; //Connection string
const
SProvider = 'Provider=Microsoft.Jet.OLEDB.4.0; Data Source=';
begin
Result:=False;
sdbTemp := ExtractFileDir(sdbName) +
'TEMP' +
ExtractFileName(sdbName);
sdbTempConn := SProvider + sdbtemp;
if FileExists(sdbTemp) then
DeleteFile(sdbTemp);
JE:= TJetEngine.Create(Application);
try
try
JE.CompactDatabase(SProvider + sdbName, sdbTempConn);
DeleteFile(sdbName);
RenameFile(sdbTemp, sdbName);
except
on E:Exception do
ShowMessage(E.Message);
end;
finally
JE.FreeOnRelease;
Databasecompact:=True;
end;
end;
jgn lupa tambahkan jro_tlb utk usesnya...
jro tlb bisa didapat dari import library yg ada di
c:\program files\common files\system\ado\msjro.dll
good luck yech............

more 18 years ago
imunk
backup seperti apa neh, kalo cuma file .MDB nya yg mau di backup gunakan aja fungsi Copy File. Kayaknya di help Delphi dah ada tuh.
moga membantu.

more 18 years ago
ganang
iyaa mas itu maksudnya, tapi kalo seumpamanya suatu waktu file database yang udah dibackup
mau digunakan lagi apa bisa langsung diakses ya Mas?makasih banyak ya mas delphi_warior n mas imunk
jawaban sensei-sensi sekalian sangat membantu
more ...
- Pages:
- 1
reply |
Report Obsolete
AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now:
https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 5 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 13 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 13 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 13 years ago
Random Topic
- export excel....
by nioko in MySQL more 19 years ago - KSpoold Disinfector 1.0 - Freeware
by DelphiExpert in OpenSource dan Gratis more 18 years ago - Aplikasi delphi berhubungan dengan nomor rekening
by boediman in Tip n Trik Pemrograman more 17 years ago - [ASK] Penekanan Tombol Keyboad
by RoenZ in Tip n Trik Pemrograman more 17 years ago - POS
by siraya in Tip n Trik Pemrograman more 14 years ago - Find Nearest di mySQL ???
by BorlandMania in MySQL more 17 years ago - Bantuin membuat program ambil acak
by fongers in Bedah Kasus more 17 years ago - membuat simulasi di program delphi
by salsa in Hal umum tentang Pascal Indonesia more 14 years ago - win32 sality Q
by asiyrob in Bedah Kasus more 17 years ago - text mirror
by wong_error in Hal umum tentang Pascal Indonesia more 18 years ago