cara koneksi ke mysql dari vb menggunakan mysql odbc

1.  Install vbnya
2.  Download mysql odbc-nya, install
3.  create database di mysql, misalnya infoonline
4.  use infoonline ==> create table mahasiswa
5.  masuk ke control panel, switch ke classic view aja.
6.  masuk ke Administrative Tools –> Data Source (ODBC)
7.  Di tag user DSN, klik Add
8.  pilih mysql odbc driver, –> klik finish
9.  akan tampil panel odbc connector
10. isi datasource name, misal ikhsanganteng, description (kosongin juga boleh),server(defaultnya localhost),User nya root, password (default kosong), pilih databasenya
11. Klik Test… (success, connection was made) berarti telah sukses buat koneksi, klik ok
12. Sekarang, masuk ke vbnya, klik menu project — > references — > pilih Microsoft ActiveX  Data  Objects 2.0 Library dan Microsoft ActiveX Data Object RecordSet 2.8 Library
13. Di project Explorer, tambahkan module, add module
14. Isikan coding koneksi dan seleksi mahasiswa

Public con As New ADODB.Connection
Public rsmhs As New ADODB.Recordset

Public Sub konekdb()
Set con = New ADODB.Connection
‘ connection provider kalau ragu, ambil dari adodc,
‘build, isi bagian pada tag connection, isi datasource namenya,
‘pilih ikhsanganteng, ok, copy connection stringnya
con.Open “Provider=MSDASQL.1;Persist Security Info=False;Data Source=ikhsanganteng”
con.CursorLocation = adUseClient
End Sub

Public Sub seleksimhs()
Set rsmhs = New ADODB.Recordset
rsmhs.Open “select * from mahasiswa”, con, adOpenDynamic, adLockOptimistic
End Sub

——————-
Kalau udah, di form, tambahkan komponen datagrid, double klik formnya
‘tambahkan coding berikut pada form_Load

Private Sub Form_Load()
konekdb
seleksimhs
Set DataGrid1.DataSource = rsmhs
End Sub

——————–
Run (F5), selamat mencoba…

JAWABAN QUIS NO. 2

