Mendapatkan Nama Server SQL Server

SQL server adalah Database Management System yang cukup terkenal dan dibuat oleh Microsoft. SYang pertama kali saya tahu adalah SQL server 2000, kemudian berlanjut ke SQL server 2005 dan sekarang yang terbaru adalah SQL Server 2008.

Saya memiliki sebuah job, dimana saya menggunakan Visual Basic 6 untuk pemrogramannya dan SQL Server 2000 sebagai Database Management. Saya menggunakan ADODB sebagai koneksi antara Visual Basic 6 dengan SQL Server. Untuk membuka koneksi, diperlukan syntax berikut:

cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=berdikari;Data Source=HENRY"

Button Effect di VB6

Membuat efek pada button di VB6 memang tidak semudah di Delphi, karena pada Delphi terdapat fungsi onMouseOver, sedangkan pada VB6 tidak ada. Tetapi ada cara untuk mengakali hal tersebut. Berikut adalah langkah2nya untuk membuat tombol menjadi berwarna merah dengan font 14 pada saat mouse berada di atasnya:

1. Deklarasikan dan isi di form_load 2 variabel berikut (Catatan: deklarasi ini tidak diharuskan dan dapat disesuaikan dengan kebutuhan):

Private OrigColorAs Long
Private OrigSize As Integer

Private Sub Form_Load()
OrigColor = Command1.BackColor
OrigSize = Command1.Font.Size
End Sub

Langkah-Langkah Pembuatan ToolBar di VB6

Untuk melihat langkah-langkah pembuatan ToolBar di VB6 bisa langsung dilihar di sini. Langkah-langkahnya ditulis dalam bahasa inggris. Ini adalah versi bahasa Indonesianya.

1. Pilih menu Project -> Components (Ctrl+T) dan pastikan Microsoft Windows Common Controls 6.0 telah tercentang
2. Pada toolbox, pilih komponen toolbar dan letakkan di form. Otomatis toolbar akan terletak di atas form
3. klik kanan pada toolbar dan pilih properties. Setelah itu pilih tab Button dan klik Insert Button maka akan muncul button kosong pada toolbar
4. Button itu bisa dibiarkan kosong untuk diisi gambar. Bila ingin mengisi kata-kata, masukkan pada bagian Caption
5. Pada textbox key, masukkan kata yang secara unique mendefinisikan button tersebut. Kurang lebih sama seperti penggunaan variable
6. Untuk menambahkan gambar pada button, tambahkan ImageList dari toolbox ke form. Klik kanan pada ImageList, Pilih Properties, Tab Image, Insert Picture. Masukkan terus sebanyak button yang ada. Perhatikan bahwa masing-masing gambar memiliki index.
7. klik kanan pada toolbar, pilih properties, pada tab general cari kotak ImageList dropdown dan pilih nama ImageList
8. Pilih tab Buttons. Pada textbox Image, masukkan index dari gambar yang ada pada ListImage. Lakukan untuk setiap Button. Bila ingin menambah gambar lagi, pada ImageList dropdown pada tab General harus dikosongkan terlebih dahulu.
9. Untuk memberikan jarak antar tombol pada toolbar (atau biasa disebut separator), masuk ke halaman property dari toolbar, pilih button tab, dan klik Insert Button untuk membuat button baru yang kosong. Kemudian pada combo box Style, pilih 3-tbrSeparator.
10. Di dalam VB, double click pada toolbar dan akan menuju ke event toolbar button click. Variabel Button berisi nama dari button yang sedang diclick. Gunakan select case atau If untuk memilih button mana yang sedang diclick. Contoh: If button=”Save”
11. Untuk melihat seolah-olah button sedang dalam keadaan diclick, pada halaman property toolbar, tab Buttons, ubah Value menjadi 1-tbrPressed

Itu adalah langkah-langkah pembuatan ToolBar. Semoga bisa membantu. ^^

Progress Bar di VB 6

Beberapa waktu yang lalu, ada yang menanyakan kepada saya cara menggunakan Progress Bar di Visual Basic 6. Sebenarnya penggunaannya cukup mudah, hanya yang sulit adalah menentukan nilai maximum dari progress bar tersebut. Kemungkinan sudah banyak yang tahu, tapi tetap saya postingkan di sini supaya yang tidak mengerti bisa menggunakannya. Berikut langkah-langkah sederhana pembuatan Progress Bar:

1. Pilih menu Project -> Component dan centang Microsoft Windows Common Controls 6.0 (SP6)

2. Klik OK dan pada component palette sebelah kiri akan muncul simbol progress bar.

3. Click dan drag component tersebut ke dalam form.

4. Double click form dan akan menuju ke halaman coding.

5. Letakkan Kode di bawah ini ke dalam procedure form_load

progressbar1.min = 0
progressbar1.max = 100
progressbar1.value = 0
for i=0 to 101

    progressbar1.value = progressbar1.value + 1

next

Semoga langkah-langkah bisa bermanfaat bagi teman-teman yang ingin mengerti Progress Bar di VB 6.