Contoh
Aplikasi VB dengan Database Oracle
1
Instalasi Oracle 9i pada Si t Sistem Operasi O i Wi Windows d y Kebutuhan Sistem y CPU dengan prosesor Minimum Frekuensi Clock 500 Mhz. y Memory SDRAM sebesar 26 Mb. y Harddisk H ddi k dengan d ruang kosong k 1,8 1 8 G untuk t kO Oracle l DBMS DBMS. y Perangkat pendukung lain seperti Monitor,keyboard, Mouse dan CD ROM, CD Oracle 9i, dan y Operating Sistem Windows 98 atau yang paling baru.
2
Tablespaces y Tablespaces adalah ruang penyimpanan untuk penggunaan
database. y Dengan kebebasan untuk mengatur kapasitas dan lokasi penyimpanan database, maka akan dengan mempermudah kita dalam melakukan administrasi database. database
3
Kelompok Pernyataan SQL y DDL ( Data Definition Language) y DML ( Data Manipulation Language ) y DCL ( Data Control Language ) y Pengendali P d li transaksi ki
4
DDL ( Data Definition Language) y DDL merupakan kelompok perintah yang berfungsi
untuk mendefinisikan atribut-atribut database,, table,, atribut (kolom), batasan-batasan terhadap suatu atribut serta hubungan antar table.Yang termasuk kelompok DDL ini adalah : y CREATE y ALTER y DROP
indeks 5
untuk menciptakan table ataupun indeks untuk t k mengubah b h struktur t kt table t bl untuk menghapus table ataupun
DML ( Data D t M Manipulation i l ti L Language g g ) y Adalah kelompok perintah yang berfungsi untuk
memanipulasi data, misalnya untuk pengambilan, penyisipan pengubahan b h dan d penghapusan h data. d Y Yang termasukk DML adalah SELECT INSERT DELETE UPDATE
6
memilih data menambah data menghapus data mengubah data
DCL ( Data Control Language ) y Berisi perintah-perintah untuk mngendalikan pengaksesan
data.Yang termasuk DCL adalah : GRANT memberikan kendali pada pengaksesan data. REVOKE mencabut b kemampuan k pengaksesan k data LOCK TABLE mengunci table
7
Sistem Informasi Sederhana y Akan diberikan sebuah contoh system informasi sederhana
tentang Kegiatan Training
8
SISWA
DOSEN
JENIS
9
TRAINING
Tabel yang perlu disiapkan y Untuk sistem informasi ini sebagai aplikasi yang kita
sederhanakan, maka tabel yang perlu disiapkan adalah : y Data Master : SISWA, DOSEN, JENIS y Data Transaksi : TRAINING
10
S i t untuk Script t kP Pembuatan b t Tabel T b l y Tabel SISWA
CREATE TABLE SISWA ( NRP varchar2(10) PRIMARY KEY, NAMA varchar2(30), ALAMAT varchar2(50), NOTELPON varchar2(7)); y Tabel DOSEN
CREATE TABLE DOSEN ( NIP varchar2(10) PRIMARY KEY, KEY NAMA varchar2(30), ALAMAT varchar2(50), NOTELPON varchar2(7)); ( )) 11
S i untuk Script kP Pembuatan b TTabel b l y Tabel JENIS J CREATE TABLE JENIS ( KODE_TRAINING varchar2(3) PRIMARY KEY, TRAINING varchar2(30), h 2(30) JUMLAHJAM number (2), NIP varchar2(10) REFERENCES DOSEN(NIP));
y Tabel TRAINING
12
CREATE TABLE TRAINING ( TANGGAL DATE, DATE KODE_TRAINING varchar2(3) REFERENCES JENIS(KODE_TRAINING), NRP varchar2(10) REFERENCES SISWA(NRP), PRIMARY KEY (TANGGAL,KODE_TRAINING));
Mengimplementasikan R Rancangan g D Database t b y Salah satu program aplikasi yang mendukung
Database Oracle adalah Visual Basic. y Ada beberapa fasilitas untuk membuat lembar kerja kita berhubungan dengan table dalam database yang telah kita buat. Yang sering dipakai ada 2 macam yaitu Oracle Data Control dan Microsoft ADO Data Control.
13
Koneksi dengan O l Data Oracle D t Control C t l (ORADC) y
y
14
Untuk menggunakan koneksi ORADC ini terlebih dahulu menyiapkan atau mengaktifkan komponen obyek ini dengan memilih menu Project >> Components lalu pilihlah komponen g ORADC, Oracle Data Control untuk koneksi database dengan Microsoft DataBound Grid untuk tabel grid dengan koneksi ADO, dan Microsoft DataBound List untuk obyek list dengan koneksi ORADC. Properti yang harus diisikan dalam obyek koneksi database dengan ORADC ini antara lain: y Database, diisi dengan nama hostname dari server database O l yang di Oracle digunakan. k y Connection, diisi dengan nama user dan password yang dipisahkan dengan tanda garis miring. y R Record d Source, S dii diisii dengan d perintah i h SQL untukk memilih ilih suatu query atau tabel.
E Entry Data D Mahasiswa M h i y y
Buat form entry dengan menempatkan component dan object seperti berikut : Dengan nama component sebagai berikut : y y y y y y y y
15
Textbox Textbox Textbox Textbox Dbgrid Oradc oradc1 CommandButton CommandButton
txtnrp txtnama txtalamat txttelpon dbgrid1 cmdsimpan cmdhapus
E Entry Data D Mahasiswa M h i
16
Koneksi ke Database Oracle pada k komponen VB y
Isi property ORADC sebagai berikut : y y y
y
Hubungkan Dbgrid dengan oracle data control : y
17
Connect = baru/rahasia DatabaseName = orcl RecordSource = select * from siswa isi DataSource dengan ORADC1.
Prosedur Pencarian data NRP siswa y
18
Contoh procedure pencarian data NRP, dengan event keypress enter sebagai berikut : Private Sub txtnrp_KeyPress(KeyAscii As Integer) If KeyAscii y = 13 Then sql = "select * from siswa where nrp ='"& txtnrp.Text & "'" ORADC1.RecordSource = sql ORADC1.Refresh If ORADC1.Recordset.recordcount > 0 Then MsgBo ("Data sudah ada dalam table") MsgBox txtnama.Text = ORADC1.Recordset!nama txtalamat.Text = ORADC1.Recordset!alamat txttelpon.Text = ORADC1.Recordset!notelpon Else MsgBox ("Data belum ada") sql = "select * from siswa" ORADC1.RecordSource = sql ORADC1.Refresh txtnama.Text T = "" txtalamat.Text = "" txttelpon.Text = "" End If End If End Sub
Procedure Simpan dan Edit Private Sub cmdsimpan_Click() sql = "select * from siswa where nrp ='" & txtnrp.Text & "'" ORADC1.RecordSource = sql ORADC1.Refresh
19
If ORADC1 ORADC1.Recordset.recordcount R d d > 0 Th Then sql = "update siswa set nama='" & txtnama.Text & "',alamat='" & txtalamat.Text & "', notelpon = '" & txttelpon.Text & "' where nrp='" & txtnrp.Text & "'" ORADC1.Database.executesql q sql q MsgBox ("Sudah ada") Else sql = "insert into siswa(nrp,nama,alamat,notelpon) values ('" & txtnrp.Text & "','" & txtnama Text & "','" & txtalamat txtnama.Text txtalamat.Text Text & "','" & txttelpon.Text txttelpon Text & "')" ) ORADC1.Database.executesql sql MsgBox ("Data baru") End If ORADC1.Refresh MsgBox ("Data telah Disimpan") End Sub
Procedure Menghapus Private Sub cmdhapus_Click() sql = "select * from siswa where nrp ='" & txtnrp.Text & "'" ORADC1 R ORADC1.RecordSource dS = sqll ORADC1.Refresh If ORADC1.Recordset.recordcount > 0 Then sql = "delete from siswa where nrp='" & txtnrp.Text & "'" ORADC1 Database executesql sql ORADC1.Database.executesql ORADC1.Refresh msgbox("Data telah terhapus") Else l MsgBox ("Cek kembali mahasiswa anda") End If End Sub 20
