Pengantar Program

Microsoft Visual Basic 6.0

Mengenal Visual Basic

Microsoft Visual Basic merupakan salah satu aplikasi pemrograman visual
yang memiliki bahasa pemrograman yang cukup popular dan mudah di pelajari.
Basis bahasa pemrograman yang digunakan dalam visual basic adalah bahasa
BASIC (Beginner All-Purpose Symbolic Intruction Code) yang merupakan salah
satu bahasa pemrograman tingkat tinggi yang sederhana dan mudah dipelajari.
Dengan Visual Basic, kita bisa membuat program dengan aplikasi dalam sebuah
form baik aplikasi kecil hingga ke aplikasi pengolahan database.

Menjalankan Visual Basic 6.0

Langkah untuk menjalankan program Visual Basic 6.0 adalah :
1. Klik tombol Startyang terletak di sudut pojok kiri bawah layar.
2. Pilih menu All Programs ► Microsoft Visual 6.0 ► Microsoft Visual
Basic 6.0

3. Sesaat kemudian tampil jendela program visual Basic 6.0 bersamaan

dengan munculnya kotak dialog New Projectsebagai berikut:

1
Pada kotak dialog tersebut terdapat tiga pilihan tabulasi sebagai berikut:

Tabulasi Keterangan
New Untuk Membuat proyek baru dengan berbagai
macam pilihan.
Existing Pilihan untuk membuka daftar nama proyek yang
pernah dibuat sebelumnya

Recent Pilihan untuk membuka daftar nama proyek yang

telah dibuat dan terakhir kali dibuka.

2
 4. Berikutnya pilih tabulasi Newdan klik pilihan [Link]
klik tombol Open. Selanjutnya, tampilan jendela program Visual Basic 6.0
akan terlihat seperti pada gambar berikut:
Title Bar Jendela
Menu Bar Form Main Toolbar Project Properties

Toolbox Jendela Form Layout

Keterangan :

 Title Bar → berfungsi untuk menunjukkan nama proyek yang sedang aktif.
 Menu Bar → berfungsi untuk mengoperasikan program visual basic 6.0
 Main Toolbar → berfungsi untuk melakukan suatu perintah khusus secara
cepat.
 Toolbox → digunakan dalam proses pembuatan aplikasi.
 Project → merupakan jendela yang digunakan untuk menampilkan proyek-
proyek atau modul-modul yang terlibat dalam proses pembuatan aplikasi.
 Form → digunakan untuk merancang aplikasi yang sedang dibuat.

3
 Jendela Form Layout → untuk mengatur posisi form pada layar monitor saat
program dijalankan.
Qta cari tau yuuk..apa EVENT
dalam sebuah program...??

Event merupakan suatu tindakan yang dikenakan terhadap objek. Event

yang di terima oleh sebuah objek berfungsi untuk menjalankan kode program
yang ada dalam objek tersebut.
Nah inilah yang
dinamakan
Event

Metode adalah kumpulan perintah yang memiliki kegunaan yang hampir

sama dengan suatu fungsi atau prosedur, tetapi perintah-perintah tersebut sudah
disediakan oleh suatu objek.

Ini dinamakan metode. Nah,

sekarang udah bisa ngebedain
metode sama event kan...??

4
 Gambar 1.7. Layout pada form
Dan untuk menjalankan program click ikon Run ( ) u pilih menu

5
 Latihan 1

Command
Button

Buat desain program pada form beri

Dobel klik pada commandbutton1 untuk menuliskan kode program

memunculkan pesan

Private Sub Command1_Click()

MsgBox "Selamat Belajar Visual Basic 6.0 !!!!",

vbInformation, "Password"

End Sub

Dobel klik pada commandbutton2 untuk menuliskan kode program keluar

aplikasi

Private Sub Command2_Click()

End

End Sub

Menjalankan

Di bawah ini beberapa cara menjalankan program pada Visual Basic 6.0:

 Klik tombol Start pada toolbar Standard.

 Klik menu Run ► Start.

6
 Tekan tombol F5 pada keyboard.

Latihan 2

Kode Program :
 Tombol BIRU
[Link] = "BIRU"
Label1

[Link] = vbBlue

End sub

7
Latihan 3

Kode Program :
 Tombol OK
Private Sub Command1_Click()
[Link] = [Link]
End Sub

8
 Tombol Selesai
Private Sub Command2_Click()
End
End Sub

