Tags Posts tagged with "vb.net"

vb.net

0 35

Pada posting kali ini saya akan membahas bagaimana cara melakukan proses crud(create, read, update, delete) tabel database MySql dengan VB.net. Sebagai percobaan saya membuat project aplikasi sederhana untuk mempraktekan proses insert, update, delete di VB.net dengan database mysql. Untuk koneksi VB.net silahkan baca petunjuknya di postingan saya koneksi VB.net dengan mysql. Kemudian buat database mysql dan tabelnya. Kali ini saya membuat database bernama phonebook, dengan tabel phonebook. Tabel phonebook terdiri dari field id, nomor, nama, dan email

Setelah database dibuat, kita memulai membuat project baru di vb.net. Beri nama project phonebook. Lakukan koneksi vb.net dengan mysql. Kemudian mulai mendesign form vb.net. Design form yang saya buat adalah seperti berikut ini:


Untuk memudahkan proses coding, saya merubah nama textbox dan button. Kemudian kita dapat memulai coding. Kita deklarasikan variable yang akan kita gunakan untuk menampung data dari database. Source nya sebagai berikut:

Public strconn As String = "server=localhost; uid=root; pwd=; database=phonebook;"
'buat objek adapter
Dim myadp As MySqlDataAdapter
'buat data tabel (agar data disusun tabel)
Dim dt As New DataTable
'buat perintah query disini
Public conn As New MySqlConnection(strconn)

Kemudian kita membuat event onLoad yang akan kita beri code berikut:

'jika koneksi tertutup
If conn.State = ConnectionState.Closed Then
Try
'buka koneksi
conn.Open()
'tangkap error mysql, jika ada ( ini hanya sebagian)
Catch mex As MySqlException
If mex.Number = 0 Then
MsgBox("Tidak bisa connect ke db", "no server")
ElseIf mex.Number = 1045 Then
MsgBox("Salah user/pass mysql", "akses ditolak")
Else
MsgBox(mex.Number & mex.Message)
End If
'tangkap error umum
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
Call read_data()

Untuk function read_data() kita gunakan untuk membaca data dari database. isi source codenya adalah sebagai berikut:


Private Sub read_data()
Dim query As String
query = "select * from phonebook"
Try
'jalankan perintah baca
myadp = New MySqlDataAdapter(query, conn)
'isi data tabel
dt.Clear()
myadp.Fill(dt)
'pindahkan isi data tabel ke dgv_data
Dgv_data.DataSource = dt
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

 

Setelah ini kita dapat memasukan source code untuk melakukan insert, update, dan delete. source code insert adalah sebagai berikut:

If btntambah.Text = "simpan" Then
Dim mycmd As New MySqlCommand("insert into phonebook (id,nomorHp,nama,email) values ('','" & txtnumber.Text & "','" & txtnama.Text & "','" & txtemail.Text & "')", conn)
Try
If mycmd.ExecuteNonQuery() = 1 Then
MsgBox("insert data berhasil")
txtnumber.Text = ""
txtnama.Text = ""
txtemail.Text = ""

txtnumber.Enabled = False
txtnama.Enabled = False
txtemail.Enabled = False

btnhapus.Enabled = True
btnubah.Enabled = True
btntambah.Text = “tambah”
Call read_data()
Exit Sub
End If

Untuk source code hapus, adalah sebagai berikut:

Dim mycmd As New MySqlCommand("delete from phonebook where id='" & txtidku.Text & "'", conn)
Try
If mycmd.ExecuteNonQuery() = 1 Then
MsgBox("Hapus data berhasil")
Call read_data()
End If
Catch ex As MySqlException
MsgBox("insert data gagal")
End Try
Else
MsgBox("Pilih data yang ingin dihapus")

terakhir untuk proses update record database, dapat menggunakan source code berikut:


If btnubah.Text = "simpan" Then
Dim mycmd As New MySqlCommand("update phonebook set nomorHp='" & txtnumber.Text & "', nama='" & txtnama.Text & "',email='" & txtemail.Text & "' where id='" & txtidku.Text & "'", conn)
Try
If mycmd.ExecuteNonQuery() = 1 Then
MsgBox("update data berhasil")
txtnumber.Text = ""
txtnama.Text = ""
txtemail.Text = ""

txtnumber.Enabled = False
txtnama.Enabled = False
txtemail.Enabled = False

btnhapus.Enabled = True
btnubah.Enabled = True
btnubah.Text = “Ubah”
Call read_data()
Exit Sub
End If

Catch ex As MySqlException
MsgBox(“update data gagal”)
End Try
End If

Silahkan coba compile dan jalankan aplikasinya. Aplikasi ini masih sederhana dan jauh dari sempurna, namun sudah mencukupi untuk melakukan uji coba sederhana. Saran dan masukan sangat diharapkan untuk menyempurnakan panduan ini. Semoga bermanfaat.

Link source code:

download

 

0 10

Lanjutan tutorial VB.net kali ini berjudul tutorial VB.net – dataset membahas penggunaan dataset. Dataset berisi salinan dari data yang kita ambil dari sql statement. Kita dapat mengkombinasikan dataset dengan SqlDataAdapter. SqlDataAdapter mengizinkan kita untuk mengumpulkan data berupa tabel dalam dataset. Kita dapat menggunakan metho dari SqlDataAdapter untuk menampung data di dataset. Kali ini saya membuat sebuah button dengan events click. Didalam events click tersebut saya memasukan source code dibawah ini untuk melakukan pengujian penggunaan dataset.

Dim connetionString As String
Dim connection As SqlConnection
Dim command As SqlCommand
Dim adapter As New SqlDataAdapter
Dim ds As New DataSet
Dim i As Integer
Dim sql As String

