Koneksi Database MySQL ke dalam Datagridview1 dalam Visual Basic 2010

Menampilkan Database MySQl ke dalam Datagridview1 dalam Visual Basic 2010.

Silahkan masukan Coding berikut di bawah ini ke dalam form yang sudah anda buat yang menggunakan Datagridview1 pada Visual Basic 2010,sebelum nya hapus semua codingan yang sudah ada,kemudian masukan Codingan di bawah ini dengan cara memPaste nya ke dalam form yang sudah anda buat.

Imports System.Data.SqlClient
Public Class Form1
Dim Conn As SqlConnection
Dim da As SqlDataAdapter
Dim ds As DataSet
Dim cmd = New SqlCommand
Dim rd As SqlDataReader
Dim LokasiDB As String

Sub Koneksi()
LokasiDB = “data source=NAMAKOMPUTERANDA\SQLEXPRESS;initial catalog=NAMA_DATABASE_ANDA;integrated security =true”
Conn = New SqlConnection(LokasiDB)
If Conn.State = ConnectionState.Closed Then Conn.Open()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
kondisiAwal()
End Sub

Sub kondisiAwal()
Koneksi()
da = New SqlDataAdapter(“Select * from TABEL_DATABASE”, Conn)
ds = New DataSet
ds.Clear()
da.Fill(ds, “TABEL_DATABASE”)
DataGridView1.DataSource = (ds.Tables(“TABEL_DATABASE”))
DataGridView1.ReadOnly = True
Txt1.Text = “”
txt2.Text = “”
txt3.Text = “”
txt4.Text = “”
txt5.Text = “”
txt6.Text = “”
txt7.Text = “”
End Sub

Private Sub DataGridView1_CellDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellDoubleClick
Call Koneksi()
Dim i As Integer
i = DataGridView1.CurrentRow.Index
cmd = New SqlCommand(“Select * from TABEL_DATABASE where KOLOM_KEDUA_PADA_TABEL_DATABASE='” & DataGridView1.Item(0, i).Value & “‘”, Conn)
RD = CMD.ExecuteReader
RD.Read()
If Not RD.HasRows Then
txt2.Focus()
Else
Txt1.Text = rd.Item(“KOLOM_TABEL1”)
txt2.Text = rd.Item(“KOLOM_TABEL2”)
txt3.Text = rd.Item(“KOLOM_TABEL3”)
txt4.Text = rd.Item(“KOLOM_TABEL4”)
txt5.Text = rd.Item(“KOLOM_TABEL5”)
txt6.Text = rd.Item(“KOLOM_TABEL6”)
txt7.Text = rd.Item(“KOLOM_TABEL7”)
txt2.Focus()
End If
End Sub

KOLOM TABEL di sesuaikan dengan Nama KOLOM TABEL yang Anda buat pada Tabel Database anda.

Selamat Mencoba.

Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s