MODUL 2 KONEKSI DATA BASE
Visual BasicMerupakan bahasa pemrograman berbasis visual yang digunakan sebagai Grafik user Interface, diantaranya : •
Dipakai dalam membuat program aplikasi berbasis windows.
•
Dipakai dalam membuat objek-objek pembantu program seperti fasilitas help, kontrol Active X, aplikasi internet dan sebagainya.
•
Digunakan untuk menguji program(debugging) dan menghasilkan program akhir EXE yang bersifat executable.
Visual basic menyediakan tiga macam interface yang digunakan untuk merancang aplikasi yaitu: MDI (Multiple Document Interface), SDI (Single Document Interface) dan Explorer Document Interface.
Gambar 1.1 IDE pada Visual Basic 6.0 Fasilitas terbaru VB 6.0
Beberapa fasilitas terbaru dari Visual basic diantaranya: 1. Menggunakan platform Developer Studio Fasilitas memiliki tampilan dan sarana yang sama dengan visual C++ dan J++. 2. Sarana Akses Data Sarana akses data Visual basic 6.0 jauh lebih cepat
dan andal untuk membuat
aplikasi database yang berkemampuan tinggi. Beberapa fasilitas database antara lain ADO (ActiveX Data Object), data binding dinamis, OLE DB oada interface COM(Component Object Model), Query Designer dan Database Desagner, Setup
1
Wizard dan Data Report, Data Source dan Window data view, SQL Editor, Kontrol FlexDrid, Data Repeater dan lain-lain. 3. Memiliki Compiler Menghasilkan
file-file
Executable
yang
lebih
cepat
dan
lebih
efisien
dari
sebelumnya. 4. ActiveX dan Internet Digunakan untuk merancang aplikasi sehingga mampu mengakses window browser Internet dan intranet. Fasilitas Internet yang disediakan meliputi aplikasi IIS, aplikasi DHTML, Web Publishing wizard dan lain-lain. 5. Sarana Wizard Merupakan sarana untuk mempermudah dalam pembuatan aplikasi dengan mengotomatisasikan tugas-tugas tertentu. Beberapa wizard yang telah dikembangkan Visual Basic 6.0 antara lain Setup wizard, Data Form Wizard, ToolBar Wizard, Aplikasi Wizard, Class Builder Utility, Data Object Wizard dan Add-In-Wizard. 6. Koleksi Kontrol Baru Beberapa kontrol baru antara lain ADO Data, Flat ScrollBar, DataGrid, Hierarchical FlexGrid, CoolBar, DataList, DataCombo, DataRepeater, DateTimePicker, dan Image Combo. 7. Memiliki beberapa versi Visual Basic 6.0 memiliki beberapa versi/edisi yang disesuaikan dengan kebutuhan pemakainya. Antara lain: •
Standart Edition(Learning Edition)
•
Profesional Edition Dibutuhkan oleh para programmer profesional, misalnya tambahan kontrolkontrol program, pemrograman internet, compiler untuk membuat file help dan sarana pengembangan database.
•
Enterface Edition Dikembangkan bagi para programmer yang ingin mengembangkan aplikasi Remote Component atau aplikasi Client/server.
Merancang File Database
a. Membuat database dalam VisualDataMenejer pd Visual Basic 6.0 Pd Ms- Access b. Merancang Tabel
2
c. Menentukan Field Serta Index d. Meng-input Data A. Membuat Database dalam VisualDataManejer pd VB 6.0 Pada Ms-Access Database dibedakan menjadi dua kelompok, yaitu back-end dan front-end. Back-end adalah yang menyusun, menyimpan dan mengamankan database. Sedangkan Frontend adalah aplikasi yang berhubungan langsung dengan para pemakai program. Pada bagian ini dapat diatur tatanan tampilan, mulai dari ListBox,
ComboBox ataupun
Navigator. Kontrol-kontrol untuk database tersebut memiliki ciri khusus, yaitu kemampuan databound atau kemampuan mengakses database. Prosesnya sama dengan proses perancangan form. ) Visual Data Manager Untuk menyusun back-end digunakan Visual Data Manager, yaitu fasilitas yang disediakan VB6 untuk menghasilkan tabel-tabel. Untuk mengaktifkan fasilitas ini dari menu Add-Ins, klik perintah Visual Data Manager.
Gambar 1.2 VisData (Visual Data Manajer)
3
Setelah itu akan tampil window Visual Data Manager seperti di bawah ini :
Langkah selanjutnya adalah, sebagai berikut : 1. Aktifkan perintah File Æ New… Æ Microsoft Access Æ Version 7.0 MDB. Seperti dibawah ini :
2. Setelah di klik, maka akan tampil kotak dialog Select Microsoft Access Database to Create, Seperti terlihat pd windows hal 2 berikut. Pada kotak File Name isikan dengan nama file database yang diinginkan, misalnya DT_MHS. Kemudian tentukan
4
letak folder penyimpanannya. Terakhir klik tombol Save untuk menyimpan file yang baru di buat tersebut.
3. Setelah tombol Save di klik, maka dilayar akan tampil :
4. Sekarang selesailah sdh membuat database dgn Ms Access, yg bernama DT_MHS.mdb yg disimpan pada folder My Document, tapi database tsb msh kosong. langkah selanjutnya membuat tabel2 dlm database tsb.
5
● Merancang Tabel Tabel adalah unsur utama di dalam suatu database. Untuk membuat tabel dapat langsung pada tampilan database diatas yang msh terbuka. Tapi apabila sdh tertutup database diatas, maka kita mulai dari Visual Data Manager lagi. Langkahnya adalah sebagai berikut :
1.
Aktifkan Visual Data Manager dari menu Add-Ins.
2.
Aktifkan perintah File ÆOpen database Æ Microsoft Access. Seperti terlihat dibawah ini :
3. Setelah diclik, Microsoft AccessTampil kotak dialog Open Microsoft Access Database. Klik file database yang diinginkan, misalnya file yang baru di susun diatas, yaitu DT_MHS.mdb. Kemudian klik Open. Maka tampilannya adalah :
4. Pada Window Database diatas, klik kanan mouse pd Properties, tampil Pop-up Menu. Klik perintah New-Table, seperti terlihat pd tampilan dibwh ini :
6
5. Setelah di klik, akan tampil Table Structure yang dapat di gunakan untuk membuat tabel baru. Isikan nama tabel pada kotak Table Name. Misalkan “Biodata”, seperti tampak dibwh ini :
Gambar 1.5. Struktur tabel pada Visdata
7
● Menentukan Field Serta field Index
Misal Structure table : BIODATA diatas, mempunyai field2 seperti berikut : Nama Field
Type
Size
NPM
Text
10
NAMA
Text
15
ALAMAT
Text
25
Maka utk membangun field2 dari structure table BIODATA ini, adalah, mulai dari tampilan langkah lima diatas, yaitu : Pada tampilan, struktur table diatas, yg telah diisikan nama tabelnya pada kotak Table Name. yaitu : “Biodata”, langkah selanjutnya adalah : 1. Click tombol Add Field, maka akan tampil kotak dialog Add Field sebagai berikut,
tempat mengetikan nama2 fieldnya : 2. Pada kotak Name, isikan nama field pertama, yaitu NPM, kemudian pilih typenya pada kotak Type yaitu Text dgn menclick tanda combo panah kebwh. Selanjutnya isikan size nya yaitu 10 pada kotak Size. Seperti terlihat pd tampilan dibawah ini :
8
3. Kemudian klik OK. Nama field baru tersebut dikirimkan ke kotak dialog Table Structure dan kotak dialog Add Field kosong kembali seperti tampilan langkah pertama dan siap menerima nama field baru lagi. 4. Ulangi langkah No. 2 dan 3 untuk nama field : Nama dan Alamat 5. Tutuplah kotak dialog Add Field, klik Close. Hasil pengisian field pada table Structure adalah seperti dibawah ini :
9
Gambar 1.7. Struktur Tabel
6. Langkah selanjutnya adalah membetuk field indek, utk dijadikan field kunci, Click tombol Add Index. Akan tampil kotak dialog index, sbb :
Pada tampilan ini pilih dan clik field NPM, utk dijadikan kunci, karena nilai data NPM Uniq, tidak ada yg sama satu mhs pun. Kemudian ditampilkan pada kotak Indexed Field. Kemudian ketikan nama indexnya pada Kotak Name, yaitu NPM_NDX. Dan click Tombol OK
10
7. Tutuplah kotak dialog Add Index, klik Close. Akan kembali ke kotan pengisian field pada table Structure adalah seperti dibawah ini :
8. Langkah selanjutnya adalah mengklik tombol Build the Table. Terbentuklah sebuah tabel bernama Biodata, ditunjukkan pada Database Window di Visual Data Manager.
11
Meng - Input Data
Untuk mengisi data pada tabel yang baru dibuat, dpt dilalukan 2 cara. )Lewat kotak dialog Dynaset Access. )Lewat interface Front End yaitu Form pd VB )Lewat kotak dialog Dynaset Access, Langkahnya adalah sebagai berikut : 1. Pada Database Window, klik ganda nama tabel, yaitu Biodata. Tampil kotak
Dialog Dynaset untuk pengisian data. 2. Klik tombol Add lalu isikan data record pertama pada kotak isian yang bersesuaian, yaitu : NPM
: 12293876
Nama : Riandhika Alamat : Bekasi Kemudian klik tombol Update, dan kemudian untuk menambah data baru klik tombol Add, kotak dialog Dynaset siap disi record baru lagi. 3. Ulangi langkah ke 2 untuk data-data di bawah ini : NPM
: 31199098
Nama
: Riani
Alamat : Jakarta
NPM
: 21200123
Nama
: Fajar
Alamat : Bogor
12
4. record-record data yang telah kita masukkan tersebut dapat ditampilkan dengan
mengklik tombol kiri kanan slider. Lihat gambar 5. Untuk menutup Dynaset, klik tombol Close. )Lewat interface Front End yaitu Form pd VB Setelah Back-end selesai dikerjakan, selanjutnya kita mulai menyusun Front-end. Langkah-langkahnya adalah sebagai berikut : 1. Tutuplah Visual Data Manager. 2. Pada form1 buatlah tampilan form berikut ini. Lihat gambar :
3. Atur properti sebagai berikut :
13
Objek
Properti
Pengaturan
Form1
Caption
Data Mahasiswa
Label1
Caption
NPM
Font
Tahoma, Regular, 14
Caption
Nama
Font
Tahoma, Regular, 14
Caption
Alamat
Font
Tahoma, Regular 14
Connect
Access
DatabaseNam
C:\My Documents\DT_MHS.mdb
e
Biodata
Label2
Label3
Data1
RecordSource Text1
Text2
Text3
Command1
Text
DataSource
Data1
DataField
NPM
Text
DataSource
Data1
DataField
Nama
Text
DataSource
Data1
DataField
Alamat
Caption
E&xit
4. Kemudian buat code/program berikut pada window code :
Private Sub Command1_Click() End End Sub
5. Jalankan aplikasi dengan menekan tombol F5
14
Hasil : 6. Untuk menampilkan record lainnya, klik tombol kiri kanan Data1.
Agar bisa dilakukan penghapusan Delete, Update/Add, Edit untuk memperbaiki data, refresh utk menyempurnakan data, posisi/letak record kembali (atau Penyegaran data dg masuknya perubahan baru), maka langkahnya adalah : "Tambahkan beberapa CommandButton pd disain form data Mahasiswa tersebut untuk membuat tombol-tombol Add, Edit, Delete, yg hasilnya tampak seperti dibawah ini :
15
Dan setting propertie control data1 - nya : Properti
Setting
Name
RecMhs
Caption
Data1
Connect
Access
DatabaseName
C:\VB6\Mhs.mdb
EOFAction
AddNew
RecordsetType
Dynaset
RecordSource
Biodata.TBL
" Kemudian buatkan code/program berikut : Script / coding dari FORM ini adalah : Private Sub cmdADD_Click() RecMhs.Recordset.AddNew Text1.setFocus End Sub Private Sub cmdSAVE_Click() RecMhs.Refresh RecMhs.Recordset.MoveLast End Sub
Private Sub cmdEDIT_Click() RecMhs.Recordset.Edit
16
End Sub Private Sub cmdDELETE_Click() RecMhs.Recordset.Delete RecMhs.Recordset.MoveNext End Sub
Private Sub cmdCancel_Click() TEXT1.TEXT= ” “ TEXT2.TEXT= ” “ TEXT3.TEXT= ” “ TEXT1.SETFOCUS End Sub
Private Sub cmdQuit_Click() End End Sub
C. Spesifikasi Hardware dan Software Hardware : •
Prosesor : Pentium 3 600Mhz
•
Memori
: 128 MB RAM
•
Hardisk
: minimum 10GB, ada ruang kosong min 2GB
•
Monitor
: min resolusi 1024x768 dan 256 color
•
Keyboard dan mouse
Sistem Operasi: •
Microsoft Windows 95
•
Microsoft Windows 2000
•
Microsoft Windows Xp Sp1,Sp2, dll
•
Microsoft Windows Vista
17
D. Materi Praktikum 1. Pengertian ADO Cara Microsoft mengakses data dari banyak provider disebut Universal Data Access (UDA), dimana tujuannya adalah agar berbagai tipe data dari banyak aplikasi seperti local network, file teks, email, hubungan database, intranet, dan internet pada beberapa komponen dapat diakses. ADO sendiri suatu model database terakhir dan terbaru saat yang memiliki fungsi sebagai alat untuk menjalankan UDA, serta bertujuan agar pemrograman visual mengikuti standar OLEDB dalam membuat objek database.
2. ToolBar Merupakan sekumpulan tombol yang mewakili suatu perintah tertentu pada Visual Basic. ToolBar membantu mempercepat akses perintah, komponen toolbar yaitu: Menu Editor, Add Form, Save Project, Start, End, Project Explorer, Properti Windows, Toolbox, Data View Window, dll.
F. Latihan 1. Buatlah database barang dgn nama BRG.MDB dan isilah dgn table2 berikut ini : Tabel Splier , field2 nya ketentuan sbb : NAMA FIELD
TYPE
PANJANG
Nosup
Text
10
Nmsup
Text
15
Alamatsup
Text
25
Telpsup
Text
10
Ptsup
Text
9
‘Index berdasarkan Nosup, nama-index nya : Nosupndx
18
TabelCustomer field2 nya ketentuan sebagai berikut : NAMA FIELD
TYPE
PANJANG
Nocust
Text
10
Nmcust
Text
15
Alamatcust
Text
25
Telpcust
Text
10
Ptcust
Text
9
Tabel Barang
‘Index berdasarkan Nocust, nama-index nya : Nocustndx
field2 nya ketentuan sebagai berikut :
NAMA FIELD
TYPE
PANJANG
Kdbrg
Text
10
NmBrg
Text
15
HrgSatuan
Currency
Stockbrg
Number
Ptsup
Text
‘Index berdasarkan KdBrg, nama-index nya : KDBrgndx
9
Tabel Pembelian field2 nya ketentuan sebagai berikut : NAMA FIELD TYPE
PANJANG
Nosp
Text
10
KdBrg
Text
15
HrgSatuan
Currency
JmlBrg
Number
‘Index berdasarkan NoSup, nama-index nya : NoSupndx
Tglpembelian Date
Tabel Penjualan field2 nya ketentuan sebagai berikut : NAMA FIELD
TYPE
PANJANG
Nocust
Text
10
KdBrg
Text
15
Hrgsatuan
Currency
Jumlhterjual
Number
Tglterjual
Date
‘Index berdasarkan NoCust, nama-index nya : NoCustndx
19
2. Buatlah database Pegawai dgn nama Pegawai.MDB dan isilah dgn table2 berikut ini : Tabel Biodata, field2 nya ketentuan sbb : NAMA FIELD
TYPE
PANJANG
Nip
Text
10
Nama
Text
15
Alamat
Text
25
Golongan
Text
1
Bagian
Text
9
‘Index berdasarkan Nip nama-index nya : Nipndx
Tabel Gaji field2 nya ketentuan sbb : NAMA FIELD
TYPE
PANJANG
Golongan
Text
1
Gj/hari
Currency
Gj/jam
Currency
Lembur/jam
Curency
3. Diberikan
DataBase
‘Index berdasarkan Golongan, nama-index nya : Golndx
Mhs yang bernama Mhs..mdb
dan memiliki tabel yang
bernama : TBLNILAI dan Recordnya terdiri dari field-field, berikut : Nama Field
Type
NIM
Text
10
NAMA
Text
15
NILAI-1
Single
NILAI-2
Single
Panjang ‘Index berdasarkan NIM, nama-index nya : NIMndx
5 5
TBLKLS dan Recordnya terdiri dari field-field : Nama Field Type NIM
Text
Panjang 8
‘Index berdasarkan NIM,
JURUSAN
Text
15
ProgStudy
Text
3
Kelas
Text
6
nama-index : NPMndx
20
4. Buatlah database Donatur PantiAsuhan nama PANTIASUHAN01.MDB dan isilah dgn table2 berikut ini :
Tabel anak2AP , field2 nya ketentuan sbb : NAMA FIELD
TYPE
PANJANG
NoAP
Text
10
NmAP
Text
15
TglLahir
Date
JenisKelamin
Text
10
Suku
Text
9
‘Index berdasarkan NoAp, nama-index nya : NoApndx
Tabel Donatur RCTI field2 nya ketentuan sbb : NAMA FIELD
TYPE
PANJANG
NoIDDonatur
Text
10
NmDonator
Text
15
Alamatdonatur Text
25
Telpdonatur
10
Text
‘Index berdasarkan Nocust, nama-index nya : Nocustndx
Tabel Donatur MetroTv. field2 nya ketentuan sbb : NAMA FIELD
TYPE
PANJANG
NoIDDonatur
Text
10
NmDonator
Text
15
‘Index berdasarkan KdBrg, nama-index nya : KDBrgndx
Alamatdonatur Currency Telpdonatur
Number
21