Desain Form input_biodata.html





























Desain Form tampil_biodata.php







Untuk Script-nya, Silakan download disini



















Silakan download materi - materi yang sudah diajarkan di Lab sebagai bahan latihan di rumah :

1) Delphi
Koneksi Delphi dengan Database Dekstop

2) Visual Basic II
Lanjutan Program Perpustakaan dengan Visual Basic (Form Buku) 
Form Peminjaman Buku
Software MySQL ODBC 3.51 Driver


Buat database  : perpustakaan
Buat tabel : anggota








 Desain Form
















Untuk koneksi ke database MySQL menggunakan object ADODB. Sebelumnya aktifkan dulu ADODB nya. Caranya Klik Menu Project - References.. lalu ceklis Microsoft ActiveX Data Object 2.6 Library.

Kemudian ketik coding koneksi berikut ini di Module

Public con As New ADODB.Connection
Public rs As New ADODB.Recordset

Public Sub koneksi()
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset

con.Open "Driver={MySQL ODBC 3.51 Driver};server=localhost;database=perpustakaan; uid=root;pwd =password"

con.CursorLocation = adUseClient
End Sub


Untuk menampilkan record tabel ke DataGrid, coding nya :
Private Sub Form_Load()
Call koneksi
If rs.State Then rs.Close
rs.Open "select * from anggota", con
Set DataGrid1.DataSource = rs
End Sub

Penjelasan:
Coding di Modul
Variabel con digunakan sebagai objek untuk koneksi ke database
Variabel rs digunakan sebagai objek untuk koneksi ke tabel
Nama variabel bebas tapi ada aturan mainnya (masih inget kan??)
Untuk koneksi ke database MySQL dibutuhkan driver dan penulis menggunakan MYSQL ODBC 3.51 yang harus diinstal terebih dahulu.
uid=user id; dan pwd =password untuk masuk ke phpMyAdmin. Untuk user nya "root" dan passwordnya disesuaikan.
CursorLocation=adUseClient --> meletakkan kursor ke database Client

Coding di Form_Load
Call koneksi = memanggil sub koneksi
If rs.State =jika tabel dalam kondisi diam tidak ada aksi ataupun sedang terbuka
then rs.Close= maka tabel akan tertutup
rs.Open "select * from anggota",con = menampilkan seluruh record yang ada di tabel anggota
Set DataGrid1.DataSource = rs --> menampilkan ke DataGrid


Untuk contoh lengkapnya silakan download Form Anggota