Bikin Aplikasi db wit ADO

Sudah lama juga y g tulis tutorial diblog.. tutorial kali ini saya akan coba garap dari kuliah yg tertanggal ….
Wah ! saya lupa tuh.mungkin bisa ditanyakan sama sang dosen hehe…he..
Dari kesimpulan saya sepertina si dosen pgn mahasiswanya buat aplikasi kecil”lan database berbasis ADO (bener g Pa Aris hehe..he,meski terbilang aplikasi kecil tapi ini adalah starting point utk calon programmer muda seperti kalian.. halah padahal yg baca tutor ini kan g smua muda :D

Nyok qt mulai …

Hal pertama adalah kita buat dulu database dalam access seperti ini:

Pastinya kalian biasa dunk hanya buat table seperti itu… dg semua type data text semua ditiap field.
Save dg nama db_mahasiswa jg table na table_mahasiswa..

Buka Project VB qm dengan options VB Enterprise Edition Controls

Nah terlihat lebih banyak kan tools pada toolbox kalian J .saya kan g perna boong! Halah.
n lo buat deh layout form kayak gini pada form1:


------------------------
Kontrol + Property + Setting
------------------------
Frame1 + Name + frm_Pncr
+ Caption + Pencarian

Frame2 + Name + frm_hsl
+ Caption + Hasil

Label1 + Name + Label1
+ Caption + Cari Kode:

Label2 + Name + Label2
+ Caption + Cari Nama:

Label3 + Name + Label3
+ Caption + Kode:

Label4 + Name + Label4
+ Caption + Nama:

Label5 + Name + Label5
+ Caption + Kode_Jurusan:

CommandButton1 + Name + CmdNew
+ Caption + New

CommandButton2 + Name + CmdEdit
+ Caption + Edit

CommandButton3 + Name + CmdDelete
+ Caption + Delete

CommandButton4 + Name + cmd_first
+ Caption + <<

CommandButton5 + Name + cmd_prv
+ Caption + <

CommandButton6 + Name + cmd_next
+ Caption + >

CommandButton7 + Name + cmd_last
+ Caption >>

Frame2 + Name + Fram_Hasil
+ Caption + Hasil

DataGrid1 + Name + DataGrid1
+ Caption

Sekarang tugas kalian

Ketik coding berikut pada masing”objek cuy!;

Private Sub cmd_cari_kode_Click()
rs.MoveFirst
rs.Find "kode = '" & txt_kode1 & "'"
If rs.EOF Then
MsgBox "data tidak ditemukan"
rs.MoveLast
End If
IsiData
End Sub

Sub IsiData()
txt_kode = rs!Kode
txt_nama = rs!Nama
txt_jurusan = rs!Kode_Jurusan
End Sub

Private Sub cmd_cari_nama_Click()
rs.MoveFirst
rs.Find "nama = '" & txt_nama1 & "'"
If rs.EOF Then
MsgBox "data tidak ditemukan"
rs.MoveLast
End If
IsiData
End Sub

Private Sub cmd_first_Click()
rs.MoveFirst
IsiData
End Sub

Private Sub cmd_last_Click()
rs.MoveLast
IsiData
End Sub

Private Sub cmd_next_Click()
rs.MoveNext
If rs.EOF Then rs.MoveLast
IsiData
End Sub


Private Sub cmd_prv_Click()
rs.MovePrevious
If rs.BOF Then rs.MoveFirst
IsiData
End Sub

Private Sub CmdDelete_Click()
rs.Delete
End Sub

Private Sub CmdEdit_Click()
fedit = True
FrmEntry.Show 1
End Sub

Private Sub CmdNew_Click()
fedit = False
FrmEntry.Show 1
End Sub

Private Sub Form_Load()
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Lat_ADO1_complicated1_\db_mahasiswa.mdb;Persist Security Info=False"
cn.CursorLocation = adUseClient
Set rs = New ADODB.Recordset
rs.Open "table_mahasiswa", cn, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = rs
End Sub

Utk qm penjelasan skilas coding diatas adalah;

Dim cn è deklarasi variable cn {var cn sbg penampung nilai atas databases}
Dim rs è deklarasi variable rs {var rs sbg penampung nilai atas table mahasiswa}
ADODB.Connection è jenis method
Set cn = New ADODB.Connection è setting awal sebuah koneksi databases ADODB baru
cn.Open è membuka file databases + berikut file location dimana database diletakan
cn.CursorLocation = adUseClient
Set rs = New ADODB.Recordset è setting awal sebuah koneksi table dlm databases
rs.Open "table_mahasiswa", cn, adOpenStatic, adLockOptimistic è membuka table_mahasiswa

Set DataGrid1.DataSource = rs è menampilkan table_mahasiswa dlm form pake DataGrid

Nah cukup ngerti kan ade”sekalian hehe…he J

Kalaw merasa masi kurang penjelasanya yah ntr om coba gy tanya dosen,temen”,blooging, gooling :D

Setelah dapet penjelasan coding dari saya meski kadang da yg terbilang lum puas,

Qm” harus tambahkan modul dg klik kanan pada project explorer (sebelah kanan ntu lho) dibagian project qm n pilih modul. Truz ketik coding niy…

Global fedit As Boolean
Global cn As ADODB.Connection
Global rs As ADODB.Recordset

Sub main()
Form1.Show
End Sub

Modul uda jadi

d’next ur task is qm tambahkan form.. dg klik menu project add form
Buat deh layout kayak gini:


:gambar:


Jgn lupa tulis coding berikut bro!

Private Sub CmdBatal_Click()
Unload Me
End Sub

Private Sub CmdSimpan_Click()
If fedit = False Then
rs.AddNew
End If
rs!Kode = txt_kode
rs!Nama = txt_nama
rs!Kode_Jurusan = txt_jurusan
rs.Update
Unload Me
End Sub

Private Sub Form_Load()
If fedit = True Then
txt_kode = rs!Kode
txt_nama = rs!Nama
txt_jurusan = rs!Kode_Jurusan
End If
End Sub

Penjlasan coding diatas:

2 b continue y .. gy males niy cuap” hehehe..

Sekian tutorial dari saya moga bermanfaat utk kalian. Oops ! iia bagi yg da expert bantu saya utk sermpurnakan tulisan saya. Bisa layangkan kritik n sarannya via shoutbox. Ataw via YM, eF-Bian jg leh ;)

Read More......

• 
• 
• 
• 
•