Latihan 3

Kode Program :
Private Sub Option1_Click()
[Link] = vbBlue
End Sub

Private Sub Check1_Click()

[Link] = [Link]
End Sub

9
Latihan 4

10
Latihan 5

Object Properties Value

Form1 Caption Belanja
TextBox1 Text <kosong>
Name txtNama
TextBox2 Text <kosong>
Name txtAlamat
TextBox3 Text <kosong>
Name txtTelepon
Label1 Caption Nama
Label2 Caption Alamat
Label3 Caption Telepon
Command1 Caption Pesan
Command2 Caption Keluar

Kode Program :
Private Sub Command1_Click()
MsgBox "Nama Anda "& [Link] & " Alamat " &
[Link] & " Telp " & [Link], vbInformation,
"Hello friend"

11
12
Latihan 6

Kode Program :
 Double Klik Form
Private Sub Form_Load()
[Link] "Hery"
[Link] "ART"
[Link] "Iyan"
[Link] "Tuti"
End Sub
 Tombol Add
Private Sub Command1_Click()
[Link] [Link]
End Sub
 Tombol Delete
Private Sub Command2_Click()
[Link] [Link]
End Sub
 Tombol Bersih
Private Sub Command3_Click()
[Link]
[Link]

13
End Sub

III. Penggunaan Data dan Variabel

1.1 Mengenal Data dan Variabel

Ketika seorang user (pengguna) menggunakan sebuah program komputer,
seringkali komputer memintanya untuk memberikan informasi. Informasi ini
kemudian disimpan atau diolah oleh komputer. Informasi inilah yang disebut
dengan DATA.

Visual Basic 6 mengenal beberapa type data, antara lain :

 String adalah type data untuk teks (huruf, angka dan tanda baca).
 Integer adalah type data untuk angka bulat.
 Single adalah type data untuk angka pecahan.
 Currency adalah type data untuk angka mata uang.
 Date adalah type data untuk tanggal dan jam.
 Boolean adalah type data yang bernilai TRUE atau FALSE.

Data yang disimpan di dalam memory komputer membutuhkan sebuah wadah.

Wadah inilah yang disebut dengan VARIABEL. Setiap variabel untuk
menyimpan data dengan type tertentu membutuhkan alokasi jumlah memory
(byte) yang berbeda.

Variabel dibuat melalui penulisan deklarasi variabel di dalam kode program :

Dim <nama_variabel>As<type_data>
Contoh :

Dim nama_user As String

Aturan di dalam penamaan variabel :

 Harus diawali dengan huruf.

 Tidak boleh menggunakan spasi. Spasi bisa diganti dengan karakter
underscore (_).

14
  Tidak boleh menggunakan karakter-karakter khusus (seperti : +, -, *, /, <,
>, dll).
 Tidak boleh menggunakan kata-kata kunci yang sudah dikenal oleh Visual
Basic 6 (seperti : dim, as, string, integer, dll).

Sebuah variabel hanya dapat menyimpan satu nilai data sesuai dengan type
datanya. Cara mengisi nilai data ke dalam sebuah variabel :

<nama_variabel> = <nilai_data>

Contoh : nama_user = “krisna”

Untuk tipe data tertentu nilai_data harus diapit tanda pembatas. Type data
string dibatasi tanda petikganda : “nilai_data”. Type data date dibatasi tanda pagar
: #nilai_data#. Tipe data lainnya tidak perlu tanda pembatas.

Sebuah variabel mempunyai ruang-lingkup (scope) dan waktu-hidup (lifetime) :

 Variabel global adalah variabel yang dapat dikenali oleh seluruh bagian
program. Nilai data yang tersimpan didalamnya akan hidup terus selama
program berjalan.
 Variabel lokal adalah variabel yang hanya dikenali oleh satu bagian program
saja. Nilai data yang tersimpan didalamnya hanya hidup selama bagian
program tersebut dijalankan.

Variabel yang nilai datanya bersifat tetap dan tidak bisa diubah disebut
KONSTANTA. Penulisan deklarasi konstanta di dalam kode program :

Const <nama_kontanta>As<type_data> = <nilai_data>

Contoh : Const tgl_gajian As Date = #25/09/2003#

15
1.2 Contoh Program : Variabel Test

Pengaturan property setiap object-nya adalah sebagai berikut :

Object Properties Value