connetionString = “Data Source=ServerName;Initial Catalog=DatabaseName;User ID=UserName;Password=Password”
sql = “SQL anda”

connection = New SqlConnection(connetionString)

Try
connection.Open()
command = New SqlCommand(sql, connection)
adapter.SelectCommand = command
adapter.Fill(ds)
adapter.Dispose()
command.Dispose()
connection.Close()

For i = 0 To ds.Tables(0).Rows.Count – 1
MsgBox(ds.Tables(0).Rows(i).Item(0) & ” — ” & ds.Tables(0).Rows(i).Item(1))
Next

Catch ex As Exception
MsgBox(“Koneksi database gagal ! “)
End Try

Untuk program yang anda coba silahkan melakukan perubahan pada baris berikut ini.
connetionString = “Data Source=ServerName;Initial Catalog=DatabaseName;User ID=UserName;Password=Password”
sql = “SQL anda”

Jika sudah kita dapat menjalankan aplikasi dan melakukan penekan pada button. Saat dijalankan apabila koneksi berhasil akan menampilkan messageBok dengan isi tabel beserta recordnya.
Demikian tutorial dataset di VB.net semoga bermanfaat.

0 16

Pada artikel Tutorial VB.net – queue ini saya akan berbagi tentang cara penggunaan queue dalam vb.net. Queue senndiri berarti antrian, sehingga menggunakan bentuk FIFO (first in first out), dan merupakan kebalikan dari stack. Method yang biasa digunakan dalam queue adalah sbb:
Enqueue : Menambah item pada Queue
Syntax : Stack.Enqueue(Object)
Object : Item yang ditambahkan
Dequeue : Menghapus item paling awal dalam queue.
Syntax : Stack.Dequeue()
Peek : Mendapat referensi pada item paling awal.
Syntax : Stack.Peek()

Sebagai percobaan saya membuat project sederhana dengan sebuah button dengan events click. Didalam events click tersebut saya menambahkan source code berikut ini.

Dim queueList As New Queue
queueList.Enqueue("Sun")
queueList.Enqueue("Mon")
queueList.Enqueue("Tue")
queueList.Enqueue("Wed")
queueList.Enqueue("Thu")
queueList.Enqueue("fri")
queueList.Enqueue("Sat")
MsgBox(queueList.Dequeue())
MsgBox(queueList.Peek())
If queueList.Contains("Sun") Then
MsgBox("Ditemukan Sun ")
Else
MsgBox("Tidak ditemukan Sun ")
End If

Ketika program dijalankan akan menambahkan tujuh item kedalam variable queueList, kemudian menghapus item paling awal. Kemudaian pada method peek() untuk menampilkan saja tanpa menghapus. Terakhir adalah melakukan pengecekan item “Sun” dalam queue.

Demikian penejelasan singkat penggunaan queue, semoga bermanfaat.

0 8

Tutorial VB.net – Stack

stack adalah salah satu fungsi pada pemrograman vb.net yang dapat digunakan untuk menampung data/item pada suatu variable. Dalam vb.net dikenal dengan istilah collections. Stack secara harfiah berarti tumpukan, sehingga menngunakan sistem LIFO (last in first out). Beberapa perintah yang digunakan adalah push dan pull. Kali ini saya membuat sebuah button dan memberikan events click. Dalam button tersebut saya menambahkan source code berikut:
Dim stack As New Stack
stackTable.Push("Sun")
stackTable.Push("Mon")
stackTable.Push("Tue")
stackTable.Push("Wed")
stackTable.Push("Thu")
stackTable.Push("Fri")
stackTable.Push("Sat")
If stack.Contains("Wed") Then
MsgBox(stack.Pop())
Else
MsgBox("not exist")
End If

methode yang sering digunakan adalah sbb:
Push : menambahkan item pada stack
Syntax : Stack.Push(Object)
Object : Item yang ditambahkan
Pop : Mengembalikan item yang terakhir kali dimasukan dalam stack
Syntax : Stack.Pop()
Return : Obyek terakhir dalam stack
Contains : Untuk mencek apakah item tertentu terdapat pada stack
Syntax : Stack.Contains(Object)
Object : Object yang dicari.

demikian share pengetahuan tentang stack di VB.net. semoga bermanfaat

0 13

Tutorial vb.net array
Pada seri tutorial VB.net kali ini saya akan berbagi tentang cara penggunaan array di VB.net. Kali ini saya menggunakan VB.net 2010. Saya membuat sebuah button dan menambahkan Events click. Kemudian masukan source code berikut:

Dim i As Integer
Dim ItemList As New ArrayList()
ItemList.Add("Item1")
ItemList.Add("Item2")
ItemList.Add("Item3")

MsgBox(“Menampilkan isi array”)
For i = 0 To ItemList.Count – 1
MsgBox(ItemList.Item(i))
Next
‘insert
ItemList.Insert(2, “Item6″)
‘sort itemms
ItemList.Sort()
‘remove an item
ItemList.Remove(“Item1″)
‘remove item from index tertentu
ItemList.RemoveAt(3)
MsgBox(“Menampilkan isi array kembali”)
For i = 0 To ItemList.Count – 1
MsgBox(ItemList.Item(i))
Next

Terdapat beberapat perintah daasar pada penggunaan array, diantaranya :
Dim ItemList As New ArrayList()
Untuk membuat variable ItemList bertipe array.
ItemList.Add("Item1")
Menambahkan data atau item ke dalam array.
ItemList.Insert(2, "Item6")
Menambahkan item mulai index tertentu.
ItemList.Sort()
Untuk mensorting item didalam array.
ItemList.Remove("Item1")
Untuk menghapus item tertentu.
ItemList.RemoveAt(3)
Untuk menghapus item pada index tertentu.

Demikian tutorial singkat penggunaan array dalam VB.net