K : "Bisa ga kamu buat program aplikasi pembanding data dari dua database yang berbeda ?"
A : "Bahasa program dan databasenya mau pakai apa kak ?"
K : "Kalau bisa sech Visual Basic 6.0 dan SQL Server 2000, soalnya itu yang sekarang dipakai kantor. Bisa?"
A : "Insya Allah kak, kami usahakan."

Sepenggal dialog dengan karyawan salah satu perusahaan negara bergerak di bidang kelistrikan di atas adalah awal perjuangan kami (saya dan teman se-jurusan saya) Praktek Kerja Lapangan (PKL) di lokasi tersebut. Hari pertama, tugas pertama dan juga terakhir, membuat kami harus memulai dari nol untuk menjawab tantangan (kami menyebutnya tantangan karena terasa sulit) yang diberikan. Bukan kami tidak pernah belajar mengenai Visual Basic 6.0 dan SQL Server, hanya saja kami telah mempelajarinya 1,5 tahun yang lalu (3 semester). Bagi orang yang tidak terlalu "concern" terhadap suatu topik tertentu, jika sudah lewat ya lewat begitu saja. Seperti halnya kami yang tidak terlalu "concern" dengan kedua topik tersebut, tugas yang diberikan membuat kami harus belajar tentang Visual Basic 6.0 dan SQL Server 2000 dari awal lagi. Haha.....

Hari kedua dan seterusnya kami isi dengan mencari satu demi satu hal-hal yang memungkinkan kami menyelesaikan tantangan tersebut. Mulai dari bagaimana membuat struktur database dari data yang sudah ada, bagaimana meng-impor data dari database lain, bagaimana menghubungkan database SQL Server 2000 dengan Visual Basic 6.0, sampai bagaimana cara menulis kode SQL Server 2000 yang benar pada Visual Basic 6.0.

Hari demi hari berlalu, dengan perjuangan keras, mondar-mandir kampus satu ke kampus yang lain untuk mencari referensi penyelesaian tugas, bertanya pada dosen "ahli" SQL Server dan Visual Basic, akhirnya satu per satu jawaban kami temukan...

Mula-mula kami menemukan jawaban untuk menghubungkan database SQL Server 2000 dengan Visual Basic 6.0. Misalkan database yang akan dibuat kita beri nama TUGAS.

Via SQL Server :
1) Pilih Microsoft SQL Servers
2) Pilih SQL Server Group
3) Pilih (local) (Windows NT)
4) Klik Kanan folder Databases
5) Sorot All Tasks
6) Pilih Attach Database....
7) Cari lokasi basis data (MDF file or database to attach)
Jika file ada, akan muncul informasi mengenai basis
data yang di-attach pada kolom Original File Name(s)
dan Current File(s) Location.
8) Klik OK
9) Tunggu sampai muncul pesan
Attaching database has completed successfully.
10) Klik OK
11) Buka SQL Server, klik tanda + di sebelah kiri Microsoft
SQL Servers, SQL Server Group, Security, Logins, lalu klik
kanan BUILTIN\ADMININSTRATOR > Pilih Properties.
12) Klik Combo box Database, Pilih database TUGAS > Apply > OK.

Selanjutnya via Visual Basic 6.0. Khusus untuk Visual Basic 6.0, untuk fitur database, perlu ditambahkan komponen ado_dc untuk menghubungkannya dengan database. Selanjutnya untuk menghubungkan dilakukan sebagai berikut :

a. Klik kanan objek adodc1 > ADODC Properties.
b. Pilih Use ODBC Data Source Name > New.
c. Pilih Use Data Source (applies to This machine only) > Next
d. Pilih SQL server > Next > Finish.
e. Isilah Name dengan TUGAS, Description dengan database TUGAS,
Server dengan [local].
f. Klik Test Data Source > OK > OK.
g. Klik Combo Use ODBC Data Source Name.
h. Pilih TUGAS.
i. Klik Tabulasi Recordsource.
j. Pilih Combo Command Type.
k. Pilih 2 – adCmdTable.
l. Klik Combo Table or Stored Procedure Name.
m. Pilih Tabel yang berelasi.
n. Klik Apply > OK.

Dengan demikian interface Visual Basic Anda sudah terhubung dengan database SQL Server 2000. Akan tetapi perlu diingat bahwa Anda harus mengaktifkan Service Manager SQL Server sebelum menghubungkan Visual Basic 6.0 dengan SQL Server 2000.

Proses selanjutnya adalah menuliskan kode SQL Server 2000 pada badan listing Visual Basic 6.0. Caranya yaitu :

Tambahkan kode berikut pada deklarasi :

Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset
Dim msql As String

Public Sub BukaDB()
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.Open "DSN=TUGAS"
End Sub

Kode di atas dimaksudkan agar kode SQL Server dapat dikenali. Selajutnya cara menulis kode SQL Server 2000.

Untuk menghapus record tabel TUGAS1 dalam database TUGAS SQL Server 2000 :

msql = "delete from TUGAS1 "
conn.Execute (msql)

Untuk meng-insert jumlah record kolom DPP pada tabel TUGAS2 ke kolom jumlah pada tabel TUGAS1

msql = "insert into TUGAS1 (jumlah)" & _
"select sum (DPP) from TUGAS2"
conn.Execute (msql)

msql adalah nama string untuk kode SQL Server 2000.
conn adalah nama objek untuk mengeksekusi.
Execute adalah methode untuk mengeksekusi perintah SQL Server tersebut.
Jika kode SQL Server lebih dari satu baris maka digunakan tanda penghubung & _


Demikianlah sedikit contoh menuliskan kode SQL Server 2000 pada Visual Basic 6.0. Cukuplah bagi kami untuk dapat menyelesaikan tantangan yang diberikan. Dan akhirnya :

A : "Kak ini aplikasinya, dah jadi. Tapi mungkin masih ga sempurna."
K : "Oh, ini ya. Coba di run...."
A : "Ini kak..."
K : "Iya sudah, tapi sebaiknya harus ada filter bla...bla...bla..."

Saat evaluasi ada tugas baru, filter record dari database SQL Server...arggggg...kerjanya nanti aja dech. Hahahahahahaha...
Selamat mecoba, semoga bermanfaat.