Download Source Code Visual Basic: Menciptakan Database Access 2000 - 2003 Dengan Memakai Visual Basic
Dalam pemrograman database, menambah, mengedit, dan menghapus record merupakan acara yang seringkali dilakukan. Tentu saja tutorial untuk melaksanakan hal tersebut sangatlah banyak kalau 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 agenda kita, membuat, atau menghapus database. Misalkan untuk menciptakan database temporary dalam file microsoft access 2000 atau 2003, tentunya pengguna tidak kita biarkan untuk bebas membuka database kita bukan?, alasannya ini dapat mengganggu keamanan agenda kita.
Untuk dapat menciptakan database microsoft access 2000 dan 2003 menyerupai disampaikan diatas, kita membutuhkan library Microsoft ADO Ext. 2.8 for DDL and Security.
Ini dapat kita tambahkan dengan mengklik sajian Project > Reference > lalu gulung layar hingga 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 gres yang akan kita buat. Rencananya kita akan menciptakan sebuah database access 2003 dengan nama contoh.mdb
Berikutnya tambahkan sebuah command button dengan name=cmdbuat, dan caption=Buat Database, lalu 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, kalau seandainya baris-baris dalam mekanisme ini mengalami error, maka agenda akan tetap meneruskan ke perintah berikutnya, (kalau ini tidak dimunculkan, kalau terjadi erorr dalam program, maka agenda secara otomatis terhenti). Baris kedua kita mendeklarasikan variabel oCatalog sebagai Catalog dari ADOX, kemudian, kita jalankan mekanisme create dari Catalog ADOX pada baris ke 3. Baris ke 4 dipakai untuk mencatat nomor error yang terjadi.
Selanjutnya panggil mekanisme create database tersebut di cmdBuat_click dengan
CreateDatabase Text1.Text
EmoticonEmoticon