Imports MySql.Data.MySqlClient
Public Class Form1
Dim db As New MySql.Data.MySqlClient.MySqlConnection
Dim sql As String
Dim cmd As MySqlCommand
Dim rs As MySqlDataReader
Sub opendb()
sql = " server=localhost; uid=roo;database=dbpenjualan"
Try
db.ConnectionString = sql
db.Open()
MsgBox("Yes connect cayank!!!")
Catch ex As Exception
MsgBox("Ah gagal connectnya cayank!!!")
End Try
End Sub
Sub buattabel()
lv.Columns.Add("kode", 80, HorizontalAlignment.Center)
lv.Columns.Add("Nama", 120, HorizontalAlignment.Left)
lv.Columns.Add("Jenis", 100, HorizontalAlignment.Left)
lv.Columns.Add("stok", 80, HorizontalAlignment.Left)
lv.Columns.Add("harga", 100, HorizontalAlignment.Left)
lv.GridLines = True
lv.FullRowSelect = True
lv.View = View.Details
End Sub
Sub isitabel()
lv.Items.Clear()
sql = "select*from Barang"
cmd = New MySqlCommand(sql, db)
rs = cmd.ExecuteReader
While rs.Read()
Dim lst As New ListViewItem
With lst
.Text = rs("kode_B")
.SubItems.Add(rs("Nama_B"))
.SubItems.Add(rs("Jenis"))
.SubItems.Add(rs("stok"))
.SubItems.Add(rs("Harga_B"))
End With
lv.Items.Add(lst)
End While
rs.Close()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call opendb()
Call buattabel()
Call isitabel()
End Sub
Private Sub kodebarang_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kodebarang.KeyPress
If Asc(e.KeyChar) = 13 Then
If kodebarang.Text = "" Then
MsgBox("kode tidak boleh kosong")
Else
sql = "select*from barang where kode_B='" & kodebarang.Text & "'"
cmd = New MySqlCommand(sql, db)
rs = cmd.ExecuteReader
Try
rs.Read()
namabarang.Text = rs("Nama_B")
jeniasbarang.Text = rs("Jenis")
stok.Text = rs("stok")
hargabarang.Text = rs("Harga_B")
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
rs.Close()
kodebarang.Enabled = False
namabarang.Focus()
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If kodebarang.Text = "" Or namabarang.Text = "" Or jeniasbarang.Text = "" Or stok.Text = "" Or hargabarang.Text = "" Then
MsgBox(" data tidak kosong")
bersih()
kodebarang.Enabled = True
kodebarang.Focus()
Else
sql = ""
sql = "insert into barang(kode_B, Nama_B,Jenis,stok,Harga_B)" & _
" values('" & kodebarang.Text & _
" ','" & namabarang.Text & _
"','" & jeniasbarang.Text & _
"','" & stok.Text & _
"','" & hargabarang.Text & "')"
cmd = New MySqlCommand(sql, db)
cmd.ExecuteNonQuery()
isitabel()
bersih()
MsgBox("data telah tersimpan")
End If
End Sub
Sub bersih()
kodebarang.Text = ""
namabarang.Text = ""
jeniasbarang.Text = ""
stok.Text = ""
hargabarang.Text = ""
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
sql = " update barang set Nama_B='" & namabarang.Text & _
"', Jenis = '" & jeniasbarang.Text & _
"', stok = '" & stok.Text & _
"', Harga_B ='" & hargabarang.Text & _
"' where kode_B= '" & kodebarang.Text & "'"
cmd = New MySqlCommand(sql, db)
cmd.ExecuteNonQuery()
isitabel()
bersih()
MsgBox("data telah teredit")
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
sql = " delete from barang where kode_B ='" & kodebarang.Text & "'"
cmd = New MySqlCommand(sql, db)
cmd.ExecuteNonQuery()
isitabel()
bersih()
MsgBox("data telah terhapus")
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Me.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
bersih()
kodebarang.Enabled = True
kodebarang.Focus()
End Sub
End Class
untuk menambah ilmu anda klik lah link dibawah ini!!
mesran punya blog