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.