Selamat Datang di Blog AMCJ

Untuk posting kali ini saya mengulas kembali mengenai pembuatan program dengan Visual Basic khususnya tentang database. Ada beberapa alternatif dalam hal pembuatan database ini seperti memakai Visdata yang merupakan Tool bawaan dari VB, SqlServer, Ms. Acces, memakai coding dll. Nah kali ini saya akan membahas sesuai dengan judul posting yaitu Membuat Database dengan memakai coding. Untuk mempersingkat waktu kita langsung 

'Ketik coding berikut pada Module

Option Explicit

Public DbLokasi As String

Public DbNama As String

Public Function CreateDB()

'variabel untuk mendefinisikan database dan tabel

Dim DTB As Database

Dim Tabel As TableDef

Dim Tabel2 As TableDef

Dim Tabel3 As TableDef

Screen.MousePointer = vbHourglass

Set DTB = CreateDatabase(DbLokasi & "\" & DbNama, dbLangGeneral)

Set Tabel = DTB.CreateTableDef("Login")

With Tabel

.Fields.Append .CreateField("UserName", dbText)

.Fields.Append .CreateField("Password", dbText)

End With

Set Tabel2 = DTB.CreateTableDef("Anggota")

With Tabel2

.Fields.Append .CreateField("No", dbText)

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

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

.Fields.Append .CreateField("Tanggal", dbDate)

End With

Set Tabel3 = DTB.CreateTableDef("Pekerjaan")

With Tabel3

.Fields.Append .CreateField("Kode", dbInteger)

.Fields.Append .CreateField("Tempat", dbText)

.Fields.Append .CreateField("Golongan", dbText)

End With

DTB.TableDefs.Append Tabel

DTB.TableDefs.Append Tabel2

DTB.TableDefs.Append Tabel3

Set Tabel = Nothing

Set Tabel2 = Nothing

Set Tabel3 = Nothing

DTB.Close

Screen.MousePointer = vbDefault

End Function

Lalu pidah ke form1 letakkan koding berikut kejendela coding form1

'Ketik Coding berikut pada Form

Private Sub Form_Load()

DbLokasi = App.Path

DbNama = "UjexsBase.mdb"

If Dir(DbLokasi & "\" & DbNama) <> "" Then

Kill DbLokasi & "\" & DbNama

End If

Call CreateDB

End Sub

Kemudian simpan project lalu run program, lihat pada folder tempat anda menyimpan project sudah ada file baru dengan nama “UjexsBase.mdb”

Mudah2an ada manfaat nya bagi anda … terimakasih

Program Versi Trial merupakan suatu Program atau Aplikasi yang sengaja dibuat menggunakan batas waktu tertentu sesuai keingingan si Software Maker, jadi apabila lewat batas waktu yg sudah ditentukan program tidak dapat digunakan lagi. Apabila pengguna sudah terlanjur menyukai program tersebut dan ingin menggunakan nya lagi, mau tidak mau pengguna harus memenuhi persyaratan yg diajukan oleh si software maker. Kebanyakan Program yg seperti ini digunakan sebagai sarana untuk mempromosikan suatu progam atau aplikasi.

Tujuan Utama Encrypt dan Descript teks adalah untuk merubah karakter teks sehingga tidak mudah dibaca atau dipahami orang lain, metode ini banyak dipakai untuk proteksi seperti dunia Internet, Bank baik proteksi password, pengiriman pesan, pengiriman data dan lain-lain. Disini saya memberikan contoh dasar bagaimana pembuatan Encrypt dan Descript teks tersebut dengan Visual Basic.