Form3 Caption Variabel Test
StartUpPosition 2 – CenterScreen
Command1-3 Caption Test 1
Test 2
Test 3
Label1-3 BackColor Palette : <putih>

ketikkan kode programnya sebagai berikut :

Private Sub Command1_Click()

Dim test1 As String

test1 = "nusantara"

[Link] = test1

[Link] = test2

[Link] = test3

End Sub

Private Sub Command2_Click()

16
 test2 = 10

[Link] = test1

[Link] = test2

[Link] = test3

End Sub

Private Sub Command3_Click()

Const test3 As Single = 90.55

[Link] = test1

[Link] = test2

[Link] = test3

End Sub

17
IV. Penggunaan Operator

1.1 Apa itu Operator ?

OPERATOR di dalam bahasa pemrograman bisa diartikan sebagai simbol
yang digunakan untuk melakukan suatu operasi terhadap nilai data. Simbol
operator bisa berupa karakter ataupun kata khusus.

Visual Basic 6 mengenal tiga jenis operator, yaitu :

1. Operator Aritmatika digunakan untuk operasi matematis terhadap nilai

data. Simbol-simbol yang digunakan :

Simbol Operasi Matematis Contoh

^ pemangkatan 5 ^ 2 hasilnya 25
* perkalian 5 * 2 hasilnya 10
/ pembagian (hasil pecahan) 5 / 2 hasilnya 2,5
\ pembagian (hasil bulat) 5 \ 2 hasilnya 2
& Mod
pengabungan sisa pembagian
string 5 Mod 2 hasilnya 1
5 & 2+hasilnyapenjumlahan
52 5 + 2 hasilnya 7
- pengurangan 5 – 2 hasilnya 3
2.

Operator Perbandingan digunakan untuk operasi yang membandingkan nilai

data. Simbol-simbol yang digunakan :

Simbol Operasi Perbandingan Contoh

3. Operator Logika digunakan untuk operasi yang membandingkan suatu perbandingan.
<….. lebih kecil 5 < 2 hasilnya FALSE
> lebih besar 5 > 2 hasilnya TRUE
<= lebih kecil atau sama dengan 5 <= 2 hasilnya FALSE
>= lebih besar atau sama dengan 5 >= 2 hasilnya TRUE
= sama dengan 5 = 2 hasilnya FALSE
<> tidak sama dengan 5 <> 2 hasilnya TRUE
Simbolsimbol yang digunakan :

18
Simbol Operasi Logika Contoh
Or atau (5 < 2) Or (5 > 2) hasilnya TRUE
And dan (5 < 2) And (5 > 2) hasilnya FALSE

19
Latihan 6

Kode Program :

 Tambah

Private Sub Option2_Click()

[Link] = Val([Link]) + Val([Link])
End Sub

 Fungsi (And)

Private Sub Option5_Click()

var1 = [Link]
var2 = [Link]
hasil = var1 & var2
[Link] = hasil
End Sub

 Fungsi (>)

Private Sub Option6_Click()

var1 = val([Link])
var2 = val([Link])
hasil = (var1 > var2)
[Link] = Format(hasil, "True/False")
End Sub

 Bersihkan
[Link] = ""
[Link] = ""
[Link]

20
V. Penggunaan Struktur Kontrol IF dan Switch Case

1.1 Mengenal Struktur Kontrol

Struktur kontrol di dalam bahasa pemrograman adalah perintah dengan
bentuk (struktur) tertentu yang digunakan untuk mengatur (mengontrol) jalannya
program.

Visual Basic 6 mengenal dua jenis struktur kontrol, yaitu :

1. Struktur kontrol keputusan - digunakan untuk memutuskan kode

program mana yang akan dikerjakan berdasarkan suatu kondisi. Akan
dibahas pada bab ini.
2. Struktur kontrol pengulangan - digunakan untuk melakukan
pengulangan kode program. Akan dibahas pada bab selanjutnya.

Ada dua bentuk struktur kontrol keputusan, yaitu :

1. Struktur IF…THEN. Akan dibahas pada bab ini.

2. Struktur SELECT…CASE. Akan dibahas pada bab selanjutnya.

Bentuk penulisan (syntax) struktur IF…THEN :

1. IF <kondisi> THEN <kode program>

Bila <kondisi> bernilai True maka <kode program>akan dikerjakan.

2. IF <kondisi> THEN
<blok kode program 1>

ELSE if

<blok kode program 2>

ELSE

<blok kode program 3>

END IF

