Tuesday, December 28, 2010

Buat Database Menggunakan Script pada Microsoft Visual Basic 6.0

Pada Microsoft VB 6.0 sudah disediakan Tool untuk membuat file database yaitu Visual Data Manager. Selain menggunakan tool tersebut, kita bisa membuat database dengan menggunakan printah / script / coding. Berikut ini tahapan yang harus dilakukan:
 
  • Buat project baru

  • File -> New Project
    Pilih STANDAR EXE kemudian klik OK
  • Aktifkan Library yang dibutuhkan yaitu: Microsoft ADO Ext.2.8 for DDL and Security lewat menu:

  • Project->References->Microsoft ADO Ext.2.8 for DDL and Security (dicentang) lalu klik Ok
     
  • Tambahkan Modul dan ketikkan script dibawah ini:

  •    
     
     
    Option Explicit
    Public CrCd As New ADOX.Catalog
    Public Cd As New ADOX.Table
    Sub BuatDB()
        Dim alamat As String
        alamat = App.Path & "\CD.mdb"
        CrCd.Create "Provider=Microsoft.jet.oledb.4.0;data source=" & alamat
        CrCd.ActiveConnection = "Provider=Microsoft.jet.oledb.4.0;data source=" & alamat
        Cd.Name = "TblCD"
        Cd.Columns.Append "Judul", adVarWChar, 30
        Cd.Columns.Append "Jenis", adVarWChar, 20
        Cd.Columns.Append "Keping", adVarWChar, 10
        Cd.Columns.Append "Jumlah", adVarWChar, 10
        Cd.Columns.Append "Status", adVarWChar, 15
        Cd.Columns.Append "Peminjam", adVarWChar, 30
        Cd.Columns.Append "Tanggal", adDate
        CrCd.Tables.Append Cd
     
        Set CrCd = Nothing
    End Sub
     
  • Pada saat Form_Load ketikkan script di bawah ini:

  •    
     
     
    If Dir(App.Path & "\cd.mdb") = "" Then
            BuatDB
    End If
     
  • Simpan project tersebut dan jalankan.