Membuat Database Ms Access pada Ms Visual Basic 6.0

Membuat Database Ms Access pada Ms Visual Basic 6.0

 
Pada postingan terdahulu saya pernah menulis tentang koneksi ODBC untuk menghubungkan database ke Bahasa Pemrograman Visual Basic, dan disana sudah jelas disebutkan langkahnya satu persatu. Nah pada postingan kali ini saya akan mencoba untuk membuat sebuah Database Microsoft Access yang akan digunakan oleh Visual Basic. Karena hingga saat ini masih ada beberapa teman SMK yang belum mengerti tentang pembuatan Database Ms Access, dan mudah-mudahan tulisan ini bisa membantu, berikut langkah-langkahnya :
1. Buka Microsoft Visual Basic.
2. Pilih Add Ins pada menu bar.
3. Pilih Visual Data Manager.
4. Maka akan muncul Windows baru yaitu : VisData seperti pada gambar di bawah ini :













5. Kemudian Pilih File -> New -> Microsoft Access -> Version 2.0 MDB

6. Masukkan nama database yang akan kita buat.

7. Pilih Save.

8. Setelah itu maka akan muncul tampilan gambar seperti di bawah ini :










9. Klik Kanan pada halaman kosong Database Windows, kemudian pilih buat tabel / new table.
10. Kemudian isikan Field, Type dan Size. Sampai disini maka kita sudah membuat database kosong yang akan kita isi pada Microsoft Visual Basic
Dibawah ini adalah salah satu contoh script penggunaan database Ms Access pada Visual Basic :










Sub nonaktif()

txtkode.Enabled = False
txtnama.Enabled = False
txtspes.Enabled = False
txtalamat.Enabled = False
txttelp.Enabled = False
End Sub
Sub bersih()
txtkode.Text = ""
txtnama.Text = ""
txtspes.Text = ""
txtalamat.Text = ""
txttelp.Text = ""
End Sub
Sub aktif()
txtkode.Enabled = True
txtnama.Enabled = True
txtspes.Enabled = True
txtalamat.Enabled = True
txttelp.Enabled = True
End Sub
Private Sub cmdadd_Click()
Aktif
bersih
cmdadd.Enabled = False
cmdsave.Enabled = True
cmdbatal.Enabled = True
txtkode.SetFocus
End Sub
Private Sub cmdbatal_Click()
bersih
nonaktif
cmdadd.Enabled = True
cmdsave.Enabled = False
cmdbatal.Enabled = False
End Sub
Private Sub cmdexit_Click()
Unload Me
End Sub
Private Sub cmdfirst_Click()
With Data1.Recordset
.MoveFirst
MsgBox "Anda Diawal Record"
End With
End Sub
Private Sub cmdlast_Click()
With Data1.Recordset
.MoveLast
MsgBox "Anda Diakhir Record"
End With
End Sub
Private Sub cmdnext_Click()
With Data1.Recordset
.MoveNext
If .EOF Then
MsgBox "Anda Diakhir Record"
.MoveLast
End If
End With
End Sub
Private Sub cmdprev_Click()
With Data1.Recordset
.MovePrevious
If .BOF Then
MsgBox "Anda Diawal Record"
.MoveFirst
End If
End With
End Sub
Private Sub cmdsave_Click()
With Data1.Recordset
.AddNew
!kode = txtkode.Text
!nama = txtnama.Text
!spesialis = txtspes.Text
!alamat = txtalamat.Text
!telepon = txttelp.Text
.Update
End With
MsgBox "Data berhasil Disimpan"
bersih
End Sub
Private Sub Form_Load()
bersih
nonaktif
cmdsave.Enabled = False
cmdbatal.Enabled = False
End

0 komentar:

Posting Komentar

Game Development

Game Development
Tools untuk membuat game saat ini sangat banyak,salah satunya Adobe Game Developer Tools,Tools ini sangat terkenal untuk membuat game,salah satu contoh game yang pernah dibuat adalah angry bird dan farm fransy

Android Technology

Android adalah sistem operasi berbasis Linux yang dirancang untuk perangkat seluler layar sentuh seperti telepon pintar dan komputer tablet.Android juga menjadi pilihan bagi perusahaan teknologi yang menginginkan sistem operasi berbiaya rendah, bisa dikustomisasi, dan ringan untuk perangkat berteknologi tinggi tanpa harus mengembangkannya dari awal.untuk informasi lebit detilnya silahkan lihat di www.android.com