21
Bila <kondisi> bernilai True maka <blok kode program 1> akan dikerjakan, tetapi
bila <kondisi> bernilai False maka <blok kode program 2> yang akan dikerjakan.

Latihan 7

Private Sub Command1_Click()

If [Link] = "MARDIRA" Then

[Link] = True

[Link] = False

[Link] = False

Else

MsgBox "Passwordnya Salah !"

[Link] = ""

[Link]

End If

End Sub

22
Latihan 8

Listing Program pada tombol OptionButton sebagai berikut :

Private Sub Option1_Click()

If [Link] = True Then

[Link] = "Desain Grafis"

End If

End Sub

Listing Program pada tombol CheckBox sebagai berikut :

Private Sub Check1_Click()

If [Link] = 1 Then

[Link] = True

Else

[Link] = False

End If

End Sub

Private Sub Check2_Click()

Catatan :

untuk gambar, ambil dari .ico dan pilihan Categorized  Visible : False

23
Latihan 8

Kode Programnya :

24
Private Sub Combo1_Click()

If [Link] = "Aplikasi Perkantoran" Then

[Link] = 450000

ElseIf [Link] = "Desain Grafis" Then

[Link] = 550000

ElseIf [Link] = "Desain Teknik" Then

[Link] = 600000

Else

[Link] = 650000

End If

End Sub

Private Sub Form_Load()

[Link] "Aplikasi Perkantoran"

[Link] "Desain Grafis"

[Link] "Desain Teknik"

[Link] "Web Desain"

End Sub

25
 Latihan 9

Kode Program :

Private Sub Command1_Click()

If [Link] = "" Then
MsgBox "Anda Lupa Mengisi Nama!!!"
[Link]
ElseIf [Link] = True Then
MsgBox "Nama anda "& [Link] & " Anda seorang
pria"
Else
MsgBox "nama anda "& [Link] & " Anda seorang
wanita"
End If
End Sub

26
Latihan 10

Buat program sederhana dengan Mencari nilai

bilanganTERKECIL dan untuk desain formnya lihat dibawah
ini. .”selamat Mencoba”

Buat Listing
Programnya
yaa....Selamat
Bekerja

Listing
program tombol Proses :

Private Sub Command1_Click()

Dim nilai1, nilai2, nilai3, nilai4 As Integer

nilai1 = Val([Link])

nilai2 = Val([Link])

nilai3 = Val([Link])

nilai4 = Val([Link])

If nilai1 < nilai2 And nilai1 < nilai3 And nilai1 <
nilai4 Then

27
 [Link] = nilai1
End if
...

... Teruskan buat codingnya sampai dengan

... If nilai4 <
nilai1 .......dst......
end sub

Catatan : Tombol ULANGI sama seperti RESET di latihan

sebelumnya 

Project 1 : Aplikasi Menghitung Harga Barang

Sekarang, kita akan membuat program harga barang dengan diskon

Menghitung harga barang

Nama Barang pensil 2B

Harga Satuan 2000

Banyaknya Barang 20

Latihan 10

Tampilan programnya seperti ini :

28
Kita dapat menambahkan procedure sendiri gunanya untuk mempersingkat listing
program. CaranyaKetikkan :

sub bersih()

[Link] = ""

[Link] = ""

[Link] = ""

[Link] = ""

[Link] = ""

[Link] = ""

End sub

Kemudian pada saat pengisian listing program pada tombol New cukup ketikkan..

Private Sub Command2_Click()

bersih

[Link]

29
End Sub
Listing program
jika ada diskon
yaa..
Private Sub Option1_Click()

[Link] = Val([Link]) * Val([Link])

Text5 = 0.1 * Val([Link])

End Sub
Listing program jika
tidak ada diskon!
Private Sub Option2_Click()

[Link] = Val([Link]) * Val([Link])

[Link] = Val([Link])

End Sub

Nah ini jangan lupa event

Private Sub Text5_Change() nya...
Isikan di textbox jumlah
[Link] = Val([Link]) * Val([Link])

If [Link] Then

[Link] = 0.1 * Val([Link])

Else

[Link] = 0

End If

[Link] = Val([Link]) - Val([Link])

End Sub

Latihan 11

30
Buatkan program menghitung harga barang dengan ketentuan
sebagai berikut :

COMPUTER MALL

Nama Barang
MONITOR 500000
CPU 1000000
LAPTOP 6000000
Nama Aksesoris
Speaker 500000
Mouse 450000
Printer 800000

