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
