CARA MEMBUAT TABEL& DATABASE DI MICROSOFT ACCESS

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


Masukkan Email Kamu Untuk Berlangganan Trik2 seperti ini

Jangan Lupa Baca Juga Yang Ini :

0 komentar:


:f :D :) ;;) :x :$ x( :?
:@ :~ :| :)) :( :s :(( :o Posting Komentar