Cari diskonnya juga................

Nah, untuk desainnya seperti ini yaa,,

Untuk nama
barang pake
combobox yaa,,

Nah klo u/ nama

aksesoris pake
checkbox..

Listing program untuk Proses

nama = [Link]
Nama merupakan Deklarasi dari
jumlah = Val([Link]) combobox dan jumlah deklarasi
dari textbox

31
If nama = "Monitor" Then

harga = 500000

End If

.
Teruskan kode programnya
.

[Link] = harga

subtotal1 = jumlah * harga

[Link] = subtotal1

diskon1 = Int(jumlah / 4) * harga

speaker = [Link]

jumlah = Val([Link])

If speaker = 1 Then

harga = 500000

End If

[Link] = harga

[Link] = jumlah

subtotal2 = jumlah * harga

[Link] = subtotal2

diskon2 = Int(jumlah / 4) * harga

total = subtotal1 + subtotal2 + subtotal3 + subtotal4

[Link] = total

diskon = diskon1 + diskon2 + diskon3 + diskon4

32
[Link] = diskon

bayar = total - diskon

[Link] = bayar

33
1.2 Struktur Kontrol Select…Case

Bentuk penulisan (syntax) struktur SELECT…CASE :

SELECT CASE <pilihan>

CASE <pilihan 1>
<blok kode program 1>
CASE <pilihan 2>
<blok kode program 2>
CASE <pilihan n>
<blok kode program n>
[CASE ELSE
<blok kode program x>]
END SELECT

Latihan 8

34
Private Sub Combo1_Click()

Select Case Month(x)

Case 1: bln = "Januari"

Case 2: bln = "Februari"

Case 3: bln = "Maret"

Case 4: bln = "April"

Case 5: bln = "Mei"

Case 6: bln = "Juni"

Case 7: bln = "Juli"

Case 8: bln = "Agustus"

Case 9: bln = "September"

Case 11: bln = "Nopember"

Case 12: bln = "Desember"

End Select

[Link] = [Link]

End Sub

Private Sub Form_Load()

[Link] "januari"

35
[Link] "Februari"

End Sub

Penggunaan Struktur Kontrol Pengulangan

1.1 Mengenal Struktur Kontrol
Struktur kontrol di dalam bahasa pemrograman adalah perintah dengan
bentuk (struktur) tertentu yang digunakan untuk mengatur (mengontrol) jalannya
program.
Visual Basic 6 mengenal dua jenis struktur kontrol, yaitu :
1. Struktur kontrol keputusan - digunakan untuk memutuskan kode program
mana yang akan dikerjakan berdasarkan suatu kondisi. Sudah dibahas pada
bab lalu.
2. Struktur kontrol pengulangan - digunakan untuk melakukan pengulangan
kode program. Akan dibahas pada bab ini.
Ada dua bentuk struktur kontrol pengulangan (looping), yaitu :
1. Struktur FOR…NEXT.
2. Struktur DO…LOOP.

1.2 Struktur Kontrol For…Next

Bentuk penulisan (syntax) struktur For…Next :
FOR <pencacah> = <awal> TO <akhir> [STEP <langkah>]
<blok kode program>
NEXT <pencacah>

ƒ <pencacah> adalah variabel (tipe: integer) yang digunakan untuk menyimpan

angka pengulangan.  <awal> adalah nilai awal dari <pencacah>.
ƒ <akhir> adalah nilai akhir dari <pencacah>.
ƒ <langkah> adalah perubahan nilai <pencacah> setiap pengulangan. Sifatnya
optional (boleh ditulis ataupun tidak). Bila tidak ditulis maka nilai <langkah>
adalah 1.

36
1.3 Struktur Kontrol Do…Loop
Bentuk penulisan (syntax) struktur Do…Loop :
1. DO WHILE <kondisi>
<blok kode program>
LOOP
<blok kode program> akan diulang selama<kondisi> bernilai TRUE.
Pengulangan berhenti bila <kondisi> sudah bernilai FALSE.
2. DO UNTIL <kondisi>
<blok kode program>
LOOP
<blok kode program> akan diulang sampai<kondisi> bernilai TRUE. Pengulangan
berhenti bila <kondisi> sudah bernilai TRUE.

Kode Programnya :
Dim i As Integer
Private Sub Command1_Click()
[Link]
For i = 1 To 100

