Forum Alumni & Mahasiswa AMIK Ibrahimy Sukorejo Situbondo
Assalamu'alaikum Wr. Wb.
Selamat datang di Forum Alumni dan Mahasiswa AMIK Ibrahimy Sukorejo Situbondo.

Portal amik.forum.st ini dibuat sebagai wadah dan jalur komunikasi serta sarana untuk belajar, berbagi dan bertukar pikiran atau informasi dalam berbagai hal, dari hal khusus tentang kemajuan teknologi informatika hingga yang umum, dengan tujuan demi kemajuan KITA bersama.

Bagi seluruh Mahasiswa, Alumni dan Simpatisan AMIK Ibrahimy Situbondo dimana pun berada, jika ada informasi kegiatan atau artikel ingin dimuat di halaman depan dari portal amiki.forum.st silahkan kontak Admin e-mail ke amik_ibrahimy@yahoo.com

Daftarkan diri Anda untuk dapat membuat topik, membalas topik yang ada, download dan mengakses menu yang lain.

jangan lupa NIM-nya yah.... Smile
Wassalamu'alaikum Wr. Wb.

CARA CEPAT MAHIR VB 6.0 DAN DATABASE [bagian 2]

Go down

CARA CEPAT MAHIR VB 6.0 DAN DATABASE [bagian 2]

Post by Zainal Abidin, A.Md.Kom on Mon Feb 20, 2012 10:29 am

Bersama : Zainal Abidin, A.Md.Kom.
Pada bagian pertama kita sudah membahas masalah bagaimana mengkoneksikan database dengan vb 6.0 menggunakan metode ADODC. Sedangkan pada bagian kedua ini kita akan membahas bagaimana mengkoneksikan database dengan vb 6.0 menggunakan metode ADODB.
Perbedaan koneksi menggunakan metode ADODC dan ADODB adalah jika kita menggunakan ADODC dibutuhkan mengaktifkan komponen adodc dan jika setiap form dibutuhkan untuk menkoneksikan dan menampilkan datanya maka pada setiap form kita harus meletakkan adodc namun, jika kita gunakan metode ADODB maka yang dibutuhkan hanyalah mengaktifkan Microsoft ActiveX Data Objects 2.0 Library dan tidak perlu meletakkan apa-apa pada setiap form dan ini akan lebih efektif lagi jika dibuatkan Module.
A. CARA MENGAKTIFKAN ADODB
Sebagaimana yang telah dijelaskan tadi bahwa untuk menggunakan metode ADODB harus mengaktifkan dahulu Microsoft ActiveX Data Objects 2.0 Library, sebelum diaktifkan perintah ADODB tidak akan muncul ketika kita memanggilnya. Contoh dibawah ini menggambarkan sebelum Microsoft ActiveX Data Objects 2.0 Library diaktifkan :

Perhatikan pada daftar yang muncul ketikan perintah ado diketik pada daftar tersebut tidak tampil pilihan ADODB.
Baiklah sekarang silahkan aktifkan Microsoft ActiveX Data Objects 2.0 Library dengan langkah-langkah sebagai berikut :
1. Masuk ke menu Project > References
2. Tampil kotak dialog sebagai berikut :

3. Silahkan cari Microsoft ActiveX Data Objects 2.0 Library
4. Centang tanda checklistnya :

5. Sekarang masuk ke tempat kode di form, kemudian ketikkan contoh berikut :
Private koneksi As New
Usahakan kode tersebut jangan dicopy cobalah diketik sendiri maka setelah Anda sampai pada spasi setelah New program akan menampilkan daftar sebagai berikut :

sekarang dalam daftar sudah ada ADODB itu berarti metode ADODB sudah siap digunakan.
B. CARA MENGGUNAKAN ADODB
Cara menggunakan ADODB hanya ada satu cara yaitu semua perintahnya menggunakan SourceCode berbeda ketika kita menggunakan adodc yakni bisa menggunakan bantuan wizard dan bisa menggunakan SourceCode. Nemun keunggulan menggunakan ADODB adalah project yang kita buat akan semakin dinamis, kita tidak perlu meletakkan komponennya pada setiap form cukup ditulis satu kali saja.
Cara meletakkan SourceCodenya bisa langsung pada formnya dan bisa diletakkan dalam satu module.
1. Menggunakan ADODB dalam Form
Hal ini sangat tidak saya anjurkan karena akan memakan memory lebih banyak, karena diharuskan menuliskannya pada setiap form. Namun dalam bagian ini saya juga akan menjelaskannya secara gamblang hanya sebagai pengetahuan saja.
a. Silahkan masuk pada bagian kode dari form
b. Buatlah variable koneksi dan recordset. Hali ini dimaksudkan supaya vb bisa terkoneksi ke database sekaligus ke record dalam tebel. Perintahnya sebagai berikut :
Private koneksi As New ADODB.Connection
Private rs As New ADODB.Recordset

