Cara membuat tabel dan database pada microsoft access
by : Huda
Berikut ini cara membuat database dan tabel di database Microsoft Access. Contoh menggunakan Microsoft Access 2000.
Code::
'Deskripsi: Contoh pembuatan database pada Microsoft Access dengan menambahkan
' tabel dan field (beserta type dan ukuran field) di dalamnya.
'Pembuat : Masino Sinaga (admin@masinosinaga.com)
'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. Copy-kan coding berikut ke dalam editor form yang bertalian.
'-----------------------------------------------------------------------------
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
0 komentar:
:f :D :) ;;) :x :$ x( :?
:@ :~ :| :)) :( :s :(( :o Posting Komentar