Rabu, 05 Januari 2011

Koneksi Database dan Visual Basic 6.0

Cara membuat koneksi Database dalam Visual Basic 6.0.

Membuat koneksi database baik itu menggunakan Visual Basic 6.0 maupun Visual Basic .NET pada dasarnya sama. Di bawah ini akan saya coba jelaskan cara sederhana untuk membuat koneksi dengan SQL Server Database menggunakan Visual Basic 6.0. Artikel ini hanya ditujukan buat teman-teman yang ingin mengetahui cara mengkoneksikan program Visual Basic ke dalam database SQL.

Langkah pertama, buka program Visual Basic 6.0 dan buat project baru dengan memilih Standar EXE pada menu tampilan awan Visual Basic 6.0.

Langkah kedua, pilih menu project dan pilih menu References. Dalam kotak dialog References, cari “Microsoft ActiveX Data Objects 2.8 Library” atau “Microsoft ActiveX Data Objects 2.6 Library” atau “Microsoft ActiveX Data Objects 2.7 Library”. Pilih salah satu, semuanya sama saja terserah Anda. Centang library tersebut dan klik OK.

Langkah ketiga, buat modul baru dalam project kita dengan mengklik menu Project > Add Module. Pada kotak dialog yang muncul, klik Open. Dalam modul yang baru kita buat ketikkan:

                Public dB As New ADODB.Connection

Langkah keempat, buka Form1 yang terdapat dalamProject Explorer (biasanya di sebelah kanan) dengan cara Double Click pada Form1. Form1 akan terbuka. Double Click Form1 dimana saja, maka anda akan masuk ke dalam tampilan Code View . Kode yang muncul akan terlihat seperti di bawah ini:

               Private Sub Form_Load()

               End Sub

Langkah kelima, ketikkan perintah di bawah ini di antara Sub Form_Load() dan End Sub:

         On error goto Ern

               dB.Provider = "SQLOLEDB.1;server=(local);User ID=sa;password=asianet;Initial Catalog=Penjualan"

               dB.Open

               MsgBox “Koneksi sukses.”

               Exit sub

         Ern:

               MsgBox “Koneksi Gagal”

Keterangan :

  • (local), mengindikasikan lokasi server Anda. Jika aplikasi kita hanya akan mengakses ke SQL Server dalam komputer local, gunakan (local). Sebaliknya jika aplikasi kita digunakan agar terhubung ke jaringan, sebaiknya gunakan sesuai nama server (komputer) dalam jaringan. (sorry kalo kata-katanya agak kurang dipahami... J).
  • User ID=sa;password=asianet. Bila saat installasi SQL Server pertama kali kita menggunakan User ID ‘sa’ dan password=asianet. Maka User ID dan passwordnya harus dimasukkan di sini. Lain waktu akan saya terangkan cara Installasi SQL Server 2000, kalo SQL Server yang 2005 agak gampang (tapi, semuanya tergantung dimana kita memakai Instance default atau tidak atau menggunakan SQL Server authentication atau tidak).
  • Initial Catalog=Penjualan. Maksudnya, nama database kita apa? Disini databasenya saya namakan ‘Penjualan’. Untuk pembuatan database, silahkan klik disini.

Langkah keenam, coba jalankan aplikasi kita dengan menekan tombol F5 dari keyboard. Silahkan lihat hasilnya... dialog box mana yang muncul?

Untuk pertanyaan atau penjelasan lebih lanjut, silahkan isikan di Comment. Thanks. J

1 komentar: