Cara Membuat File Database Access Melalui Form VB6

Cara Membuat File Database Access Melalui Form VB6

Pada umum saat kita ingin membuat sebuah Database dengan MS.Office kita menggunakan yang namanya MS Access dan kita dapat membuatnya dari sini.

Tapi tahukah Anda bahwa kitapun dapat membuat database melelaui form VB6.

Berikut adalah langkah-langkah Cara Membuat File Database Access Melalui Form VB6 :

1. Buka Form VB Anda

2. Pada Form1 tanamkan 1 Commandbuton

3. Kemudian tambahkan sebuah referensi dengan cara klik Project >> References..>> pilih Microsoft DAO 3.51 Object Library

4. Pada Commandbuton1 ketik kode dibawah ini :

Private Sub Command1_Click()

Dim db As Database

Dim td1 As TableDef

Dim td2 As TableDef

Dim strSQL1, strSQL2 As String

    If Dir(App.Path & "\DbContoh.mdb") <> "" Then Kill App.Path & "\DbContoh.mdb  

    Set db = CreateDatabase(App.Path & "\DbContoh", dbLangGeneral)

    Set td1 = db.CreateTableDef("Data1") 'membuat tabel Data1

    

    With td1

        .Fields.Append .CreateField("NoID", dbText, 10)

        .Fields.Append .CreateField("Nama", dbText, 50)

        .Fields.Append .CreateField("Alamat", dbText, 50)

        .Fields.Append .CreateField("Kota", dbText, 30)

    End With

    

    db.TableDefs.Append td1

    Set td2 = db.CreateTableDef("Data2") 'membuat tabel Data2

    With td2

        .Fields.Append .CreateField("NoUrut", dbText, 10)

        .Fields.Append .CreateField("NamaBarang", dbText, 50)

        .Fields.Append .CreateField("Suplier", dbText, 50)

    End With

    db.TableDefs.Append td2

    strSQL1 = "CREATE INDEX NoID On Data1 (NoID) WITH PRIMARY"

    db.Execute strSQL1

    strSQL1 = "CREATE INDEX NoUrut On Data2 (Nourut) WITH PRIMARY"

    db.Execute strSQL1

    MsgBox "Database Berhasil di Buat", vbInformation

End Sub

5. Langkah terakhir simpan dengan cara membuat folder baru.

Sekarang jalankan program Anda, tekan Command1 maka database berhasil dibuat

Untuk membuktikannya coba cek folder yang tadi Anda buat bersama form ini

Demikinalah artikel dari saya tentang cara Cara Membuat File Database Access Melalui Form VB6, semoga artikel ini bermanfaat buat kita semua.Amin

Selamat mencoba semoga sukses

Related Post: Database