Grub WA
Modul
Imports MySql.Data.MySqlClient
Module modulKoneksi
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=db_alfamart"
Try
DB.ConnectionString = sql
DB.Open()
' MsgBox("Koneksi Berhasil")
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Module
frmBarang
Imports MySql.Data.MySqlClient
Public Class frmBarang
Private Sub frmBarang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
openDB()
End Sub
Sub BuatTabel()
lv.Columns.Add("Kode", 100, HorizontalAlignment.Center)
lv.Columns.Add("Nama", 100, HorizontalAlignment.Center)
lv.Columns.Add("Harga", 100, HorizontalAlignment.Center)
lv.Columns.Add("Stok", 90, HorizontalAlignment.Center)
lv.Columns.Add("Keterangan", 100, HorizontalAlignment.Center)
lv.View = View.Details
lv.GridLines = True
lv.FullRowSelect = True
End Sub
Sub isiTabel()
lv.Items.Clear()
Sql = "select * from barang"
cmd = New MySqlCommand(Sql, DB)
rs = cmd.ExecuteReader
Try
While rs.Read
Dim Lst As New ListViewItem
Lst.Text = rs("kode")
Lst.SubItems.Add(rs("Nama"))
Lst.SubItems.Add(rs("harga"))
Lst.SubItems.Add(rs("stok"))
Lst.SubItems.Add(rs("keterangan"))
lv.Items.Add(Lst)
End While
Catch ex As Exception
MsgBox(ex.Message)
End Try
rs.Close()
End Sub
End Class
Database
cd/
cd xampp\mysql\bin
mysql -u root -p
show databases;
create database db_alfamart;
use db_alfamart;
create table barang(
kode varchar(10) not null,
nama varchar(50) not null,
harga int(10) not null,
stok int(10) not null,
keterangan varchar(100) null,
primary key(kode)
);
desc barang;
insert into barang values(
'B001',
'HP A10S',
1000000,
10,
null
);
select *from barang;
drop database db_alfamart;
Posting Komentar