EXCEPTION HANDLING

Perintah penanganan kesalahan atau yang lebih dikenal dengan sebutan Exception Handling Perintah ini digunakan untuk menangani kesalahan dalam menjalankan aplikasi, 

Struktur Exception Handling

Struktur Exception Handling atau penanganan kesalahan pada visual basic 2008 antara lain :

Try … Catch … Finally … End Try

 yang berfungsi untuk menangani kesalahan dalam menjalankan aplikasi

Try, Catch, Finally dan Throw.

§  Try : mengidentifikasi blok kode yang berisi kode-kode tertentu yang diharapkan untuk dilaksanakan oleh program atau  aplikasi.

 Catch :Saat terjadi kesalahan padablok Try, maka blok ini akan menangkap kesalahan dengan yang isi nya biasanya menampilkan pesan tertentu  atau menuju ke blok lain untuk mengeksekusi  perintah yang diinginkan. Kata kunci Catch menunjukkan penangkapan pengecualian.

§  Finally : blok ini digunakan untuk menjalankan satu set pernyataan, apakah eksepsidi lempar kan atau tidak. 

Throw : Suatu program melempar pengecualian ketika masalah muncul. Hal ini dilakukan dengan  menggunakan kata kunci Throw.

On Error Resume Next

Merupakan perintah penanganan kesalahan apabila terjadi kesalahan terhadap suatu baris tertentu maka baris tersebut akan di abaikan.

Contoh :

On Error Resume Next
Dim A As Integer
X = TextBox1.Text
TextBox1.Text=”String”
MsgBox(ex.ToString)
MsgBox(“AbaikanKesalahan”)

On Error Goto

Merupakan perintah penanganan kesalahan apabila  terjadi kesalahan terhadap suatu baris tertentu maka perintah akan melompat kebaris   yang dituju akan dijalankan.

Contoh :

On Error GotoPesan
Dim A As Integer
X = TextBox1.Text
TextBox1.Text=”String”
Exit Sub
Pesan :
MsgBox(“AbaikanKesalahan”)

CONTOH PRAKTIKUM:

1.      Buat project baru, dengan nama sendiri Desain Tampilan form seperti gambar berikut ini 

1.      Tambah kan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:

Object	Properties	Nilai
Form1	Name Text	Form1 AplikasiBukaGambar
OpenFileDialog1	Name	ofdBuka
PictureBox1	Name	PcbGambar
Button1	Name Text	BtnBuka Buka
Button2	Name Text	BtnExit Exit

1.      Klik ganda padaTombolBuka, kemudian ketikkode program berikut ini :

If OfdBuka.ShowDialog() = Windows.Forms.DialogResult.OKThen

Try

     PcbGambar.Image = Image.FromFile(OfdBuka.FileName)

Me.Text = "Membuka File " + OfdBuka.FileName

Catch ex As Exception

     MessageBox.Show("File Gagal dibuka", "Error", MessageBoxButtons.OK,
     MessageBoxIcon.Error)

EndTry

EndIf

1.      Klik ganda pada tombol BtnExit, Kemudian ketikkan kode program berikut ini :

Dim Tutup AsString

Tutup = MessageBox.Show("Yakin tutup form ini ?", "Konfirmasi",
        MessageBoxButtons.YesNo,MessageBoxIcon.Question)

If Tutup = MsgBoxResult.YesThen

End

Else

ExitSub

EndIf

1.      Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui icon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging.

     

       maka hasil dari programnya

1.      Tambahkan Formbaru, dengan nama Form2.Desain Tampilan form seperti gambar berikut ini 

1.      Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:

Object	Properties	Nilai
Form1	Name Text	Form1 PenangananKesalahan
TexBox1	Name	TxtAngka
Button1	Name Text	BtnProses Proses

 Double klik pada tombol BtnProses, kemudian ketik kode Program berikut ini 

Try

Dim X AsInteger

            X = TxtAngka.Text

Do

                X = X Mod 2

If X = 0 Then

                    MessageBox.Show("Bilangan Genap","Informasi")

ExitDo

ElseIf X = 1 Then

                    MessageBox.Show("Bilangan Ganjil","Informasi")

ExitDo

EndIf

LoopWhileNot X

Catch ex As Exception

            MsgBox("Salah menginput data / input angka")