Keterangan : pangkat tidak perlu ditulis. Pangkat tersebut adalah footnote
c. Buatlah private sub untuk membuka databse dengan code sebagai berikut :
Private Sub bukaDB()
Set koneksi = New ADODB.Connection
Set rs = New ADODB.Recordset
koneksi.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\db1.mdb;"
koneksi.CursorLocation = adUseClient
End Sub
Pada tahap ini kita sudah tersambung ke database.
d. Untuk menampilkan data yang ada di table dibutuhkan media. Sekarang kita gunakan media DataGrid untuk menampilkan data tabelnya dengan cara meletakkan DataGrid pada form. Perhatikan gambar berikut :

Gambar tersebut hanya menambahkan DataGrid tidak perlu menambahkan adodc1
e. Kemudian masuk pada form_load dan ketikkan code berikut :
Private Sub Form_Load()
bukaDB
rs.Open "select * from t_siswa", koneksi
Set DataGrid1.DataSource = rs
End Sub
rs.Open "select * from t_siswa", koneksi digunakan untuk membuka table siswa yang ada di database dan datanya ditampilan semua di DataGrid. Dibawa ini adalah gambar ketika program dijalankan :

2. Menggunakan ADODB dalam Module
Pembuatan module setiap kali membuat project sangatlah dianjurkan karena disamping tidak banyak membuatuhkan tempat dan juga irit terhadap penggunaan memory, disamping itu juga kita tidak perlu repot-repot menuliskan kode yang berfungsi sama pada setiap form.
Pembuatan module ini akan digunakan setiap kali form yang berbeda ingin berkoneksi dengan database. Langkah-langkah membuat module adalah sebagai berikut :
a. Masuk ke menu project
b. Pilih add module
c. Tampil kotak dialog add module > klik open
d. Maka disediakan lembaran code kosong untuk module
e. Ganti name module di properities menjadi konek, dan simpan

f. Kembali ke lembaran code kosong, kemudian isikan code berikut :
Public KONEKSI As New ADODB.Connection
Public rs As New ADODB.Recordset

Public Sub bukaDB()
Set KONEKSI = New ADODB.Connection
Set rs = New ADODB.Recordset
KONEKSI.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\db1.mdb;"
KONEKSI.CursorLocation = adUseClient
End Sub
Jika ingin cepat pindahkan code yang ada di form tadi ke module kemudian ganti tulisan private menjadi public. Perhatikan gambar berikut :

g. Isikan kode berikut ke dalam form_load :
Private Sub Form_Load()
bukaDB
rs.Open "select * from t_siswa", koneksi
Set DataGrid1.DataSource = rs
End Sub
Perhatikan gambar berikut :

h. Jalankan programnya, maka gambarnya sebagai berikut :

Selamat mencoba….! Code bisa dicopy karna artikel ini tidak dikunci
Agar ilmu yang kita dapat bermanfaat silahkan baca doa dibawah ini sebanyak 3x


file PDFnya silahkan unduh disini
projectnya silahkan unduh disini

anda juga bisa berkunjung ke blog ini

Masalah yang disebabkan ketika mulai mengunduh adalah karena web ini disambungkan ke adf.ly yang mengakibatkan link yang dituju tidak dieksekusi langsung dan Anda tidak akan ditujukan pada file yang seharusnya disediakan untuk diunduh.
Jika hal tersebut menimpa Anda maka cara mengunduhnya adalah
1. klik kanan tulisan tulisan yang dilink
2. pilih copy link location

3. buka tab baru
4. paste pada addres bar

5. hapus tulisan http://adf.ly/246619/ yang berada sebelum http-nya media fire

6. enter
anda sudah siap mengunduh filenya.
avatar
Zainal Abidin, A.Md.Kom
Prajurit Kepala
Prajurit Kepala

Th. Akademik : 2007
Asal Kota : Situbondo
Umur : 30
Male
Phone : 08970001615
Aries Naga
Jumlah posting : 13
Sejak Tanggal : 06.06.11

http://smapank-info.blogspot.com

Kembali Ke Atas Go down

Kembali Ke Atas


 
Permissions in this forum:
Anda tidak dapat menjawab topik