VB-[dot]-Net

Dasar Pemahaman

Pemahaman dasar visual basic bisa dimulai dari pengenalan terhadap:
1. Objek
2. Properties
3. Event
4. Methode


1. Objek

Objek dapat diartikan kepada sebuah benda dalam hal ini anggap saja objek ada lah textbox, label dan comman button.

2. Properties
Properties adalah sesuatu yang dipunyai oleh objek.
Mis:
textbox mempunyai property nama atau property text

3. Event
Event adalah suatu kejadian terhadap objek pada saat tertentu.

Misal:

Objek command button dapat menerima event klik pada saat pemakai software kita nanti mengklik nya.

4. Method
Method adalah sesuatu yang dapat dilakukan oleh objek.
Misal:
Objek combo dapat menambahkan Item nama-nama hari pada dirinya dengan method Add
contoh:
combobox1.Items.Add (“Senin”)

Coba dengan yang mudah terlebih dahulu.

Misal penggunaan textbox, command button dan label. textbox, command button dan label sebenarnya punya banyak sekali metode dan properti. Untuk mempermudah pemahaman, anda juga tidak perlu mempelajari semua metode,event dan properti yang ada itu hanya akan membuat anda bingung.

Coba pelajari event yang penting-penting saja misalnya event keypress dan event click seiring dengan jalannya waktu anda akan terbiasa dengan event-event yang lainnya.

Kode dibawah ini adalah kode yang dijalankan pda event click command button untuk mengubah property text dari objek textbox:

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
txtNama.Text = "Nama saya VB.Net"
End Sub
End Class

Dibawah ini adalah gambar sampel programnya:

Combobox

Buka project baru
1. double click command button pada toolbox
2. double click combo box pada toolbox atur letaknya pada form
double click pada command button untuk membuat event click seperti di bawah ini:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ComboBox1.Items.Add("senin")
ComboBox1.Items.Add("selasa")
ComboBox1.Items.Add("rabu")
ComboBox1.Items.Add("kamis")
ComboBox1.Items.Add("jum'at")
ComboBox1.Items.Add("sabtu")
ComboBox1.Items.Add("minggu")
End Sub

Jika sudah selesai tekan tombol F5 untuk menjalankan hasilnya
Setelah programnya jalan klik tombol Isi combo lalu klik combobox. Lihat gambar di berikut ini:

Scoope Variabel

Kode pada modul:

Module Module1
Public sNama As String
End Module

Kode pada form:

Public Class Form1
Private sKota As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
sNama = "Visual basic Net"
TextBox1.Text = sNama
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
sKota = "Medan"
TextBox1.Text = sKota
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim sNegara As String = "Indonesia"
TextBox1.Text = sNegara
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
TextBox1.Text = snegara
End Sub
End Class

Di bawah ini adalah gambar demo programnya:

sNegara dinyatakan error Name “snegara” is not declared.
Ini disebabkan variable sNegara yang dinyatakan dengan
Dim sNegara As String = "Indonesia"
yang dinyatakan pada Button3_click hanya berlaku local.
Tidak dapat dibaca dari sub prosedur lain (Button4_click).

ADO.NET

ADO.NET merupakan teknologi akses data terakhir dan terbaru yang disediakan oleh Microsoft.

Objek ADO.NET ini berfungsi menyediakan antar muka pengrograman pada project kita dengan berbagai sumber data. Dengan kata lain pengolahan data pada database dilakukan melalui kode-kode ADO.NET ini, lalu ditampilkan pada aplikasi kita.

Pada umumnya aplikasi-aplikasi memerlukan beberapa bentuk pengakses data. Microsoft ADO.NET adalah teknologi Microsoft yang dapat menyediakan antarmuka pemrograman antara aplikasi yang kita buat dengan berbagai sumber data.
Model Objek ADO.NET menyediakan objek-objek, properti dan methode untuk membuat aplikasi yang dapat mengakses dan memanipulasi data.

Data Consumers

Pemakai data (data consumers) adalah aplikasi-aplikasi yang memakai data yang diekspos oleh penyedia data (data provider).
ADO.NET adalah antarmuka yang dapat diprogram untuk mempergunakan data.

ADO.NET telah dirancang sebagai satu antar muka yang dibutuhkan untuk pengembangan program single dan client/server, multi tier, seperti aplikasi Data Berbasis Windows atau WEB.

Mengenal Objek-objek ADO.NET

Objek ADO.NET menyediakan kemudahan dan kecepatan akses pada semua jenis data.