Finally

            TxtAngka.Text=””

            TxtAngka.Focus()

EndTry

z         1.      Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui icon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging.

d

h    hasil dari program

d

demikian lah yang bisa saya uraikan semoga bermanfaat"terimakasih"

V

MS. ACCESS & DATABASE CONNECTION

Database   adalah informasi yang tersimpan dan tersusun rapi di dalam suatu tempat, dan dapat dengan mudah dimanipulasi seperti menambah data, menghapus, mencari, mengatur informasi yang kita butuhkan

ADO.Net 3.5 merupakan hasil pengembangan dari ADO.Net 2.x sebelumnya, yang merupakan paket untuk mengakses dan mengelolah sumber data (database) atau sumber data lainnya. Berikut ini komponen .NET Data Provider dari ADO.Net.3.5 

Latihan Database Access dan Koneksi dengan ADO.Net 3.5

1.      Buat Database pada Microsoft Access, dengan struktur sebagai berikut :

1.      Buat project baru, dengan nama Prak8

2.      Klik Tab Data, lalu klik Show data source    Klik Add New Data Source ….

1.      Pilih Database, Klik Next

1.      Klik New Connection, Pilih Microsoft Access Data File

1.      Klik Continue, pada kotak dialog add connection, klik tombol Browse

1.      Pilih database access : dbMhs

2.      Klik tombol  test connection, kemudian klik OK

1.      Klik Next, pada kotak diaolog configuration wizard, klik next

c  

     Beri tanda cek pada table, klik finish

      Kemudian, klik dan drag ke area form Masing-masing field dari table Mhs Dan hasil drag dari masing-masing field dari table mhs seperti gambar berikut ini

Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui icon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging

contoh program terkoneksi ke database

Adapun tahapan atau cara yang dapat kita lakukan dalam membangun sebuah aplikasi database sederhana seperti pada gambar di atas adalah sebagai berikut :

a.       Buat database dengan Microsoft Access dengan format 2003 dengan nama databasePEMBELIAN.MDB dengan struktur tabel berikut ini:

Simpan Tabel di atas dengan nama: BARANG

b.      Keluar dari Microsoft Access, kemudian buka Visual Basic .Net 2008 

a.       Selanjutnya buat modul untuk koneksi database dengan cara klik menu Project>Add Modul, pada kotak dialog klik tombol Add.

b.      Ganti nama modul tersebut dengan nama KoneksiDB.vb, kemudian ketik modul berikut ini:

Imports System.Data

Module KoneksiDB

Public Dataku AsNew OleDb.OleDbConnection

Public Tampil AsNew OleDb.OleDbCommand

Public Tampilkan As OleDb.OleDbDataReader

Public Grid AsNew OleDb.OleDbDataAdapter

Public DS AsNew DataSet

Public Kata AsString

Public Baris AsNew BindingSource

Public Perintah AsNew OleDb.OleDbCommand

PublicSub Koneksi()

Try

                Dataku.Close()

                Dataku.ConnectionString = "Provider=Microsoft.Jet.OleDB.4.0;"& _

"Data Source=D:\DotNet\Database\pembelian.mdb"

                Dataku.Open()

Catch ex As Exception

                MsgBox(ex.ToString())

EndTry

EndSub

EndModule

a.       Kemudian ketik program berkut ini pada Form1 sebagai berikut :

PublicClass Form1

PrivateSub TampilData()

Call Koneksi()

        DS = New DataSet

        Kata = "select * from barang"

        Grid = New OleDb.OleDbDataAdapter(Kata, Dataku)

        Grid.Fill(DS, "barang")

Dim Gridview AsNew DataView(DS.Tables("barang"))

        DataGridView1.DataSource = Gridview

EndSub

PrivateSub Bersih()

        TextBox1.Clear()

        TextBox2.Clear()

        TextBox3.Clear()

        TextBox4.Clear()

EndSub

PrivateSub Mulai()

        TampilData()

        Bersih()

        TextBox1.Focus()

EndSub

PrivateSub Button5_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button5.Click

Me.Close()

EndSub

 PrivateSub Form2_Load(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) HandlesMyBase.Load

        DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect

        DataGridView1.EditMode = DataGridViewEditMode.EditProgrammatically

        Mulai()

EndSub

