Tips Membuat Database

Membuat Database Murni Program.

Untuk membuat database murni dengan program, kita akan memanfaatkan fungsi DAO (Data Access Object) yang mana ini merupakan fungsi referensi yang telah disediakan oleh VB itu sendiri. Untuk mengaktifkan fungsi ini, terlebih dahulu agan n aganwati mesti masuk dulu ke VB programnya. Setelah itu pilih Project dan References yang terdapat pada Menu.

Setelah itu agan dan aganwati akan di giring masuk ke kotak dialog seperti yang terdapat pada gambar berikut ini :

setelah itu cari dan centang Microsoft DAO 3.51 Object Library dan jangan lupa agan mengakhirinya dengan menekan tombol OK.

Begitu selesai menekan tombol OK, langkah selanjutnya adalah dengan menuliskan code bahasa seperti contoh berikut ini pada Module :

Option Explicit
Sub BuatDataBase(NamaFileNya As String)
    Dim db As DAO.Database
    Dim TSiswa As DAO.TableDef
    Dim TGuru As DAO.TableDef
    Dim Idx As DAO.Index
    Set db = DAO.CreateDatabase(NamaFileNya, dbLangGeneral)
    Set db = OpenDatabase(NamaFileNya)

    Set TSiswa = db.CreateTableDef("TSiswa")
    With TSiswa
        .Fields.Append .CreateField("Nim", dbText, 10):   .Fields(0).AllowZeroLength = True
        .Fields.Append .CreateField("Nama", dbText, 50):  .Fields(1).AllowZeroLength = True
        .Fields.Append .CreateField("Nilai", dbDouble):   .Fields(2).AllowZeroLength = True
        Set Idx = .CreateIndex("IdxNim")
        Idx.Fields.Append .CreateField("Nim")
        Idx.Unique = True:            .Indexes.Append Idx:            .Indexes.Refresh
    End With
    db.TableDefs.Append TSiswa
   
    Set TGuru = db.CreateTableDef("TGuru")
    With TGuru
        .Fields.Append .CreateField("Nip", dbText, 10):   .Fields(0).AllowZeroLength = True
        .Fields.Append .CreateField("Nama", dbText, 50):  .Fields(1).AllowZeroLength = True
        .Fields.Append .CreateField("Gaji", dbCurrency):  .Fields(2).AllowZeroLength = True
        Set Idx = .CreateIndex("IdxNip")
        Idx.Fields.Append .CreateField("Nip")
        Idx.Unique = True:            .Indexes.Append Idx:            .Indexes.Refresh
    End With
    db.TableDefs.Append TGuru
   
    db.Close
End Sub

Demikian tips untuk membuat database murni code. Selain itu agan juga bisa download file lengkap dan penggunaannya pada link berikut ini.

Membuat Database Murni Code

Terima kasih semoga bermanfaat.