Halo pembaca semuanya. Tulisan kali ini sebenarnya bisa dikatakan sangat sederhana dan tergolong sudah agak lama topiknya. Tetapi karena masih banyak rekan-rekan yang bertanya mengenai hal tersebut maka penulis coba lagi untuk angkat dalam bentuk tulisan sederhana. Topik kali ini adalah mengenai contoh koneksi ke database MS SQL Server 2000 dengan menggunakan MS Visual Basic 6.0.

Ada beberapa hal yang perlu disiapkan untuk misi kali ini, yaitu:

• Siapkan MS SQL Server Anda. Coba buat database baru dengan nama vb_db. Anda bisa membuatnya dengan menggunakan Enterprise Manager. Setelah database selesai Anda buat maka silakan buat sebuah tabel yang bernama tbl_karyawan. Adapun structure nya adalah sebagai berikut:
  
  create table tbl_karyawan (
  nama varchar(50),
  alamat varchar(50));
   
• Isikan data ke dalam tabel tbl_karyawan tersebut dengan script berikut:
  
  insert into tbl_karyawan values ('sony-ak','surabaya');
   
• Penulis berasumsi disini bahwa Anda melakukan koneksi ke SQL Server 2000 dengan metode SQL Authentication. Diasumsikan ada user account 'sa' di SQL Server 2000 dengan password 'sapassword'.
• Sekarang silakan buka MS Visual Basic 6.0.
• Buat project baru dengan memilih menu File | New Project kemudian pilih Standard EXE.
• Tambahkan satu kontrol button ke dalam form kosong pada project yang baru Anda buat.
• Ketik kode berikut ini yang merupakan contoh kode untuk koneksi ke database SQL Server di atas. Kode di bawah ini merupakan kode pada event Click dari kontrol button Command1.
  
  Private Sub Command1_Click()
    Dim conn, recset
    Set conn = CreateObject("ADODB.Connection")
    Set recset = CreateObject("ADODB.Recordset")
  
    conn.open "Provider=SQLOLEDB.1;Password=sapassword;" & _
    "Persist Security Info=True;User ID=sa;" & _
    "Initial Catalog=vb_db;Data Source=localhost"
  
    recset.open "select * from tbl_karyawan", conn, 3, 2
    MsgBox recset("nama")
  End Sub

Kita lihat pada kode diatas dimulai dengan deklarasi variabel conn dan recset. Variabel conn adalah variabel untuk koneksi ke database dan variabel recset adalah variabel untuk menampung recordset nantinya.

Pada bagian selanjutnya ada bagian untuk membuat instance dari object ADODB.Connection dan ADODB.Recordset yang akan kita gunakan kemudian. Setelah itu proses koneksi dari Visual Basic 6.0 ke SQL Server 2000 sebenarnya terjadi ketika kita menjalankan method Open dari object ADODB.Connection. Kita lihat bersama pada method Open di atas diberi dengan parameter connection string untuk koneksi ke SQL Server dengan beberapa properti yang menyertainya, mulai dari username, database host address, password, default catalog dan juga provider name-nya.

Pada bagian berikutnya kita menggunakan method Open dari object ADODB.Recordset untuk mengambil data dari suatu tabel tertentu. Pada contoh diatas penulis mengambil contoh untuk mengakses tabel tbl_karyawan dengan statement SELECT. Setelah itu pada bagian terakhir kemudian kita menampilkan field 'nama' ke layar dengan bantuan method MsgBox.

Demikian contoh koneksi database yang sangat sederhana dari MS Visual Basic 6.0 ke MS SQL Server 2000. Semoga bermanfaat bagi Anda semua. Jika ada komentar atau saran bisa dilayangkan melalui e-mail ke sony-ak@sony-ak.com. Jika Anda ingin membaca tulisan menarik lainnya silakan saja menuju situs Sony AK Knowledge Center dengan alamat di http://www.sony-ak.com/.

Silakan download source code lengkap dari project di atas

Terimakasih.