Aplikasi simpan data ke MySql dengan BV.net

Posted by ferdi Pendidikan Tuesday, April 26th, 2011   158 views  Print Artikel Ini

Setelah sekian lama ngoprek java, kini kembali kepemograman berorentasi object juga yaitu vb.net, hampir satu tahun saya meninggalkan bahasa pemograman ini, sebenernya baru kali ini saya nyicipin visual studio 2008 atau yang sering orang sebut vb.net, dulu saya sangat seneng dengan bahasa pemograman yang satu ini, meski jaman dulu belum ada vb.net tapi generasi pendahulunya seperti visual basic 6 juga sudah hampir mirip dengan vb.net, makanya pas nyoba bv.net tidak ada hal-hal yang menyulitkan..

Mungkin yang mau saya posting kali ini bukan tutorial, karena saya tidak menjelaskan langkah demi langkah, saya cuma mau ngeshar saja apa yang pernah saya pelajari

ini dalah program sederana menyimpan data kedalam database mysql, kenapa saya mengunakan mysql ya..karena gratis..

Langsung saja ya..

Kalau mau ngikutin buat dulu database dengan nama penjualan

kemudian buat tabel dengan nama table_pelanggan, field nya seperti ini

Selanjutnya buat project anda dengan nama bebas, buat tampilan Form seperti ini

buat class koneksi dengan nama koneksi ketikan kode seperti ini

Imports MySql.Data.MySqlClient
Public Class Koneksi
Private Conn As MySqlConnection = Nothing
Public Function konek() As MySqlConnection
Dim ConnString As String
ConnString = “;server=localhost;user=root;password=;database=penjualan ”
Try
Conn = New MySqlConnection(ConnString)
Conn.Open()

Catch ex As Exception
MessageBox.Show(“Koneksi Erros: ” + ex.Message)
End
End Try
Return Conn
End Function
End Class

Buat modul dengan nama myModul, ketikan seperti ini

Imports MySql.Data.MySqlClient

Module myModule
Public conn As New MySqlConnection
Public DTadapter As New MySqlDataAdapter
Public DTset As DataSet
Public DTrow As DataRow
Public CMD As MySqlCommand
Public DTreader As MySqlDataReader
Public DTtable As New DataTable
Public CMDbuild As MySqlCommandBuilder
Public sql As String
Dim currentRow As Integer
Private strkoneksi As String

End Module

Didalam form ketikan kode dibawah ini

Imports MySql.Data.MySqlClient

Public Class FdataPelanggan
Dim conn As New Koneksi
Dim msql As String

Sub simpan()
msql = “SELECT*FROM table_pelanggan where kode=’” & Trim(txtkode.Text) & “‘”

Try
CMD = New MySqlCommand(msql, conn.konek)
DTreader = CMD.ExecuteReader()
If DTreader.HasRows Then
MessageBox.Show(“Kode Pelanggan sudah ada “, “error”, MessageBoxButtons.OK, MessageBoxIcon.Information)
DTreader.Close()
conn.konek.Close()
Exit Sub
Else
DTreader.Close()

End If
Try
msql = “insert into table_pelanggan(kode,nama,alamat,telp)” & _
“values(‘” & Me.txtkode.Text & “‘,” & _
“‘” & Me.txtNama.Text & “‘,” & _
“‘” & Me.txtalamat.Text & “‘,” & _
“‘” & Me.txttelp.Text & “‘)”
CMD = New MySqlCommand(msql, conn.konek)
CMD.ExecuteNonQuery()
Call bersih()
Catch ex As Exception
MessageBox.Show(“Data gagal disimpan “, “error”, MessageBoxButtons.OK, MessageBoxIcon.Error)

End Try
Catch ex As Exception
End Try

End Sub

Sub bersih()
txtkode.Clear()
txtNama.Clear()
txtalamat.Clear()
txttelp.Clear()
txtkode.Focus()

End Sub

Sub periksainput()

If txtkode.Text = “” Then
MessageBox.Show(“Kode pelanggan belum diisi”)
txtkode.Focus()
ElseIf txtNama.Text = “” Then
MessageBox.Show(“Nama pelanggan belum diisi”)
txtNama.Focus()
ElseIf txtalamat.Text = “” Then
MessageBox.Show(“Alamat pelanggan belum diisi”)
txtalamat.Focus()
ElseIf txttelp.Text = “” Then
MessageBox.Show(“Telp pelanggan belum diisi”)
txttelp.Focus()
Else
Call simpan()

End If

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Fmenu.Show()
Fmenu.Enabled = True
Me.Close()

End Sub

Sub tampilData()
msql = ” Select * From table_pelanggan order by kode asc”
DTtable.Clear()
DTtable = New DataTable
DTadapter = New MySqlDataAdapter(msql, conn.konek)
DTadapter.Fill(DTtable)
With Me.DataGridView1
.DataSource = DTtable
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
.AllowUserToAddRows = False
End With
DTtable.Dispose()
DTadapter.Dispose()
conn.konek.Close()
End Sub
Sub Perbaikandata()
msql = “update table_pelanggan set nama =’” & Trim(txtNama.Text) & “‘,” & _
“alamat=’” & Trim(Me.txtalamat.Text) & “‘,” & _
“telp=’” & Trim(Me.txttelp.Text) & “‘,” & _
“kode=’” & Trim(Me.txtkode.Text) & “‘ ” & _
“where kode=’” & Trim(Me.txtkode.Text) & “‘”
Try
CMD = New MySqlCommand(msql, conn.konek)
CMD.ExecuteNonQuery()
Catch ex As Exception
MessageBox.Show(“Data gagal diperbaiki”)
End Try

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call periksainput()
Call tampilData()

End Sub

Private Sub FdataPelanggan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call tampilData()
Fmenu.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
End Sub
Sub tampilkeform()
Me.txtkode.Text = Me.DataGridView1.SelectedCells(0).Value
Me.txtNama.Text = Me.DataGridView1.SelectedCells(1).Value
Me.txtalamat.Text = Me.DataGridView1.SelectedCells(2).Value
Me.txttelp.Text = Me.DataGridView1.SelectedCells(3).Value

End Sub
Sub hapusdata()
msql = ” delete From table_pelanggan where kode =’” & Trim(txtkode.Text) & “‘”
Try
CMD = New MySqlCommand(msql, conn.konek)
CMD.ExecuteNonQuery()
Call bersih()
Catch ex As Exception
MessageBox.Show(“Data gagal dihapus”)
End Try

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Call Perbaikandata()
Call tampilData()
Call bersih()
Button1.Enabled = True
Button2.Enabled = False
Button3.Enabled = False

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Call hapusdata()
Call tampilData()
Call bersih()
Button3.Enabled = False
Button2.Enabled = False
Button1.Enabled = True

End Sub

Private Sub DataGridView1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DataGridView1.MouseClick
Call tampilkeform()
Button1.Enabled = False
Button2.Enabled = True
Button3.Enabled = True

End Sub
End Class

coba diruning….kalau nggak jalan silahkan tinggalkan komentar mudah-mudahan saya bisa bantu..

Sekil tidah membutuhkan otak yang cemerlang, sekil juga tidak membutuhkan uang yang banyak..berlatih gagal berlatihlah yang dapat meningkatkan skil eseorang

salam ibote

Posted by ferdi on Apr 26 2011. Filed under Pendidikan. You can follow any responses to this entry through the RSS 2.0. You can leave a response or trackback to this entry