PrivateSub DataGridView1_CellClick(ByVal sender AsObject, ByVal e AsSystem.Windows.Forms.DataGridViewCellEventArgs) HandlesDataGridView1.CellClick

Try

            TextBox1.Text = DataGridView1.SelectedCells(0).Value

            TextBox2.Text = DataGridView1.SelectedCells(1).Value

            TextBox3.Text = DataGridView1.SelectedCells(2).Value

            TextBox4.Text = DataGridView1.SelectedCells(3).Value

Catch ex As Exception

EndTry

EndSub

PrivateSub Button4_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button4.Click

Call Mulai()

EndSub

PrivateSub Button3_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button3.Click

Dim a AsInteger

        a = MsgBox("Yakin Data Barang dengan Nama = "& TextBox2.Text &" Ingin dihapus?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Pesan Penghapusan")

If a = vbYes Then

Try

Call Koneksi()

                Perintah.Connection = Dataku

                Perintah.CommandType = CommandType.Text

                Perintah.CommandText = "Delete * from barang where kodebrg='"& TextBox1.Text &"'"

                Perintah.ExecuteNonQuery()

Call Mulai()

Catch ex As Exception

                MsgBox(ex.ToString)

EndTry

EndIf

EndSub

PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click

Try

            Perintah.Connection = Dataku

            Perintah.CommandText = CommandType.Text

            Perintah.CommandText = "insert into barang values('"& TextBox1.Text &"','"& TextBox2.Text &"','"& TextBox3.Text &"',"& TextBox4.Text &")"

            Perintah.ExecuteNonQuery()

Call Mulai()

MsgBox("Data Berhasil disimpan", MsgBoxStyle.Information, "Penyimpanan Data(")")

Catch Ex As Exception

            MsgBox("Kode Barang Sudah Ada, Silahkan isi kode barang yang lain")

            TextBox1.Focus()

EndTry

EndSub

PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button2.Click

Try

            Perintah.Connection = Dataku

            Perintah.CommandText = CommandType.Text

            Perintah.CommandText = "update barang set namabrg='"& TextBox2.Text &"', satuan='"& _

            TextBox3.Text &"', harga="& TextBox4.Text &" where kodebrg='"& TextBox1.Text &"'"

            Perintah.ExecuteNonQuery()

Call Mulai()

MsgBox("Data Berhasil diedit", MsgBoxStyle.Information, "Pengeditan Data(")")

Catch ex As Exception

            MsgBox("Data Yang Akan Diedit Belum Tersimpan Dalam Database"& vbCr & _

"Data yang sudah tersimpan yang dapat diedit, simpan dahulu data anda")

            Button1.Focus()

EndTry

EndSub

PrivateSub TextBox1_KeyDown(ByVal sender AsObject, ByVal e AsSystem.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown

If e.KeyCode = Keys.Return Then

            TextBox2.Focus()

EndIf

EndSub

PrivateSub TextBox2_KeyDown(ByVal sender AsObject, ByVal e AsSystem.Windows.Forms.KeyEventArgs) Handles TextBox2.KeyDown

If e.KeyCode = Keys.Return Then

            TextBox3.Focus()

EndIf

EndSub

PrivateSub TextBox3_KeyDown(ByVal sender AsObject, ByVal e AsSystem.Windows.Forms.KeyEventArgs) Handles TextBox3.KeyDown

If e.KeyCode = Keys.Return Then

            TextBox4.Focus()

EndIf

EndSub

PrivateSub TextBox4_KeyDown(ByVal sender AsObject, ByVal e AsSystem.Windows.Forms.KeyEventArgs) Handles TextBox4.KeyDown

If e.KeyCode = Keys.Return Then

            Button1.Focus()

EndIf

EndSub

PrivateSub DataGridView1_KeyUp(ByVal sender AsObject, ByVal e AsSystem.Windows.Forms.KeyEventArgs) Handles DataGridView1.KeyUp

Try

            TextBox1.Text = DataGridView1.SelectedCells(0).Value

            TextBox2.Text = DataGridView1.SelectedCells(1).Value

            TextBox3.Text = DataGridView1.SelectedCells(2).Value

            TextBox4.Text = DataGridView1.SelectedCells(3).Value

Catch ex As Exception

EndTry

EndSub

PrivateSub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles TextBox4.TextChanged

EndSub

EndClass