Sharing is Cool...!!!

Teknologi, Tips & Trick, ilmu, Games, Movies, dan TUGAS KAMPUS saya...

Minggu, 09 Desember 2012

Tutorial Contoh Program Database Sederhana dengan Microsoft Visual Basic 6.0

Contoh project Microsoft Visual Basic 6.0 menggunakan database Microsoft Access step by step:
Langkah-langkah
  1. Buat project baru
File - New Project
Pilih STANDAR EXE kemudian klik OK
  1. Tambahkan komponen pada toolbox. Klik kanan pada toolbox - component - Microsoft Datagrid Control 6.0 (OLEDB) - OK
  2. Aturlah property formnya sebagai berikut :
    • Name       : Frm_Utama
    • Caption    :  ..::|| Data Teman ||::..
  1. Pada Frm_Utama aturlah objek-objek seperti tampilan berikut :



Obyek
Property
Setting
Label1
Caption
Nama
Label2
Caption
Alamat
Label3
Caption
TTL
Label4
Caption
Telp
Text1
Name
Text
TNama

Text2
Name
Text
TAlamat

Text3
Name
Text
TLahir
Text4
Name
Text
TTelp
Command1
Name
Caption
CmdBaru
Baru
Command2
Name
Caption
CmdSimpan
Simpan
Command3
Name
Caption
CmdEdit Edit
Command4
Name
Caption
CmdUpdate
Update
Command5
Name
Caption
CmdBatal
Batal
Command6
Name
Caption
CmdHapus
Hapus
DataGrid1
Name
AllowUpdate
DB
False
  1. Buat database data teman.Mdb
a.   Dari jendela Visual Basic Klik menu Add-Ins dan pilih Visual Data Manager dan akan muncul tampilan sbb:
b.   Klik menu File - New - Microsoft Acces kemudian pilihlah Version 7.0 seperti gambar berikut :
 c.   Selanjutnya ditampilkan kotak dialog Select Microsoft Acces Database to Create. Tentukan tempat untuk menyimpan database yang dibuat dengan nama DataTeman. Seperti pada gambar berikut :
d.   Klik Save
  1. Buat table Data Teman
a.    Klik kanan pada jendela Database window, kemudian pilihlah New Table dari popup menu yang ditampilkan.

Sehingga ditampilkan jendela berikutnya dengan nama Table Structure, ketikkan nama tabelnya = TTeman pada kotak Table Name
b.    Klik tombol Add field untuk membuat field baru dan buatlah field sbb :
Nama_Field
Type
Size
Nama
Text
50
Alamat
Memo

Lahir
Text
30
Telp
Text
20
c.    Deklarasikan variable untuk membuka database
Option Explicit
'Koneksi merupakan variabel untuk dihubungkan dengan file databasenya
Public Koneksi As New ADODB.Connection
'rsteman merupakan variabel untuk memanggil data record
Public Rsteman As New ADODB.Recordset
d.    Buat prosedur (Sub) untuk membuka database
Private Sub BukaDatabase()
'Perintah untuk memanggil database
    Koneksi.CursorLocation = adUseClient
    Koneksi.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Chinta's documents\Kul\temen\23 Agt 07\DataTeman.mdb;Persist Security Info=False"
‘(Jika tidak tau provider maka tambahkan adodc dan konekkan terus copy conection stringnya)
'Untuk alamat file databasenya bisa dibuat dinamis mengikuti alamat aplikasi dengan mengganti:
 Koneksi.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Chinta's documents\Kul\temen\23 Agt 07\DataTeman.mdb;Persist Security Info=False" 
menjadi
Koneksi.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "DataTeman.mdb;Persist Security Info=False" 
'perintah untuk memanggil record dari masing2 tabel
    Rsteman.Open "tteman", Koneksi, adOpenStatic, adLockOptimistic
End Sub
e.    Dan  ketik Script dibawah ini
·         Script pada Tombol Baru
Private Sub CmdBaru_Click()
‘Untuk membersihkan field ketika tombol baru diklik
    TNama.Text = ""
    TAlamat.Text = ""
    TLahir.Text = ""
    TTelp.Text = ""