37
 [Link] "Angka " & i
Next i
End Sub

Private Sub Command2_Click()

[Link]
For i = 100 To 1 Step -2
[Link] "Angka " & i
Next i
End Sub
Private Sub Command3_Click()
[Link]
i = Asc("A")
Do Until i > Asc("Z")
[Link] "Huruf " & Chr(i)
i=i+1
Loop
End Sub

38
Private Sub Command4_Click()
[Link]
i = Asc("Z")
Do While i >= Asc("A")
[Link] "Huruf " & Chr(i)
i=i-1
Loop
End Sub

39
Latihan 12

Kode Program :

 Button Close

Private Sub Command1_Click()

Tanya = MsgBox("are you sure?", vbQuestion +

vbOKCancel, "exit")

If Tanya = vbOK Then

End

End If

End Sub

 Button Next

Private Sub Command2_Click()

[Link]

[Link]

End Sub

40
Kode Program:

Form Load

Private Sub Form_Load()

[Link] ("SMP")

[Link] ("SMA")

[Link] ("Diploma")

[Link] ("Sarjana")

[Link] ("Magister")

End Sub

Button Save

Private Sub Command1_Click()

MsgBox "Hello..." & [Link] &" Apa kabar?",

vbInformation, "Hello friend!"

End Sub

41
Button Exit

Private Sub Command1_Click()

MsgBox "Hello..." & [Link] &" Apa kabar?",

vbInformation, "Hello friend!"

End Sub

Button Back

Private Sub Command3_Click()

[Link]

[Link]

End Sub

42
Latihan 13

Kode Program :

Private Sub Command1_Click()

If [Link] = "" Then

MsgBox "Anda Lupa Mengisi Nama!!!"

[Link]

ElseIf [Link] = True Then

MsgBox "Nama anda "& [Link] & " Anda seorang

pria"

Else

MsgBox "nama anda "& [Link] & " Anda seorang

wanita"

End If

End Sub

43
 Latihan 14

Kode Program :

 Timer

Private Sub Timer1_Timer()

[Link] = "transaksi per tgl " & Date & " - " &
Time & Chr(13) & " User:Yeni"

End Sub

 Form Load
Private Sub Form_Load()
[Link] = "RD0001"
[Link] = Date
[Link] ("pepsodent")
[Link] ("Shampo")
[Link] ("Pulpen")
[Link] = Str(0)
[Link] = Str(0)

44
 [Link] = Str(0)
[Link] = Str(0)
[Link] = Str(0)
[Link] = Str(0)
[Link] = False
[Link] = False
End Sub

 Combobox1 (Barang)
Private Sub Combo1_Click()
If [Link] = "pepsodent" Then
[Link] = 5000
ElseIf [Link] = "Shampo" Then
[Link] = 700
Else
[Link] = 1500
End If
End Sub

 Textbox 7 (Jumlah)

Private Sub Text7_Change()

[Link] = Val([Link]) * (Val([Link]))

If [Link] > 100000 Then

[Link] = (20 / 100) * Val([Link])

Else

[Link] = 0

End If

End Sub

 Textbox 6 ( Pembayaran)
Private Sub Text6_Change()
[Link] = Val([Link]) - (Val([Link])-
Val([Link]))
End Sub

45
Kode Program :

 Form Load
Private Sub Form_Click()
Unload Me
[Link]
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)

Unload Me
[Link]
End Sub

46
 Aplikasi Database dengan Kontrol Data & DBGrid

Database merupakan sekumpulan data/informasi seperti kode, nama,

alamat, nomor telepon, atau nota pembelian yang memiliki nota pembeli yang
memiliki skala ukuran data dalam jumlah yang besar.

Membuat Database dengan Visual Data Manager

Visual data manager merupakan program tambahan dari visual basic 6.0
yang digunakan untuk membuat dan mengolah database. Dalam aplikasinya, satu
file database dapat menampung beberapa tabel sekaligus.

Langkah untuk membuat file database dengan Visual Data Manager adalah:

1. Jalankan program VB 6.0

2. Klik menu Add-Ins ► Visual Data Managersehingga tampil jendela VisData
seperti pada gambar berikut :

3. Pada jendela VisData, klik menu file ► New ►Microsoft Access, pilih
Version 7.0 MDB. Selanjutnya, tampil kotak dialog Select Microsoft to
Create seperti gambar berikut :

