Diberdayakan oleh Blogger.

Jumat, 19 September 2008

Minggu, 14 September 2008

Download source code visual basic: membuat database access 2000 - 2003 dengan menggunakan visual basic


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