‘untuk meletakkan kursor pada TNama Saat Tombol baru diklik
    TNama.SetFocus
    buka
    CmdBaru.Enabled = False
    CmdSimpan.Enabled = True
    CmdEdit.Enabled = False
    CmdUpdate.Enabled = False
    CmdBatal.Enabled = True
    CmdHapus.Enabled = False
End Sub
·         Script pada Tombol Batal
Private Sub CmdBatal_Click()
    kunci
    CmdBaru.Enabled = True
    CmdSimpan.Enabled = False
    CmdEdit.Enabled = True
    CmdUpdate.Enabled = False
    CmdBatal.Enabled = False
    CmdHapus.Enabled = True
End Sub
·         Script pada Tombol Edit
Private Sub CmdEdit_Click()
‘untuk memanggil procedure buka
    buka
    CmdBaru.Enabled = False
    CmdSimpan.Enabled = False
    CmdEdit.Enabled = False
    CmdUpdate.Enabled = True
    CmdBatal.Enabled = True
    CmdHapus.Enabled = False
End Sub
·         Script pada Tombol Hapus
Private Sub CmdHapus_Click()
‘ketika tidak ada data yang dihapus maka tidak eror
    If Rsteman.RecordCount = 0 Then Exit Sub
‘ketika kursor tidak pada grid maka tdk eror
        If Rsteman.AbsolutePosition < 0 Then
            MsgBox "Pilih yang akan dihapus", vbOKOnly + vbInformation, "Info"
        End If
‘perintah utnuk menghapus data
    Rsteman.Delete
End Sub
·         Script pada Tombol Simpan
Private Sub CmdSimpan_Click()
    'Rsteman nama variabel u/ memanggil data record
    'jika menggunakan komponen adodc maka scriptx adodc1.recordset.addnew
    Rsteman.AddNew
    Rsteman.Fields(0).Value = Trim(TNama.Text)
    Rsteman.Fields(1).Value = Trim(TAlamat.Text)
    Rsteman.Fields(2).Value = Trim(TLahir.Text)
    Rsteman.Fields(3).Value = Trim(TTelp.Text)
    Rsteman.Update
    kunci
    CmdBaru.Enabled = True
    CmdSimpan.Enabled = False
    CmdEdit.Enabled = True
    CmdUpdate.Enabled = False
    CmdBatal.Enabled = False
    CmdHapus.Enabled = True
End Sub
·         Script pada Tombol Update
Private Sub CmdUpdate_Click()
    Rsteman.Fields(0).Value = Trim(TNama.Text)
    Rsteman.Fields(1).Value = Trim(TAlamat.Text)
    Rsteman.Fields(2).Value = Trim(TLahir.Text)
    Rsteman.Fields(3).Value = Trim(TTelp.Text)
    Rsteman.Update
    kunci
    CmdBaru.Enabled = True
    CmdSimpan.Enabled = False
    CmdEdit.Enabled = True
    CmdUpdate.Enabled = False
    CmdBatal.Enabled = False
    CmdHapus.Enabled = True
End Sub
·         Script pada DataGrid
Private Sub DB_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
    TNama.Text = Rsteman.Fields(0).Value
    TAlamat.Text = Rsteman.Fields(1).Value
    TLahir.Text = Rsteman.Fields(2).Value
    TTelp.Text = Rsteman.Fields(3).Value
End Sub
·         Script pada Form load
Private Sub Form_Load()
    'untuk membuka/mengkonekkan databasenya
    BukaDatabase
    'untuk menghubungkan datagrid ke datasource
    Set DB.DataSource = Rsteman
    kunci
    CmdBaru.Enabled = True
    CmdSimpan.Enabled = False
    CmdEdit.Enabled = True
    CmdUpdate.Enabled = False
    CmdBatal.Enabled = False
    CmdHapus.Enabled = True
End Sub
·         Procedure Buka
Private Sub buka()
    TNama.Locked = False
    TAlamat.Locked = False
    TLahir.Locked = False
    TTelp.Locked = False
End Sub
·         Procedure Kunci
Private Sub kunci()
    TNama.Locked = True
    TAlamat.Locked = True
    TLahir.Locked = True
    TTelp.Locked = True
End Sub

Tidak ada komentar: