dgv

Imports MySql.Data.MySqlClient
Public Class Form1
    Dim conn As MySqlConnection
    Dim da As MySqlDataAdapter
    Dim dr As MySqlDataReader
    Sub koneksi()
        Try
            Dim str As String = "server=localhost; userid=root; password=; database=db_kenalan;"
            conn = New MySqlConnection(str)
            If conn.State = ConnectionState.Closed Then
                conn.Open()
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
    Sub data()
        Try
            Call koneksi()
            da = New MySqlDataAdapter("SELECT * FROM list_kenalan", conn)
            DS = New DataSet
            DS.Clear()
            DA.Fill(DS, "list_kenalan")
            DataGridView1.DataSource = (DS.Tables("list_kenalan"))
            DataGridView1.Columns(0).HeaderText = "ID"
            DataGridView1.Columns(1).HeaderText = "Full Name"
            DataGridView1.Columns(2).HeaderText = "Address"
            DataGridView1.Columns(3).HeaderText = "Contact Number"
            DataGridView1.ReadOnly = True
            conn.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Call data()
    End Sub
End Class