Membuat Database Dgn Coding VB

            Nah kita ketemu lagi diodul ini....., sekarang kita akan membikin suatu program yang dapat membuat database tentunya dibuat dengan VB tercinta..... : ), tapi terlebih dahulu disini gak ada gambarnya karena problem dengan photoshopnya........ : (. Jadi baca dengan benar yah! : ).

            Untuk membuat form ini kita pertama-tama membikin 2 form yang satu formnya ada command button... 1 aja (gk usah banyak-banyak) dengan captionnya Membuat DataBase. yang kedua  kita bikin form lagi yang hanya ada command button 1 biki gk usah banyak-banyak................., Nah selanjutnya untuk form pertam isilah coding berikut:

'definisikan sebuah are akerja
Dim Posisi As Workspace
'definisikan database
Dim DTBSBaru As Database
Private Sub Command1_Click()
'pasang perangkap error
On Error GoTo salah
'tentukan area kerja program
Set Posisi = DBEngine.Workspaces(0)
'jika file database sudah ada
'maka program akan menghapusnya
If Dir("C:\Program Dasar\Baru.mdb") <> "" Then Kill
"C:\Program Dasar\Baru.mdb"
'tentukan dimana file database akan dibuat
Set DTBSBaru = Posisi.CreateDatabase("C:\ProgramDasar\Baru.mdb", dbLangGeneral, dbEncrypt)
'tutup file database
DTBSBaru.Close
'tampilkan pesan sukses
MsgBox "Pembuatan Database Sukses" & Chr(13) & _
"Nama Database : Baru.mdb" & Chr(13) & _
"Di Folder C:\Program Dasar"
On Error GoTo 0
Exit Sub
'baris program pesan error
salah:
'program tidak dapat berjalan jika file sedang dibuka
MsgBox "Database sedang dibuka oleh VisData atau Access" &
Chr(13) & _
"harus ditutup dulu"
End Sub

           Lalu untuk form ke 2 isilah coding berikut:

Private Sub Command1_Click()
'pasang perangkap error
On Error GoTo salah
'definisikan database, tabel dan index
Dim DTBS As Database
Dim TabelBaru As TableDef
Dim IndexTabel As index
'buka database
Set DTBS = OpenDatabase("C:\Program Dasar\Baru.mdb")
'membuat tabel
Set TabelBaru = DTBS.CreateTableDef("Barang")
With TabelBaru
'membuat field-field berikut type data dan
panjangnya
.Fields.Append .CreateField("KodeBrg", dbText, 5)
.Fields.Append .CreateField("NamaBrg", dbText, 30)
.Fields.Append .CreateField("HargaBrg", dbLong)
.Fields.Append .CreateField("JumlahBrg", dbInteger)
'tambahkan tabel baru ke file database
DTBS.TableDefs.Append TabelBaru
End With
'tutup database
DTBS.Close
MsgBox "Pembuatan Tabel Sukses" & Chr(13) & _
"Nama Tabel : Barang, Struktur Tabel :" & Chr(13) &
_
"KodeBrg, Text, 5" & Chr(13) & _
"NamaBrg, Text, 30" & Chr(13) & _
"HargaBrg, Long" & Chr(13) & _
"JumlahBrg, Integer"
'panggil prosedur pembuatan index tabel
Call MembuatIndex
On Error GoTo 0
Exit Sub
salah:
MsgBox "tabel Barang sudah ada, harus dihapus dulu" &
Chr(13) & _
"Progran ini secara otomatis menghapus tabel Barang"
'jika tabel barang sudah ada, maka akan dihapus
Call HapusTabel
End Sub
Sub HapusTabel()
Dim DTBS As Database
Set DTBS = OpenDatabase("C:\Program Dasar\Baru.mdb")
DTBS.Execute "DROP TABLE Barang;"
DTBS.Close
End Sub
Sub MembuatIndex()
'definisikan database, tabel dan index
Dim DTBS As Database
Dim TabelBaru As TableDef
Dim IndexTabel As index
'buka database dan tabel
Set DTBS = OpenDatabase("C:\Program Dasar\Baru.mdb")
Set TabelBaru = DTBS!Barang
With TabelBaru
'buat index
Set IndexTabel = .CreateIndex("Barangdex")
With IndexTabel
'pasang di field kode barang
.Fields.Append .CreateField("KodeBrg", dbText, 5)
'aktifkan sebagai primary
.Primary = True
End With
'tambahkan seting index tsb ke tabel
.Indexes.Append IndexTabel
End With
DTBS.Close
MsgBox "Pembuatan Index Sukses" & Chr(13) & _
"Nama Index : Barangdex" & Chr(13) & _
"Field index : KodeBrg"
End Sub

          Wah panjang yah codingnya....... : ) tapi cobain.... Seperti biasa sampai ketemu dimodul berikutnya dan Selamat Mencoba : )