Membuat Database dengan DAO

Contoh pembuatan database pada Microsoft Access dengan menambahkan tabel dan field (beserta type dan ukuran field) di dalamnya. Persiapan: 1. Buat satu proyek baru dengan satu form dan satu commandbutton. 2. Tambahkan preference Microsoft DAO 3.5 Object Library dari menu Project->References. 3. Ketikkan coding berikut ke dalam editor form yang bertalian. Ketikkan Coding berikut ini pada form. Private Sub Command1_Click() Dim db As Database Dim td1 As TableDef Dim td2 As TableDef Dim td3 As TableDef Dim strSQL1, strSQL2, strSQL3 As String 'Jika sudah ada sebelumnya, hapus database! hati-hati If Dir(App.Path & "\Penjadwalan Produksi.mdb") _ <> "" Then Kill App.Path & "\Penjadwalan Produksi.mdb" 'Buat database Set db = CreateDatabase(App.Path & _ "\Penjadwalan Produksi", dbLangGeneral) 'Buat tabel bernama Part Set td1 = db.CreateTableDef("Part") 'Definisikan field utk tabel Part With td1 .Fields.Append .CreateField("PartID", dbText, 10) .Fields.Append .CreateField("PartName", dbText, _25) .Fields.Append .CreateField("Specification", _dbText, 100) .Fields.Append .CreateField("PartGroupID", _dbText, 5) End With 'Tambahkan field yg ada di tabel Part ke database db.TableDefs.Append td1 'Buat tabel bernama Part Set td2 = db.CreateTableDef("PartGroup") 'Definisikan field utk tabel PartGroup With td2 .Fields.Append .CreateField("PartGroupID", _ dbText, 5) .Fields.Append .CreateField("PartGroup", _ dbText, 15) End With 'Tambahkan field yg ada di tabel Part ke database db.TableDefs.Append td2 'Buat tabel bernama Resource Set td3 = db.CreateTableDef("Resource") 'Definisikan field utk tabel Resource With td3 .Fields.Append .CreateField("ResourceID", _ dbText, 5) .Fields.Append .CreateField("ResourceName", _ dbText, 20) .Fields.Append .CreateField("Speed", dbInteger) .Fields.Append .CreateField("Scrap", dbInteger) .Fields.Append .CreateField("Operator", dbByte) End With 'Tambahkan field yg ada di tabel Part ke database db.TableDefs.Append td3 'Buat index/primary key untuk setiap table strSQL1 = "CREATE INDEX PartID On Part (PartID) WITH PRIMARY" db.Execute strSQL1 strSQL2 = "CREATE INDEX PartGroupID On PartGroup (PartGroupID) WITH PRIMARY" db.Execute strSQL2 strSQL3 = "CREATE INDEX ResourceID On Resource (ResourceID) WITH PRIMARY" db.Execute strSQL3 'jika berhasil, tampilkan pesan... MsgBox "Database berhasil dibuat!", vbInformation, _ "Sukses Buat Database" End Sub