• Objek Connection
Membuat hubungan antara aplikasi windows kita dan sumber data luar, seperti SQL Server atau Data MS-Access. Objek ini juga menyediakan mekanisme untuk mengadakan hubungan, melakukan pencarian dan melakukan transaksi. Ini adalah objek yang paling tinggi levelnya pada model Objek ADO.NET
• Objek Command
dipergunakan untuk melakukan pencarian, termasuk parameter khsus yang dimasukkan oleh pemakai, mengakses rekaman dati sumber data. Pada umumnya, rekaman-rekaman ini dikembalikan dalam bentuk Objek Table. Objek command dibuat dari tabel basis data, query yang tersimpan atau Query Bahasa Pencarian Terstruktur/Structured Query Language (SQL).
• DataAdapter
Melalui DataAdapter ini kita dapat mengambil data rekaman dengan langsung memberikan perintah SQL maupun melalui objek Command.
• DataSet
Setelah record (rekaman) di hasilkan melalui DataAdapter lalu record tersebut diisikan ke dalam Dataset. Di dalam dataset sebenartnya bisa dimuat lebih dari satu table. Untuk kemudahan kita hanya mengisi DataSet dengan satu buah tabel saja.
• Table
Objek Recordset tidak dipergunakan lagi pada ADO.NET sebagai gantinya kita akan memakai object Table yang terdapat di dalam Dataset untuk mengakses rekaman-rekaman yang dikembalikan dari query SQL. Anda mempergunakan Objek Table untuk menyajikan data kepada pemakai. Objek Table ini berisi rekaman (record) yang dapat langsung dipergunakan untuk megisi gridview atau textbox. Objek table ini terdapat di dalam dataset.

Di bawah ini adalah model objek ADO.NET

Membuat Aplikasi Database dengan VB.NET

Membuat aplikasi database menggunakan Visual Basic Net 2005 dan SQL Server 2005 Express.

Membuat Form (User Interface)
Tarik dua label dan 2 textbox, 2 RadioButton, 1 datagridview dan 6 command button dari toolbox ke form.

Jika anda melakukannya dengan benar seharusnya form nya seperti ini:

Inilah kode lengkapnya:

Imports System.Data.SqlClient
Imports System.Data
Public Class frmKota
Private oConn As New SqlConnection
Private sConn As String = "Data Source=.\SQLEXPRESS;Initial Catalog=Dataku;Integrated Security=True"
Private m_pos As Integer
Private oTbl As New DataTable
Private Sub cmdBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBrowse.Click
Dim oDS As New DataSet
Dim oDa As New SqlDataAdapter("SELECT * FROM KOTA", sConn)
oDa.Fill(oDS) oTbl = oDS.Tables(0)
DataGridView1.DataSource = oTbl
End Sub

Private Sub cmdKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdKeluar.Click
End
End Sub

Private Sub DataGridView1_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.CurrentCellChanged

m_pos = BindingContext(oTbl).Position
txtKodeKota.Text = oTbl.Rows(m_pos).Item(0)
txtNamaKota.Text = oTbl.Rows(m_pos).Item(1)
End Sub

Private Sub cmdTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdTambah.Click

Dim sql As String = "INSERT INTO KOTA VALUES ('" & txtKodeKota.Text & "','" & txtNamaKota.Text & "')"

Dim oCmd As New SqlCommand
oCmd.Connection = oConn
oCmd.CommandText = sql
oCmd.ExecuteNonQuery()
End Sub

Private Sub frmKota_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
oConn.ConnectionString = sConn oConn.Open()
End Sub

Private Sub cmdCari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCari.Click

Dim oDS As New DataSet
Dim oDa As New SqlDataAdapter("SELECT * FROM KOTA WHERE KODE_KOTA='" & txtKodeKota.Text & "'", sConn)

oDa.Fill(oDS) oTbl = oDS.Tables(0)
DataGridView1.DataSource = oTbl
End Sub

Private Sub cmdHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdHapus.Click
Dim sql As String = "DELETE FROM KOTA WHERE KODE_KOTA='" & txtKodeKota.Text & "'"
Dim oCmd As New SqlCommand
oCmd.Connection = oConn
oCmd.CommandText = sql
oCmd.ExecuteNonQuery()
End Sub

Private Sub cmdSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSimpan.Click
Dim sql As String = "UPDATE KOTA SET NAMA_KOTA='" & txtNamaKota.Text & "' WHERE KODE_KOTA='" & txtKodeKota.Text & "'"
Dim oCmd As New SqlCommand
oCmd.Connection = oConn
oCmd.CommandText = sql
oCmd.ExecuteNonQuery()
End Sub

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
Dim oDS As New DataSet
Dim oDa As New SqlDataAdapter("SELECT * FROM KOTA ORDER BY KODE_KOTA ASC", sConn)
oDa.Fill(oDS) oTbl = oDS.Tables(0)
DataGridView1.DataSource = oTbl
End Sub

Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged

Dim oDS As New DataSet
Dim oDa As New SqlDataAdapter("SELECT * FROM KOTA ORDER BY NAMA_KOTA ASC", sConn)
oDa.Fill(oDS) oTbl = oDS.Tables(0)
DataGridView1.DataSource = oTbl
End Sub

End Class

Ini adalah salah satu aksi software yang baru saja kita buat.