DATABASE MYSQL
LISTING PROGRAM
Imports
MySql.Data.MySqlClient
Public Class Form2
Public db As New
MySql.Data.MySqlClient.MySqlConnection
Public sql As String
Public cmd As MySqlCommand
Public rs As MySqlDataReader
Sub
opendb()
sql = "server=localhost;uid=root;pwd;database=data_pelanggan"
Try
db.ConnectionString = sql
db.Open()
Catch
ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Sub
bersih()
kode_pel.Text = ""
nama_pel.Text = ""
alamat.Text = ""
telp.Text = ""
RUBAHBUTTON(True,
False, False, False, False, True)
kode_pel.Enabled = True
End Sub
Sub
RUBAHBUTTON(ByVal Btn1 As
Boolean, ByVal
Btn2 As Boolean,
ByVal Btn3 As Boolean, ByVal Btn4 As Boolean, ByVal Btn5 As Boolean, ByVal btn6 As Boolean)
BTNBARU.Enabled = Btn1
BTNEDIT.Enabled = Btn2
BTNSIMPAN.Enabled = Btn3
BTNBATAL.Enabled = Btn4
BTNHAPUS.Enabled = Btn5
BTNKELUAR.Enabled = Btn6
End Sub
Sub
buattabel()
lv.Columns.Add("kode_pel",
80, HorizontalAlignment.Center)
lv.Columns.Add("nama_pel",
180, HorizontalAlignment.Left)
lv.Columns.Add("alamat",
80, HorizontalAlignment.Left)
lv.Columns.Add("telp",
100, HorizontalAlignment.Left)
lv.GridLines = True
lv.FullRowSelect = True
lv.View = View.Details
End Sub
Sub
ISITABEL()
lv.Items.Clear()
sql = "select
* from pelanggan"
cmd = New
MySqlCommand(sql, db)
rs = cmd.ExecuteReader
Try
While
rs.Read
Dim
ist As New
ListViewItem
ist.Text = rs("kode_pel")
ist.SubItems.Add(rs("nama_pel"))
ist.SubItems.Add(rs("alamat"))
ist.SubItems.Add(rs("telp"))
lv.Items.Add(ist)
End
While
Catch
ex As Exception
MsgBox(ex.Message)
End Try
rs.Close()
End Sub
Sub
prosesdb(ByVal log As
Integer)
Dim
pesan As String
= ""
Select Case log
Case
0
sql = "insert
into pelanggan(kode_pel, nama_pel, alamat, telp)" & _
"values
('" & kode_pel.Text & _
"','"
& nama_pel.Text & _
"','"
& alamat.Text & _
"','"
& telp.Text & "')"
pesan = "data telah disimpan"
Case
1
sql = "update
pelanggan set nama_pel='" & nama_pel.Text & "', " & _
"alamat='" & alamat.Text & "'," & _
"telp='" & telp.Text & "' " & _
"where
kode_pel='" & kode_pel.Text & "'"
pesan = "telah di update"
Case
2
sql = "delete
from pelanggan where kode_pel='" & kode_pel.Text & "'"
pesan = "data telah dihapus"
End Select
Try
cmd = New
MySqlCommand(sql, db)
cmd.ExecuteNonQuery()
MsgBox(pesan,
MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "konfirmasi")
Call
bersih()
Call
ISITABEL()
Catch
ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Sub
showdb()
rs.Read()
kode_pel.Text = rs("kode_pel")
nama_pel.Text = rs("nama_pel")
alamat.Text = rs("alamat")
telp.Text = rs("telp")
RUBAHBUTTON(False,
True, True, True, True, False)
BTNEDIT.Text = "edit"
kode_pel.Enabled = False
End Sub
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Call
opendb()
Call
bersih()
Call
ISITABEL()
Call
buattabel()
End Sub
Private Sub BTNBARU_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BTNBARU.Click
Call
bersih()
kode_pel.Focus()
End Sub
Private Sub BTNBATAL_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BTNBATAL.Click
Call
bersih()
kode_pel.Focus()
End Sub
Private Sub BTNKELUAR_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs)
Handles BTNKELUAR.Click
End
End Sub
Private Sub BTNHAPUS_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BTNHAPUS.Click
Dim x As String
x = MsgBox("anda
yakin ingin menghapus", MsgBoxStyle.Information +
MsgBoxStyle.YesNo, "hapus")
If x =
vbYes Then
Call
prosesdb(2)
End If
End Sub
Private Sub BTNSIMPAN_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BTNSIMPAN.Click
If
BTNSIMPAN.Text = "simpan" Then prosesdb(0) Else
prosesdb(1)
End Sub
Private Sub KODE_KeyPress(ByVal
sender As Object,
ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles
kode_pel.KeyPress
Dim
tombol As Integer
= Asc(e.KeyChar)
If
tombol = 13 Then
Dim
x As String
If
kode_pel.Text = "" Then
MsgBox("isi
kode terlebih dahulu")
Else
sql = "select*
from pelanggan where kode_pel='" & kode_pel.Text & "'"
cmd = New
MySqlCommand(sql, db)
rs = cmd.ExecuteReader
Try
Call
showdb()
Catch
ex As Exception
x = kode_pel.Text
bersih()
kode_pel.Text = x
RUBAHBUTTON(False, False, True, True, True, False)
BTNSIMPAN.Text = "simpan"
End
Try
nama_pel.Focus()
rs.Close()
End
If
End If
End Sub
End Class
HASIL SETELAH DIJALANKAN
Demikilahlah postingan saya Nama : KRIS PUTRI YANA GAYA TRIE NPM : 1102080
Kelas : MI - P - 1101
Selamat Belajar VB Net
Tidak ada komentar:
Posting Komentar