Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Imports MySql.Data.MySqlClient
- Dim mysqlconn As MySqlConnection
- Dim reader As MySqlDataReader
- Dim cmd As MySqlCommand
- Dim ds As DataSet
- Sub koneksi()
- Try
- mysqlconn = New MySqlConnection
- mysqlconn.ConnectionString = "server=127.0.0.1;user id=root;database=....."
- mysqlconn.Open()
- Catch ex As Exception
- MessageBox.Show(ex.Message)
- End Try
- End Sub
- Sub tampil()
- Dim msd As New MySqlDataAdapter
- Dim dt As New DataTable
- Dim bs As New BindingSource
- Try
- koneksi()
- Dim query As String
- query = "SELECT * FROM tb..."
- cmd = New MySqlCommand(query, mysqlconn)
- msd.SelectCommand = cmd
- msd.Fill(dt)
- bs.DataSource = dt
- DGV.DataSource = bs
- msd.Update(dt)
- Catch ex As Exception
- MessageBox.Show(ex.Message)
- End Try
- DGV.Columns(0).HeaderText = ""
- DGV.Columns(0).Width = 210
- End Sub
- Sub simpan()
- Try
- Dim query As String
- If TxtKode.Text = "" Or TxtNama.Text = "" Then
- MsgBox("Data masih ada yang kosong")
- Exit Sub
- Else
- koneksi()
- query = "SELECT * FROM tb_barang WHERE Kode_Barang='" & TxtKode.Text & "'"
- cmd = New MySqlCommand(query, mysqlconn)
- reader = cmd.ExecuteReader
- reader.Read()
- If reader.HasRows = True Then
- MsgBox("Data telah ada sebelumnya", vbInformation + vbOKOnly, "Pesan")
- BtnSimpan.Enabled = False
- Call tampil()
- Else
- koneksi()
- query = "INSERT INTO tb_barang VALUES ('" & TxtKode.Text & "','" & TxtNama.Text & "')"
- cmd = New MySqlCommand(query, mysqlconn)
- reader = cmd.ExecuteReader
- MessageBox.Show("Data Tersimpan")
- tampil()
- bersih()
- mysqlconn.Close()
- End If
- reader.Close()
- End If
- Catch ex As Exception
- MessageBox.Show(ex.Message)
- End Try
- End Sub
- Sub Ubah()
- Try
- If TxtKode.Text = "" Then
- MsgBox("Kode Masih Kosong")
- BtnBatal.Focus()
- Exit Sub
- Else
- koneksi()
- Dim query As String
- query = "UPDATE tb_barang SET Nama_Barang='" & TxtNama.Text & "',Satuan='" & TextBox3.Text & "' WHERE Kode_Barang='" & TxtKode.Text & "'"
- cmd = New MySqlCommand(query, mysqlconn)
- reader = cmd.ExecuteReader
- MessageBox.Show("Data Terubah")
- tampil()
- bersih()
- mysqlconn.Close()
- End If
- Catch ex As Exception
- MessageBox.Show(ex.Message)
- End Try
- End Sub
- Sub Hapus()
- If TxtKode.Text = "" Then
- MsgBox("Kode Masih Kosong")
- BtnBatal.Focus()
- Exit Sub
- Else
- If MessageBox.Show("Anda Yakin Ingin Menghapus Data..?", "Konfirmasi", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
- Try
- koneksi()
- Dim query As String
- query = "DELETE FROM tb_barang WHERE Kode_Barang ='" & TxtKode.Text & "'"
- cmd = New MySqlCommand(query, mysqlconn)
- reader = cmd.ExecuteReader
- MessageBox.Show("Data Terhapus")
- bersih()
- tampil()
- tampil_supplier()
- TxtKode.Focus()
- mysqlconn.Close()
- Catch ex As Exception
- MessageBox.Show(ex.Message)
- End Try
- Else
- Call bersih()
- Call tampil()
- End If
- End If
- End Sub
- Sub Tampil2()
- Try
- Dim dt As New DataTable
- Dim ds As New DataSet
- ds.Tables.Add(dt)
- Dim da As New MySqlDataAdapter("SELECT * FROM tb_supplier", mysqlconn)
- da.Fill(dt)
- Dim r As DataRow
- ComboBox1.Items.Clear()
- For Each r In dt.Rows
- ComboBox1.Items.Add(r.Item(0).ToString)
- Next
- Catch ex As Exception
- MessageBox.Show(ex.Message)
- End Try
- End Sub
- Private Sub TxtKode_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TxtKode.KeyPress
- If e.KeyChar = Chr(13) Then
- koneksi()
- Dim query As String
- query = "SELECT * FROM tb_barang WHERE Kode_Barang = '" & TxtKode.Text & "'"
- cmd = New MySqlCommand(query, mysqlconn)
- reader = cmd.ExecuteReader
- reader.Read()
- If reader.HasRows = True Then
- MsgBox("Data Ditemukan")
- TxtKode.Text = reader.Item("Kode_Barang")
- TxtNama.Text = reader.Item("Nama_Barang")
- TxtKode.Enabled = False
- BtnSimpan.Enabled = False
- BtnHapus.Enabled = True
- BtnUbah.Enabled = True
- BtnBatal.Focus()
- Else
- TxtNama.Focus()
- End If
- reader.Close()
- mysqlconn.Close()
- End If
- If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled() = True
- End Sub
- Sub Cari()
- koneksi()
- Dim query As String
- query = "SELECT * FROM tb_barang WHERE Kode_Barang like '%" & TxtCari.Text & "%' or Nama_Barang like '%" & TxtCari.Text & "%'"
- cmd = New MySqlCommand(query, mysqlconn)
- reader = cmd.ExecuteReader
- Dim tampil_barang As New DataTable
- tampil_barang.Load(reader)
- DGV.DataSource = tampil_barang
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement