Manipulasi Database MySQL Di Visual Basic .Net Dengan Fasilitas ODBC

Dengan fasilitas ODBC anda dapat mengolah database MySQL siapkan software odbc anda, ODBC sebenarnya lebih sering digunakan untuk konversi data, ya maksudny yang tadinya data tersimpan di excel di konversi ke acces dan yang lainnya. pertama siapkan database seperti gambar  :

anda dapat menambah dengan perintah
CREATE Database 
CREATE TABLE barang (
  kode varchar(10) NOT NULL,
  nama varchar(20) NOT NULL,
  harga int(11) default NULL,
  jumlah int(11) default NULL,
  PRIMARY KEY  (kode)
);
INSERT INTO barang (kode, nama, harga, jumlah) VALUES ('B001', 'Laptop', 3000000, 10);

kemudian selanjutnya anda mendesian form

setelah desain selesai tampahkan kode

Imports System.Data.Odbc Module odbcKoneksi Public Mc As New OdbcConnection Public Mcd As OdbcCommand Public Mdr As OdbcDataReader Public ds As New DataSet Public Mda As OdbcDataAdapter Public Sql As String Public Sub terhubungDatabase() sql = "Driver={MySQL ODBC 3.51 Driver};server=localhost;uid=root;database=penjualan" mc = New OdbcConnection(sql) If mc.State = ConnectionState.Closed Then mc.Open() End If End Sub End Module Imports System.Data.Odbc Public Class frmBarang Private Sub frmBarang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load terhubungDatabase() lihatData() End Sub Sub hapusInput() txtKode.Clear() txtNama.Clear() txtHarga.Clear() txtJumlah.Clear() End Sub Sub lihatData() Sql = "select *from barang" Mda = New OdbcDataAdapter(Sql, Mc) ds = New DataSet Mda.Fill(ds, "barang") dv.DataSource = ds.Tables("barang") End Sub Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click Sql = "insert into barang values('" & txtKode.Text & "','" & txtNama.Text & "','" & txtHarga.Text & "','" & txtJumlah.Text & "')" Mcd = New OdbcCommand(Sql, Mc) Mcd.ExecuteNonQuery() hapusInput() lihatData() End Sub Private Sub txtKode_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtKode.KeyPress If Asc(e.KeyChar) = 13 Then If txtKode.Text = "" Then MsgBox("No Kosong") Exit Sub Else Sql = "select *from barang where kode='" & txtKode.Text & "'" Mcd = New OdbcCommand(Sql, Mc) Mdr = Mcd.ExecuteReader Try Mdr.Read() txtNama.Text = Mdr("nama") txtHarga.Text = Mdr("harga") txtJumlah.Text = Mdr("jumlah") ubah(False, False, True, True, True, False) txtKode.Enabled = False MsgBox("Data Sudah Ada") Catch ex As Exception MsgBox(ex.Message) ubah(False, True, False, False, True, False) End Try Mdr.Close() txtNama.Focus() End If End If End Sub Sub ubah(ByVal a As Boolean, ByVal b As Boolean, ByVal c As Boolean, ByVal d As Boolean, ByVal e As Boolean, ByVal f As Boolean) btnBaru.Enabled = a btnSimpan.Enabled = b btnEdit.Enabled = c btnHapus.Enabled = d btnBatal.Enabled = e btnKeluar.Enabled = f End Sub Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click Sql = "delete from barang where kode='" & txtKode.Text & "'" Mcd = New OdbcCommand(Sql, Mc) Mcd.ExecuteNonQuery() lihatData() End Sub Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click Sql = "update barang set nama='" & txtNama.Text & "',harga='" & txtHarga.Text & _ "',jumlah='" & txtJumlah.Text & "' where kode='" & txtKode.Text & "'" Mcd = New OdbcCommand(Sql, Mc) Mcd.ExecuteNonQuery() lihatData() End Sub Private Sub btnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBatal.Click hapusInput() End Sub Private Sub btnBaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBaru.Click hapusInput() txtKode.Focus() ubah(False, True, True, True, True, True) txtKode.Enabled = True txtKode.Focus() priksaKode() End Sub Sub priksaKode() Sql = "select kode from barang order by kode desc limit 1" Mcd = New OdbcCommand(Sql, Mc) Mdr = Mcd.ExecuteReader Try Mdr.Read() txtKode.Text = "B00" & Microsoft.VisualBasic.Right(Mdr("kode"), 1) + 1 Catch ex As Exception txtKode.Text = "B00" End Try Mdr.Close() End Sub End Class

Jika seudah benar akan menghasilkan seperti berikut