Database Adodb

SOURCE: Database, Form dan Project

1. Buka VB6 pilih VB Enterprise Edition Controls
2. Buat object sbb pada form:

a. Frame1, Caption = -
b. Frame2, Caption = -
c. Label1, Caption = Kode
d. Label2, Caption = Nama
e. Label3, Caption = Kode
f. Label4, Caption = Nama
g. Label5, Caption = Kejuruan
h. Textbox1, Name = txt_kode1
i. Textbox2, Name = txt_nama1
j. Textbox3, Name = txt_kode2
k. Textbox4, Name = txt_nama2
l. Textbox5, Name = txt_kejuruan
m. Datagrid1
n. Adodc1
o. CommandButton1, Name = txt_cari_kode, Caption = Cari Kode
p. CommandButton2, Name = txt_cari_nama, Caption = Cari Nama
q. CommandButton3, Name = txt_cari_first, Caption = FIRST
r. CommandButton4, Name = txt_cari_prev, Caption = PREV
s. CommandButton5, Name = txt_cari_next, Caption = NEXT
t. CommandButton6, Name = txt_cari_last, Caption = LAST

3. Deklarasi untuk koneksi ke database dan table

Dim con As ADODB.Connection 'Koneksi ke database
Dim RS As ADODB.Recordset 'Koneksi ke table/query

4. Mengaktifkan prosedur isi_data pada form ketika dibuka

Sub isidata()
txt_kode2 = RS!kode
txt_nama2 = RS!nama
txt_kejuruan = RS!kode_jurusan
'berdasarkan nama field tabel karyawan pada database db_mahasiswa
End Sub

5. Mengaktifkan database ketika form dibuka

Private Sub Form_Load()
Set con = New ADODB.Connection
con.CursorLocation = adUseClient
Set RS = New ADODB.Recordset
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Data Kuliah\Semester II\Visual Basic II\05-29-09\db_mahasiswa.mdb;Persist Security Info=False"
'merujuk pada database db_mahasiswa
RS.Open "table_Mahasiswa", con, adOpenStatic, adLockOptimistic
'merujuk nama tabel mahasiswa pada db_mahasiswa yaitu: table_mahasiswa
Set DataGrid1.DataSource = RS
isidata
End Sub

6. Membuat coding cmd_cari_kode

Private Sub cmd_cari_kode_Click()
RS.MoveFirst RS.Find "kode='" & txt_kode1.Text & "'"
If RS.EOF Then
MsgBox "Data tidak ditemukan"
RS.MoveLast
End If
isidata
End Sub

7. Membuat coding cmd_cari_nama

Private Sub cmd_cari_nama_Click()
RS.MoveFirst
RS.Find "nama='" & txt_nama1.Text & "'"
If RS.EOF Then
MsgBox "Data tidak ditemukan"
RS.MoveLast
End If
isidata
End Sub

8. Membuat coding cmd_first

Private Sub cmd_first_Click()
RS.MoveFirst
isidata
End Sub

9. Membuat coding cmd_prev

Private Sub cmd_prev_Click()
RS.MovePrevious
If RS.BOF Then RS.MoveFirst 'supaya tdk terjadi error ketika data pertama kita klik prev
isidata
End Sub

10. Membuat coding cmd_next

Private Sub cmd_next_Click()
RS.MoveNext
If RS.EOF Then RS.MoveLast 'supaya tdk terjadi error ketika data terakhir kita klik next
isidata
End Sub

11. Membuat coding cmd_last

Private Sub cmd_last_Click()
RS.MoveLast
isidata
End Sub

12. Jalankan program.


Sumber: Aris Prasetyo, S.Kom
Materi Kuliah VB 6 tgl 29 Mei 2009
Semester II STIKOM CKI Wijaya Kusuma