Pada tutorial Gratis Visual Basic .Net kali ini akan dibahas mengenai : Cara Koneksi Database MySQL dengan VB .Net. Bagi anda yang akan menciptakan Aplikasi dengan VB .Net database MySQL.. Tutorial ini ialah tahap awal. Karena kalau anda sudah dapat menciptakan Koneksi Database MySQL maka anda akan semakin gampang dalam menciptakan Aplikasi VB .Net dengan Database MySQL tersebut.
Untuk dapat mengikuti tutorial VB .Net kali ini pastikan anda sudah :
1. Install Xampp pada komputer anda
2. Install Connector Xampp ke VB yaitu ODBC versi 3.51
3. dan tentunya anda sudah menginstall Visual Basic .Net ( kami memakai Versi 2010 )
Silahkan Run atau Jalankan Project anda, dan berikut kesudahannya :
Semoga bermanfaat untuk Sobat JNM, ikuti terus Tutorial Gratis VB .Net kami lainnya....
Untuk dapat mengikuti tutorial VB .Net kali ini pastikan anda sudah :
1. Install Xampp pada komputer anda
2. Install Connector Xampp ke VB yaitu ODBC versi 3.51
3. dan tentunya anda sudah menginstall Visual Basic .Net ( kami memakai Versi 2010 )
Berikut langkah-langkahnya :
No.1. Membuat database dan Tabel MySQL Dengan Xampp
Buatlah database dengan nama : dbjnm
Buatlah tabel dengan nama : tbl_buku
Jika sudah menciptakan langkah diatas, silahkan lanjutkan dengan langkah kedua dibawah ini :
No.2. Membuat Form1 pada VB Net 2010 dan Kodingnya
Buka Aplikasi VB Net 2010 anda
Buatlah design Form1 menyerupai gambar dibawah ini :
Jika sudah menciptakan Form1 menyerupai gambar diatas, silahkan masukan koding dibawah ini :
Imports System.Data.Odbc Public Class Form1 Dim Conn As OdbcConnection Dim da As OdbcDataAdapter Dim ds As DataSet Dim str As String Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) _ Handles MyBase.Load Koneksi() da = New OdbcDataAdapter("Select * from tbl_buku", Conn) ds = New DataSet ds.Clear() da.Fill(ds, "tbl_buku") DataGridView1.DataSource = (ds.Tables("tbl_buku")) End Sub Sub Koneksi() str = "Driver={MySQL ODBC 3.51 Driver};database=dbjnm;server=localhost;uid=root" Conn = New OdbcConnection(Str) If Conn.State = ConnectionState.Closed Then Conn.Open() End If End Sub End Class
Silahkan Run atau Jalankan Project anda, dan berikut kesudahannya :
Semoga bermanfaat untuk Sobat JNM, ikuti terus Tutorial Gratis VB .Net kami lainnya....
0 comments:
Post a Comment