Listing Program
Public Class Form1
Sub BuatTabel()
ListView1.Columns.Add("Npm", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Nama", 180, HorizontalAlignment.Left)
ListView1.View = View.Details
ListView1.GridLines = True
ListView1.FullRowSelect = True

End Sub
Sub IsiTabel()
Dim Lst As New ListViewItem
Lst.Text = Npm.Text
Lst.SubItems.Add(Nama.Text)
ListView1.Items.Add(Lst)

End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
BuatTabel()
End Sub

Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
IsiTabel()
Npm.Text = ""
Nama.Text = ""

End Sub

Private Sub hapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapussemua.Click
ListView1.Items.Clear()
End Sub

Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
ListView1.Items.Remove(ListView1.SelectedItems(0))
End Sub
End Class



Hasil Program

LINK SOAL QUIS

JAWABAN QUIS NO.3

LISTING PROGRAM LOGIN
Public Class Form1

Private Sub Masuk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Masuk.Click
If Nama.Text = "MUHAMMAD SUHAR" And Password.Text = "naruto" Then
formmenu.Show()
Me.Hide()
Else
MsgBox("Maaf! Password salah!")
Nama.Text = ""
Password.Text = ""
End If
End Sub

Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click
End
End Sub

Private Sub Password_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Password.KeyPress
Dim tombol As Integer = Asc(e.KeyChar)
If tombol = 13 Then
Masuk_Click(sender, e)
End If
End Sub
End Class



HASIL PROGRAM 

LISTING PROGRAM FORMMENU
Public Class formmenu

Private Sub DataPenggajianToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPenggajianToolStripMenuItem.Click
penggajian.show()
End Sub

Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
End
End Sub
End Class


HASIL PROGRAM

LISTING PROGRAM PENGGAJIAN KARYAWAN
Public Class penggajian
    Sub addno()
        Dim i As Integer
        For i = 0 To 9
            No.Items.Add(i)
        Next i
    End Sub
    Sub clearisian()
        No.Text = ""
        Kode.Text = ""
        Nama.Text = ""
        Jabatan.Text = ""
        Gaji.Text = ""
        Status.Text = ""
        Tistri.Text = ""
        Janak.Text = ""
        Tanak.Text = ""
        Jam.Text = ""
        Lembur.Text = ""
        Pajak.Text = ""
        Total.Text = ""
        No.Focus()
    End Sub
    Sub buattabel()
        Lv.Columns.Add("No", 30, HorizontalAlignment.Center)
        Lv.Columns.Add("Kode Pegawai", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Nama Pegawai", 180, HorizontalAlignment.Left)
        Lv.Columns.Add("Jabatan", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Gaji", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Status", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Tunj Istri", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Jumlah Anak", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Tunj Anak", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Jam", 50, HorizontalAlignment.Left)
        Lv.Columns.Add("Lembur", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Pajak", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Total Gaji", 80, HorizontalAlignment.Left)
        Lv.View = View.Details
        Lv.GridLines = True
        Lv.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim Lst As New ListViewItem
        Lst.Text = No.Text
        Lst.SubItems.Add(Kode.Text)
        Lst.SubItems.Add(Nama.Text)
        Lst.SubItems.Add(Jabatan.Text)
        Lst.SubItems.Add(Gaji.Text)
        Lst.SubItems.Add(Status.Text)
        Lst.SubItems.Add(Tistri.Text)
        Lst.SubItems.Add(Janak.Text)
        Lst.SubItems.Add(Tanak.Text)
        Lst.SubItems.Add(Jam.Text)
        Lst.SubItems.Add(Lembur.Text)
        Lst.SubItems.Add(Pajak.Text)
        Lst.SubItems.Add(Total.Text)
        Lv.Items.Add(Lst)
    End Sub
    Private Sub penggajian_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call addno()
        buattabel()
        Kode.Items.Add("A001")
        Kode.Items.Add("A002")
        Kode.Items.Add("B001")
        Kode.Items.Add("B002")
        Jabatan.Items.Add("MANDOR")
        Jabatan.Items.Add("KEPALA BAGIAN")
        Jabatan.Items.Add("STAF")
        Status.Items.Add("MENIKAH")
        Status.Items.Add("TIDAK MENIKAH")
        Jam.Items.Add("1")
        Jam.Items.Add("2")
        Jam.Items.Add("3")
        Jam.Items.Add("4")
        Jam.Items.Add("5")
        Jam.Items.Add("6")
    End Sub
    Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click
        Me.Close()
    End Sub

    Private Sub Bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bersih.Click
        Call clearisian()
    End Sub

    Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click
        isitabel()
    End Sub

    Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged
        If Kode.Text = "A001" Then
            Nama.Text = "Muhammad Suhar"
        ElseIf Kode.Text = "A002" Then
            Nama.Text = "Bayu Pratama"
        ElseIf Kode.Text = "B001" Then
            Nama.Text = "Juliana"
        ElseIf Kode.Text = "B002" Then
            Nama.Text = "Nurhayati"
        End If
    End Sub

    Private Sub Jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jabatan.SelectedIndexChanged
        If Jabatan.Text = "MANDOR" Then
            Gaji.Text = 1750000
        ElseIf Jabatan.Text = "KEPALA BAGIAN" Then
            Gaji.Text = 2500000
        ElseIf Jabatan.Text = "STAF" Then
            Gaji.Text = 1250000
        End If
    End Sub

    Private Sub Status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Status.SelectedIndexChanged
        If Status.Text = "MENIKAH" Then
            Tistri.Text = (0.09 * Gaji.Text)
        ElseIf Status.Text = "TIDAK MENIKAH" Then
            Tistri.Text = 0
        End If
    End Sub
    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
        If Janak.Text = 1 Then
            Tanak.Text = (0.03 * Gaji.Text)
        ElseIf Janak.Text >= 2 Then
            Tanak.Text = (0.07 * Gaji.Text)
        End If


        If Jabatan.Text = "STAF" Then
            Lembur.Text = (Jam.Text * 5000)
        ElseIf Jabatan.Text = "MANDOR" Then
            Lembur.Text = (Jam.Text * 7500)
        ElseIf Jabatan.Text = "KEPALA BAGIAN" Then
            Lembur.Text = (Jam.Text * 10000)
        End If


        Pajak.Text = (0.015 * Gaji.Text)

        Total.Text = Val(Gaji.Text) + Val(Tistri.Text) + Val(Tanak.Text) + Val(Lembur.Text) - Val(Pajak.Text)

    End Sub


    Private Sub Hapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapussemua.Click
        Lv.Items.Clear()
    End Sub

    Private Sub Hapuspilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapuspilih.Click
        Lv.Items.Remove(Lv.SelectedItems(0))
    End Sub
End Class


HASIL PROGRAM 

LINK SOAL QUIZ

Pemograman Visual

Versi ini merupakan versi terbaru yang dirilis oleh Microsoft pada tanggal 19 November 2007, bersamaan dengan dirilisnya Microsoft Visual C# 2008, Microsoft Visual C++ 2008, dan Microsoft .NET Framework 3.5.
Dalam versi ini, Microsoft menambahkan banyak fitur baru, termasuk di antaranya adalah:
Operator If sekarang merupakan operator ternary (membutuhkan tiga operand), dengan sintaksis If (boolean, nilai, nilai). Ini dimaksudkan untuk mengganti fungsi IIF.

Contoh Pemrograman

Microsoft vb: Membuat Form Transaksi

Sudah lama juga tidak menulis artikel mengenai pemrograman.Kali ini saya akan mencoba berbagi sebuah tutorial VB.net tentang bagaimana membuat form transaksi.

Sebelum membaca artikel ini,anda perlu tahu bahwa disini saya mencoba meneruskan apa yang sudah saya tulis sebelumnya,bisa anda lihat disini: Microsoft Visual Basic .Net Tutorial 1: Mengkoneksikan VB.net Dengan Database Access.

Tutorial dan Contoh Program – Menggunakan Stored Procedure Pada ADO.NET – VB.NET

<< Sebelumnya : Tutorial dan Contoh Program – Menggunakan Data Reader Pada ADO.NET – VB.NET

Stored Procedure merupakan rangkaian program yang dapat disimpan dan dipanggil/dieksekusi oleh program lain atau dieksekusi oleh SQL-prompt. Umumnya suatu stored procedure yang dibuat oleh SQL Server berhubungan dengan database server dan menghasilkan sekumpulan record. Stored procedure ditulis dengan sebuah script. Pemakaian stored procedure akan meningkatkan performa database, meningkatkan sekuritas database, dan memungkinkan membuat program untuk database. Performansi ditingkatkan melalui pemakaian memori lokal, program yang telah dikompilasi terlebih dahulu dan pemakaian cache. Alasan lain adalah kebutuhan akan sebuah operasi yang sama sedangkan ada banyak client yang harus mengakses dengan bahasa pemrograman yang berbeda.

Stored procedure yang telah dibuat di server database dapat diakses melalui aplikasi program VB.NET, yaitu dengan membentuk objek command dan mengatur nilai dari CommandType untuk diisi dengan StoredProcedure. Contoh programnya adalah sebagai berikut :

MEMBUAT KONEKSI DARI VB 2008 KE MICROSOFT ACCSES (2007) KE DATABASE MENGGUNAKAN CONNECTION STRING

koneksi dari vb 2008 ke database Access menggunakan My.Settings class, pada kesempatan kali ini kita akan membahas bagaimana caranya membuat koneksi dari vb 2008 ke database Access menggunakan Connection String.
untuk contoh database, kita masih menggunakan database Access 2007 dengan nama “TestDatabase.accdb” yang sudah kita gunakan sebelumnya, yang disimpan di dalam drive “C:\Test Project\Database”,

tujuan kita adalah membuat koneksi dari vb 2008 ke database Access tsb dan menampilan isi record dari table “TestTable” ke DataGridView.

Membuat Connection String

Ok, langkah-langkahnya adalah sebagai berikut :

Buka Aplikasi Visual Studio 2008 – Pilih File – New Project
Ubah Nama Projectnya menjadi DbConnectionString, lalu klik OK

Pilih menu Project – Add Module – Kemudian Klik tombol Add

Kemudian di Jendela Solution Explorer, Double klik Module1

Pada jendela Code Module1, ketikkan perintah berikut

Kembali ke Design Form1.vb, tambahkan control Button Dan DataGridView

Double klik button1, lalu ketikkan perintah dengan urutan sebagai berikut :

Setelah selesai, coba jalankan project anda dengan menekan tombol F5, lalu klik Button1, jika koneksi berhasil maka datagridview akan terisi oleh record dari table “testTable” seperti gambar dibawah.

Ok,, Happy Coding !!! ^_^