Membuat database menggunakan Visual Data Manager di VB 6.0

Masih ingat MS Office 1997, masih jadul banget kan? atau mungkin ga kebayang seperti apa bentuknya. Nah ternyata Visual Basic 6.0 memiliki alat DBMS untuk membuat database sendiri yaitu Visual Data Manager (VisData) yang bisa mengadopsi beberapa jenis model database diantaranya yaitu Ms. Access versi 2 dan versi 7. VisDtaa sendiri kalau tidak salah versinya 8.0. Aplikasi ini sudah bawaan dari Visual Basic 6.0. Nah, hangsung saja cara membuatnya akan diuraikan dengan 2 macam cara. yaitu  cara manual dan cara coding.

1. Cara Manual.

Cara ini cukup pilih menu Add-Ins pada menu kemudian pilih Visual Data Manager. Akan Tampil sebagai berikut:

Gambar Visual Data Manager

Setelah muncul gambar VisData Anda siap untuk membuat database dan tabel lengkap dengan strukturnya dengan cara pilih file New Pilih Microsoft Access pilih Version 7.0 MDB. Kemudian beri nama databasenya misalnya pwd.mdb simpan pada folder yang Anda inginkan. Setelah itu akan muncul Database windows, untuk membuat tabel klik kanan pada Properties di database windows pilih new tabel. maka akan muncul tampilan sebagai berikut:

Gambar Buat tabel dan menambahkan struktur tabel

untuk menambahkan struktur tabel tekan tombol Add Field, dan akan muncul form sebagai berikut.

Gambar Tambah atribut

Setelah selesai tekan tombol OK dan Close, selanjutnya akan masuk ke jendela Database, isilah beberapa data.

2. Cara Coding

Cara ini menggunakan jendela pemrograman untuk membuat database, tabel lengkap dengan struktur tabelnya. kelihatan lebih elegan sebagai seorang programmer. yang perlu disiapkan adalah:

1. Project dengan standar exe

2. 1 Form untuk contoh/coba-coba

3. 2 module, yang akan digunakan untuk membuat database serta tabelnya dan untuk mengatur koneksinya

 berikut kode program pada modul1:

Sub CiptaDbase(CFolder As String)

    Dim Works As Workspace

    Dim Dbase As Database

    Dim Tbl As TableDef

    Dim Rst As Recordset

    Dim Fld As Field

    Dim Idx As Index

    

    '*** Mengatur Area Kerja dan Buat data base dengan nama PWD.DBF ***

    Set Works = DBEngine.Workspaces(0)

    Set Dbase = Works.CreateDatabase(CFolder + "\PWD.mdb", dbLangGeneral)

    

    '*** Membuat Tabel dengan nama MSMHS ***

    Set Tbl = Dbase.CreateTableDef("MSMHS")

    Set Fld = Tbl.CreateField("MHSNIM", dbText, 8)

        Tbl.Fields.Append Fld

    Set Fld = Tbl.CreateField("MHSNMA", dbText, 30)

        Tbl.Fields.Append Fld

    Set Fld = Tbl.CreateField("MHSALM", dbText, 30): Fld.AllowZeroLength = True

        Tbl.Fields.Append Fld

    Set Fld = Tbl.CreateField("MHSKTA", dbText, 20): Fld.AllowZeroLength = True

        Tbl.Fields.Append Fld

    Set Fld = Tbl.CreateField("MHSTGH", dbDate, 15)

        Tbl.Fields.Append Fld

    Dbase.TableDefs.Append Tbl

    

    '*** Membuat index berdasarkan field MHSNIM dengan Nama index MHSNIMx ***

    Set Idx = Tbl.CreateIndex("MHSNIMx")

    Set Fld = Idx.CreateField("MHSNIM")

        Idx.Primary = True

        Idx.Unique = True

        Idx.Fields.Append Fld

        Tbl.Indexes.Append Idx

    

    '*** Menutup databse dari memori komputer ***

    Dbase.Close

    MsgBox "Database PWD.MDB telah terbuat", vbInformation

End Sub

Kemudian pada MainModul buat kode sebagai berikut:

Sub main()

    Dim Pesan

    CFolder = App.Path

    If Dir(CFolder & "\pwd.mdb") = "" Then

        MsgBox "Maaf database belum anda buat!", vbInformation, "Perhatiann...!"

        Pesan = MsgBox("Apakah Anda ingin membuat database dan tabelnya?", & _

 vbOKCancel + vbQuestion, "?.....")

        If Pesan = vbOK Then

            Call CiptaDbase(CFolder)

        End If

        Exit Sub

    Else

        frmPwd.Show

    End If

End Sub

untuk mencoba operasinya bubuhkan object Data pada Form1 kemudian jalankan, Anda akan memiliki sebuah database PWD.MDB dengan sebuah tabel MSMHS. Selamat mencoba.