Tugas Pratikum VB

AKSES DATABASE LEWAT VB

è Menggunakan :

1. Wampserver

2. Sqlyog

3. Vb 6.0

4. Myodbc 3.51

è Cara mengakses database

a. Menggunakan kontrol Data

b. Memprogram (Mengetikkan kode untuk koneksi ke database) - lebih fleksibel dalam penggunaan

è Pengertian ODBC

¨ Sebuah interface yang memungkinkan aplikasi seperti VB yang digunakan untuk mengakses database pada sebuah RDBMS (seperti MySQL)

¨ DSN (Data Source Name) diperlukan oleh aplikasi (misal VB)untuk berkomunikasi dengan database.

¨ DSN berisi informasi tentang

- Name

- Hostname

- Database name

- Login

- Password

è Mengakses database mysql lewat VB

¨ Sebelum mengkoneksikan database MySQL dengan VB, terlebih dahulu :

- Atur konfigurasi DSN MyODBC

- Pastikan MySQL server telah aktif

- Deklarasi dan Inisialisasi

- Eksekusi perintah SQL

- Terima hasil dari eksekusi SQL

è Referensi library ADO ke Project

¨ Karena teknologi pemrograman database yang digunakan adalah ADO, maka perlu menyertakan library ADO pada program :

pilih menu Project-References

è Penulisan Kode pemrograman database dengan teknologi ADO

¨ Deklarasi Variabel

¤ Variabel conn dengan tipe data ADODB.Connection

¤ Variabel rs dengan tipe data ADODB.Recordset

¨ Membuat objek koneksi dan membuka koneksi

Set conn = New ADODB.Connection

conn.Open “Dsn=iziPOS”

conn. CursorLocation=adUseClient

Membuat objek recordset dan membukanya

Set rs = New ADODB.Recordset

Rs.Open

Menampilkan data

è Cursor merupakan satu paket record data yang di representasikan dari sebuah query/perintah.

Cursor memiliki 3 bagian penting,

1. Dimana lokasi cursor tersebut berada, (di server atau di client)

2. Type dari cursor itu sendiri (adOpenForwardOnly, adOpenKeyset, adOpenDynamic, adOpenStatic)

3. Pilihan penguncian data (adLockReadOnly, adLockPessimistic, adLockOptimistic, and adLockBatchOptimistic)

è Lokasi Cursor (CursorLocation)

¨ merupakan property dimana kita ingin menentukan posisi cursor yang ingin kita buat, apakah di server atau di client (adUseServer atau adUseClient).

è Type Cursor

1. adOpenForwardOnly

merupakan nilai default jika kita memilih lokasi cursor di server.

2. adOpenKeyset

Cara kerja cursor dengan metode ini pada intinya sama dengan metode Dimanis namun diperlukan perhatian khusus karena metode ini tidak akan menginformasikan data yang telah ditambahkan oleh user lain.

Type ini hanya bisa digunakan pada lokasi cursor di server.

3. adOpenDynamic

Cara kerja dari cursor yang bertipe Dinamis adalah dengan membuat bookmark pada datasource. sehingga kita akan mendapatkan data yang real-time kapanpun kita ingin meminta data. karena cursor akan selalu memantau aktivitas dari perubahan data dan akan menginformasikan kepada kita jika data tersebut telah dirubah oleh user lain.

4. adOpenStatic

Type Cursor ini sangat fleksibel karena pada dasarnya ini adalah sebuah copyan record dari datasource yang ada di server dan merupakan default value dari tipe data cursor yang menggunakan client sebagai lokasi cursornya.

è Type Penguncian Data

1. adLockReadOnly

Secara default recordset itu memiliki type penguncian adLockReadOnly (hanya dapat dibaca) sehingga kita tidak dapat melakukan Update (penambahan, perubahan atau penghapusan data).

2. adLockPessimistic

Ketika kita menggunakan type penguncian adLockPessimistic ADO akan mencoba untuk mengunci field pada saat melakukan mode perubahan (Edit Mode) dan akan melepasnya kembali ketika kita selesai melakukan update (rs.update) atau merubah posisi record (rs.move).

Type ini hanya tersedia pada server-side cursors.

3. adLockOptimistic

pada type ini ADO hanya mengunci data pada record saat ini sehingga dapat mengurangi waktu proses. type ini sering digunakan para programmer yang menggunakan recordset untuk mengupdate data.

4. adLockBatchOptimistic

è Navigasi

¨ MoveFirst

¨ Buat Sub Runtime atau prosedur dengan nama TampilkanData

¨ MoveLast

¨ MovePrevious

¨ MoveNext

è Pencarian Record

¨ Sintaks metoda pencarian :

¨ Find (criteria, SkipRows, searchDirection, start)

¨ Criteria : String yang terdiri dari nama field, operator pembanding dan nilai yang dicari

¨ SkipRows (Optional): Tipe data Long, secara default terisi nol. Angka ini menentukan offset mulai dari baris bookmark dimulainya pencarian

¨ SearchDirection( Optional): Menampung nilai SearchDirectionEnum yang menentukan arah pencarian.

¨ Arah pencarian ada dua adSearchForward atau adSearchBackward

¨ Start (Optional): Menentukan posisi awal pencarian dimulai.

¨ Operator pembanding di kriteria bisa berupa tanda “>”(lebih dari), “<”(kurang dari), “=”(sama dengan) atau “like” (kemiripan nilai)

¨ Nilai yang dicari , mungkin berupa string, floating point number atau date.

¨ Untuk tipe data teks diapit oleh petik ganda (misal, “”)

Contoh :

Private Sub cmdCari_Click()

‘Mencari nama pegawai tertentu melalui inputbox

‘Nama pegawai dapat ditulis sebagian

‘mulai dari depan sesuai isi field Nama

rs.Find "Nama LIKE '*" & txtCari.Text & "*'", , adSearchForward, 1

If Not rs.EOF Then

“ Jika data ditemukan, hasilnya ditampilkan ke textbox

Call TampilkanData

End If

End Sub