Minggu, Juni 19, 2011
Mz IpiN
Dalam pemrograman database, menambah, mengedit, dan menghapus record merupakan kegiatan yang seringkali dilakukan. Tentu saja tutorial untuk melakukan hal tersebut sangatlah banyak jika ditanyakan kepada om google. Namun tentu saja pemrograman database tidak hanya sekadar membahas mengenai record saja.
Mungkin suatu waktu kita membutuhkan pengolahan database untuk menunjang program kita, membuat, atau menghapus database. Misalkan untuk membuat database temporary dalam file microsoft access 2000 atau 2003, tentunya pengguna tidak kita biarkan untuk bebas membuka database kita bukan?, karena ini bisa mengganggu keamanan program kita.
Untuk bisa membuat database microsoft access 2000 dan 2003 seperti disampaikan diatas, kita membutuhkan library Microsoft ADO Ext. 2.8 for DDL and Security.
Ini bisa kita tambahkan dengan mengklik menu Project > Reference > kemudian gulung layar sampai ditemukan DLL Microsoft ADO Ext ini
Setelah itu masukkan sebuah textbox, sebuah command button kedalam form yang ada. Pada property text dari text1 buatlah D:\contoh.mdb , textbox ini ditujukan untuk memberi nama database baru yang akan kita buat. Rencananya kita akan membuat sebuah database access 2003 dengan nama contoh.mdb
Berikutnya tambahkan sebuah command button dengan name=cmdbuat, dan caption=Buat Database, kemudian tambahkan sebuah procedure CreateDatabase(DBPath As String) As Boolean
Kemudian isikan perintah berikut:
1: On Error Resume Next
2: Dim oCatalog As New ADOX.Catalog
3: oCatalog.Create _
“Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & DBPath
4: CreateDatabase = Err.Number = 0
Baris pertama menunjukkan, jika seandainya baris-baris dalam prosedur ini mengalami error, maka program akan tetap meneruskan ke perintah berikutnya, (kalau ini tidak dimunculkan, jika terjadi erorr dalam program, maka program secara otomatis terhenti). Baris kedua kita mendeklarasikan variabel oCatalog sebagai Catalog dari ADOX, kemudian, kita jalankan prosedur create dari Catalog ADOX pada baris ke 3. Baris ke 4 digunakan untuk mencatat nomor error yang terjadi.
Selanjutnya panggil prosedur create database tersebut di cmdBuat_click dengan
CreateDatabase Text1.Text
Mungkin suatu waktu kita membutuhkan pengolahan database untuk menunjang program kita, membuat, atau menghapus database. Misalkan untuk membuat database temporary dalam file microsoft access 2000 atau 2003, tentunya pengguna tidak kita biarkan untuk bebas membuka database kita bukan?, karena ini bisa mengganggu keamanan program kita.
Untuk bisa membuat database microsoft access 2000 dan 2003 seperti disampaikan diatas, kita membutuhkan library Microsoft ADO Ext. 2.8 for DDL and Security.
Ini bisa kita tambahkan dengan mengklik menu Project > Reference > kemudian gulung layar sampai ditemukan DLL Microsoft ADO Ext ini
Setelah itu masukkan sebuah textbox, sebuah command button kedalam form yang ada. Pada property text dari text1 buatlah D:\contoh.mdb , textbox ini ditujukan untuk memberi nama database baru yang akan kita buat. Rencananya kita akan membuat sebuah database access 2003 dengan nama contoh.mdb
Berikutnya tambahkan sebuah command button dengan name=cmdbuat, dan caption=Buat Database, kemudian tambahkan sebuah procedure CreateDatabase(DBPath As String) As Boolean
Kemudian isikan perintah berikut:
1: On Error Resume Next
2: Dim oCatalog As New ADOX.Catalog
3: oCatalog.Create _
“Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & DBPath
4: CreateDatabase = Err.Number = 0
Baris pertama menunjukkan, jika seandainya baris-baris dalam prosedur ini mengalami error, maka program akan tetap meneruskan ke perintah berikutnya, (kalau ini tidak dimunculkan, jika terjadi erorr dalam program, maka program secara otomatis terhenti). Baris kedua kita mendeklarasikan variabel oCatalog sebagai Catalog dari ADOX, kemudian, kita jalankan prosedur create dari Catalog ADOX pada baris ke 3. Baris ke 4 digunakan untuk mencatat nomor error yang terjadi.
Selanjutnya panggil prosedur create database tersebut di cmdBuat_click dengan
CreateDatabase Text1.Text
Kami juga menyediakan Paket Komplit Programer :
1. Paket VB.6 & Source code
2. Paket Fox Pro & Source Code
3. Paket Delphi & Source Code
Yang berminat buruan Pesan "Harga Promosi" caranya Klik di Sini ...
Posted in: Vb
0 komentar:
Posting Komentar