Lompat ke konten Lompat ke sidebar Lompat ke footer

Membuat Databse Ms.Access Dengan DAO VB6

Berikut ini adalah cara pembuatan database Microsoft Access dan menambahkan tabel serta field (type dan ukuran field) di visual basic 6, untuk mempraktekannya siapkan :
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

Tags:
contoh program vb6, contoh fungsi di vb6, cara penggunaan fungsi vb, tutorial vb6, download tutorial vb6, vb6 tutorial download, dasar dasar vb6, belajar vb6, cara mudah belajar vb6, vb6 artikel download, vb6 blog, contoh program vb6, artikel vb6, semua tentang vb6, vb6 api, cara menggunakan module, cara menggunakan class module

Posting Komentar untuk "Membuat Databse Ms.Access Dengan DAO VB6"