Koneksi database SQL ke VB NET

Rekan-rekan semua pada kesempatan kali ini saya sedang mencoba belajar menghubungkan database SQL dengan VB NET. Percobaan ini sekarang saya menggunakan MySQL 5.0 sebagai wadah databasenya.

Langkah yang pertama tentunya kita buat dulu databasenya beserta tabel yang akan kita gunakan, OK kita masih memakai consule, buka terlebih dahulu cmd prompt lalu masuk dulu ke server sql.

ketikkan
> mysql -p -uroot --port 3307;

Pemilihan nomer Port disini tergantung port yang temen-temen gunakan pada server sql di komputer masing-masing. kebetulan saya menggunakan port 3307. langkah selanjutnya buat database dengan mengetikkan perintah di bawah ini.

> create databases master_produk;

> use master_produk;

langkah selanjutnya buat tabelnya dengan perintah seperti di bawah ini, untuk lebih jelasnya silahkan lihat manual book tutorial MySQL:

> CREATE TABLE `master_produk`.`produk` (
`RECID` char(1) default NULL,
`DIVISI` char(1) default NULL,
`DEPART` char(2) default NULL,
`KATEGORI` char(2) default NULL,
`CAT_COD` char(5) default NULL,
`PRDCD` varchar(8) NOT NULL default '',
`PLUMD` varchar(8) default NULL,
`KDMERK` char(4) default NULL,
`MERK` varchar(15) default NULL,
`NAMA` varchar(30) default NULL,
`FLAVOUR` varchar(15) default NULL,
`KEMASAN` char(3) default NULL,
`SIZE` varchar(10) default NULL,
`SINGKATAN` varchar(30) default NULL,
`BKP` enum('N','Y') default 'N',
`SUB_BKP` char(1) default NULL,
`BBS_PPN` char(1) default NULL,
`DESC2` varchar(50) default '',
`FRAC` decimal(4,0) default '0',
`PSNDULU` char(1) default NULL,
`UNIT` varchar(4) default NULL,
`ACOST` decimal(15,6) default '0.000000',
`LCOST` decimal(15,6) default '0.000000',
`RCOST` decimal(15,6) default '0.000000',
`ACOST_1` decimal(15,6) default '0.000000',
`RCOST_1` decimal(15,6) default '0.000000',
`MARKUP` decimal(14,6) default '0.000000',
`PRICE` decimal(14,6) default '0.000000',
`PRDGRP` char(7) default NULL,
`CTGR` char(2) default NULL,
`KONS` char(1) default NULL,
`SUPCO` char(5) default NULL,
`PTAG` char(1) default NULL,
`TGL_TAMBAH` date default NULL,
`REORDER` decimal(7,0) default '0',
`KEL_ORD` char(1) default NULL,
`LENGTH` decimal(7,2) default '0.00',
`WIDTH` decimal(7,2) default '0.00',
`HEIGHT` decimal(7,2) default '0.00',
`K_LENGTH` decimal(7,2) default '0.00',
`K_WIDTH` decimal(7,2) default '0.00',
`K_HEIGHT` decimal(7,2) default '0.00',
`BERAT_SAT` decimal(7,0) default '0',
`BERAT_KRT` decimal(7,0) default '0',
`EXP_MONTH` decimal(5,0) default '0',
`BARCSTS` char(2) default NULL,
`KET` varchar(30) default NULL,
`TGL_HJB` date default NULL,
`TP_BELI` char(1) default NULL,
`RCG` decimal(6,0) default '0',
`BRG_AKTIF` enum('N','Y') default 'N',
`EXPRICE` decimal(11,3) default '0.000',
`PLUTABUNG` varchar(7) default NULL,
`OPENPRICE` char(1) default NULL,
`QTYTABUNG` decimal(6,0) default '0',
`NonSO` char(1) default NULL,
`NONRET` char(1) default NULL,
`ADDID` varchar(45) default NULL,
`ADDTIME` datetime default NULL,
`UPDID` varchar(45) default NULL,
`UPDTIME` datetime default NULL
) ENGINE=MyISAM DEFAULT CHARSET=latin1;

Setelah tabel sudah terbentuk langkah selanjutnya kita masuk ke Programming visual Basic Net. Pertama buat Form dengan komponen DataGridview dan MysqlConnenction.

Listing program sederhananya adalah sebagai berikut:

Imports mysql.data.mysqlclient
Public Class frmjabatan
Dim dv As DataView

Private Sub frmjabatan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
loaddata()
End Sub Private Sub loaddata()
Dim oconn As New mysqlconnection
Dim strsql As String
strsql = "Database=master_produk;server=localhost;user id=root;password=xxx;port=3307"
oconn = New MySqlConnection(strsql)
strsql = "select * from produk"

Dim ocmd As New MySqlCommand

ocmd = New MySqlCommand(strsql, oconn)

Dim ds As DataSet
ds = New DataSet

Dim dt As DataTable
dt = ds.Tables.Add("produk")

Dim da As MySqlDataAdapter
da = New MySqlDataAdapter(ocmd)

da.Fill(ds, "produk")

dv = New DataView
dv.Table = dt

DataGridView1.DataSource = dv

End Sub
End Class

Hasil Eksekusinya tampak seperti di bawah ini:

Posted in: Koneksi database SQL ke VB NET