Membuat Database dengan memakai coding (VB6)

Pada posting kali ini saya coba mengulas kembali mengenai pembuatan program dengan Visual Basic khususnya tentang database. Ada beberapa alternatif dalam hal pembuatan database ini seperti memakai Visdata yang merupakan Tool bawaan dari VB, SqlServer, Ms. Acces, memakai coding dll. Nah kali ini saya akan membahas sesuai dengan judul posting yaitu Membuat Database dengan memakai coding. Untuk mempersingkat waktu kita langsung to the point aja, persiapan yang harus dilakukan ……………

Buatlah Project baru (Standard Exe)

Tambahkan Microsoft DAO 3.6 Object Library dengan cara click menu Project > References … cari dan pilih Microsoft DAO 3.6 Object Library

Tambahkan 1 module

'Ketik coding berikut pada Module

Option Explicit
Public DbLokasi As String
Public DbNama As String

Public Function CreateDB()
Dim DTB As Database
Dim Tabel As TableDef

Screen.MousePointer = vbHourglass
Set DTB = CreateDatabase(DbLokasi & "\" & DbNama, dbLangGeneral)

Set Tabel = DTB.CreateTableDef("Login")
With Tabel
.Fields.Append .CreateField("UserName", dbText)
.Fields.Append .CreateField("Password", dbText)
End With
DTB.TableDefs.Append Tabel

Set Tabel = Nothing
DTB.Close
Screen.MousePointer = vbDefault

End Function

'Ketik Coding berikut pada Form

Private Sub Form_Load()
DbLokasi = App.Path
DbNama = "DBase.mdb"

If Dir(DbLokasi & "\" & DbNama) <> "" Then
Kill DbLokasi & "\" & DbNama
End If

Call CreateDB
End Sub

Kemudian simpan project lalu run program, lihat pada folder tempat anda menyimpan project sudah ada file baru dengan nama “DBase.mdb”

Mudah2an ada mamfaat nya bagi anda … terimakasih