47
4. Pada bagian Save intentukan lokasi di mana file database tersebut akan anda
simpan. Misalnya, pilih direktori D:\
5. Pada bagian File name, ketik nama file [Link] siswa, kemudian
klik tombol Saveuntuk menyimpan. Selanjutnya, tampilan VisData akan
berubah seperti pada gambar berikut ini:

6. Arahkan pointer mouse pada Properties, klik kanan lalu klik New Table.
7. Pada kolom Table Name, ketik siswa. Kemudian klik tombol Add Field.
8. Pada kolom Name : ketik NIS, type:Text, Size: ketik 6, lalu klik
OKkemudian klik field-field lainnya, sebagai berikut:

48
 NIS Nama Alamat Kelamin Jurusan
220011 Lida [Link] Perempuan Manajemen
220012 Dani Jl. Burangrang Laki-Laki Akuntansi
220013 Randi [Link] 9 Laki-Laki Ekonomi
220014 Aris Nur [Link] 23 Laki-Laki Akuntansi

9. Selanjutnya klik tombol Add-Index, pada kolom Available Fields : klik

Nik, lalu pada kolom NameketikNik. Hilangkan tanda checklist√ pada
kolom checkbox Unique, lalu klik OK setelah itu klik tombol Close.
10. Kemudian klik Tombol Built the Table.

11. Maka akan muncul table “siswa”.

12. Klik Kanan pada table siswa – Pilih Open – Kemudian klik Tombol Add.
13. Masukkan Datanya sesuai data diatas, setelah beres klik tombol Update .

Koneksi Kontrol Data dengan Database

Kontrol Data merupakan sebuah control yang digunakan untuk

menghubungkan aplikasi program dengan database.

DBgrid merupakan kontrol yang digunakan untuk menampilkan data record

dari koneksi kontrol data.

49
50
Latihan 1

Private Sub CmdSimpan_Click()

'Addnew = untukmembuatataumenambah data baru

[Link]

[Link]!nim = [Link]

[Link]!nama = [Link]

[Link]!jurusan = [Link]

[Link]

[Link]

[Link] = ""

[Link] = ""

[Link] = ""

[Link]

End Sub

51
Private Sub CmdBatal_Click()

[Link]

[Link] = ""

[Link] = ""

[Link] = ""

[Link]

End Sub

Private Sub CmdHapus_Click()

[Link]

[Link]

[Link] = ""

[Link] = ""

[Link] = ""

[Link]

End Sub

52
 TextBox

DB Grid

Kontrol Data

Nah, cara mengkoneksikannya lihat properties di bawah ini:

☺Klik pada Kontrol Data dan Isikan

DatabaseName nya pada properties.
Perlu di ingat ya…pengisian
databasename ini harus disesuaikan
pada path (penyimpanannya).

☺ Klik RecordSource isikan DataSiswa.

☺ Klik pada DBGrid dan isikan Data

Sourcenya.

☺ Kemudian pada Textbox isikan data

source dengan data1 dan data fieldnya
sesuai dengan data siswa.

Sekarang kita akan menambahkan sedikit modifikasi desain formnya :

53
Listing program pada tombol tambah

Private Sub Command1_Click()

[Link]

End Sub

Listing program pada tombol simpan

Private Sub Command2_Click()

[Link]

[Link]!NIK = [Link]

[Link]!Nama = [Link]

[Link]!Alamat = [Link]

[Link]!Kelamin = [Link]

[Link]!Jurusan = [Link]

[Link]

[Link] Sub

54
listing program hapus

Private Sub Command3_Click()

[Link]

MsgBox " yakin data akan di hapus,,??", vbInformation +

vbYesNo, "hapus data"

[Link]

End Sub

Listing program Cari

Private Sub Command5_Click()

[Link] "Nik='" + [Link] + "'"

If [Link] Then

MsgBox "Kode tidak ditemukan", vbQuestion, "Cari

Kode"

[Link]

[Link]

End If

End Sub

Listing program Filter

Private Sub Command6_Click()

[Link] "jurusan='" + [Link] + "

' "

If [Link] Then

MsgBox "Jurusan Belum Terdaftar"

Else

55
[Link] = "select * from DataSiswa in 'C:\
[Link]' where jurusan=' " & [Link] & " ' "

End If

End Sub

Listing program untuk Unfilter

Private Sub Command7_Click()

[Link] = "select* from DataSiswa"

[Link]

End Sub

56