Selanjutnya kita akan mencoba menampilkan isi table kategori pada database latihan ke DataGridView di aplikasi VB.NET
Query yang digunakan:
Isi table:
Atur tampilan form sebagai berikut, dengan menambahkan control DataGridView yang diberinama grdData.
Kemudian atur code sebagai berikut:
Imports MySql.Data.MySqlClient
Imports System.Data
Public Class Form1
Dim conn As MySqlConnection
Dim myCommand As New MySqlCommand
Dim myAdapter As New MySqlDataAdapter
Dim myData As New DataTable
Dim SQL As String
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
conn = New MySqlConnection()
conn.ConnectionString = "server=localhost;user id=root;" & _
"password=;database=latihan"
Try
conn.Open()
SQL = "Select kodekategori, namakategori From kategori"
myCommand.Connection = conn
myCommand.CommandText = SQL
myAdapter.SelectCommand = myCommand
myAdapter.Fill(myData)
grdData.DataSource = myData
conn.Close()
Catch myerror As MySqlException
MessageBox.Show("Error: " & myerror.Message)
Finally
conn.Dispose()
End Try
End Sub
End Class
Cobalah untuk run/debug aplikasi. Maka data kategori akan tampil di datagridview.
2 Comments