Source berikut ini untuk membackup data (PARADOX) beserta isi-isinya.
kalo nggak mo jalan programnya coba tambahkan
petikan kode-nya:
untuk memanggil procedure copytable, gunakan komponen apa aja saya pake komponen button
uses DB, DBTables, DBIProcs |
petikan kode-nya:
procedure copyTable( const strSource, strTarget : String ); var hDB : HDBIDB; // Handle ke database const OVERWRITE_FLAG = Bool( TRUE ); begin with TTable.Create( Application ) do try DatabaseName := extractFilePath( strSource ); TableName := extractFileName( strSource ); open; hDB := DBHandle; close; // buat backup check( dbiCopyTable( hDB, OVERWRITE_FLAG, pChar( strSource ), 'PARADOX', pChar( strTarget ) ) ); finally free; end; end; |
untuk memanggil procedure copytable, gunakan komponen apa aja saya pake komponen button
procedure TForm1.Button1Click(Sender: TObject); begin copyTable( 'C:\Program Files\Common Files\Borland Shared\Data\Country.db', 'C:\My Documents\Table\Pindahan.db' ); // buatkan dulu directory C:\My Documents\Table end; |
Silahkan mencoba.
Random Articles
- Cara mendapatkan printer pada suatu komputer (di jaringan yang di share tentunya
- Aplikasi Delphi Konek database layaknya php namun dengan Zeos, Mysql dan TIniFiles Ber Enkripsi
- Scanning data SMS dr serial
- CMD Control 1.0 - OpenSource
- Membaca MAC-Address
- Meng-Indonesia-kan Message Dlg
- Tips: Lacak Variabel dan Indentifer di Lazarus
- Delphi + Java := .Net ?
- Pengumuman Pemenang Lomba Hack-Shareware Aplikasi Delphi
- Menampilkan nama bulan dalam bahasa Indonesia dalam fungsi "FormatDateTime"
Last Articles
Recent Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 2 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 3 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 10 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 10 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 10 years ago