Populate Data to GridControl

Untuk memasukkan data dari database ke dalam GridControl sangatlah mudah, berikut cara Populate Date dari database (disini sebagai contoh saya gunakan MS.Sql Server).
Jika anda sudah punya Project di Visual Studio, buatlah new Windows Form, jika belum ada Project untuk latihan anda bisa buat New Project.
Kemudian buatlah tampilan seperti berikut:

anda bisa berkreasi sendiri menurut kesukaan anda, jika anda belum mengetahui Basic Design dari GridControl dan Penggunaan Skins bisa lihat di posting sebelumnya.

Perubahan yang dilakukan didalam GridControl di Properties Design adalah sebagai berikut :

Dari semua perubahan yang paling penting adalah di Main Column yaitu pada FieldName.

• Pastikan isikan FieldName dengan nama Field/Column Table pada Database
• Pastikan huruf besar dan kecil, salah dalam penulisan huruf besar atau kecil , data tidak masuk

misalkan table anda di database sebagai berikut :

Jadi pastikan pada Run Designer di gridcolumn1(No ID) untuk FielName-nya wajib sama dengan Column Name no_urut yang ada di table database.

setelah selesai dalam merancang tampilan, sekarang saat kita masuk dalam View Code di form tersebut, isinya sebagai berikut :

Import Component yang diperlukan

Imports DevExpress.XtraEditors
Imports DevExpress.UserSkins.BonusSkins
Imports DevExpress.UserSkins.OfficeSkins
Imports System.Data
Imports System.Data.SqlClient

Tentukan Variable untuk koneksi ke datatbase, tabledata untuk menampung data

Inherits DevExpress.XtraEditors.XtraForm
Private connStr As String = "data source=namaserver;database=namadb;integrated security=true"
Dim dtTable As DataTable
Private Sub GridControlSample_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Try
DevExpress.Skins.SkinManager.Default.RegisterAssembly(GetType(DevExpress.UserSkins.BonusSkins).Assembly)
DevExpress.Skins.SkinManager.Default.RegisterAssembly(GetType(DevExpress.UserSkins.OfficeSkins).Assembly)
DevExpress.Skins.SkinManager.EnableMdiFormSkins()
DevExpress.Skins.SkinManager.EnableFormSkins()
DevExpress.Skins.SkinManager.EnableFormSkinsIfNotVista()
DevExpress.LookAndFeel.LookAndFeelHelper.ForceDefaultLookAndFeelChanged()
Catch ex As Exception
Exit Sub
End Try
End Sub

Buat Procedure untuk menjalankan query/ambil data ke database

Sub ConnectionDB()
Dim conn As New SqlConnection(connStr)
Try
conn.Open()
Dim cmd As New SqlCommand("select * from namatable", conn)
Dim ada As New SqlDataAdapter(cmd)
dtTable = New DataTable
ada.Fill(dtTable)
Catch ex As Exception
XtraMessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
Finally
conn.Close()
End Try
End Sub

Jika tombol SimpleButton2 di klik, maka perintah ini akan di eksekusi/dijalankan

Private Sub SimpleButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SimpleButton2.Click
Try
ConnectionDB()
GridControl1.DataSource = Nothing
GridControl1.DataSource = dtTable
Catch ex As Exception
XtraMessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End Try
End Sub

Jika tombol SimpleButton1 diklik, maka perintah untuk keluar program akan dijalankan

Private Sub SimpleButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SimpleButton1.Click
Try
Me.Dispose()
Application.Exit()
Catch ex As Exception
Exit Sub
End Try
End Sub

Sekarang jalankan program atau tekan tombol F5, kemudian tekan tombol Retrieve, maka hasilnya akan seperti ini

jika anda tekan tombol Close, maka program akan keluar/selesai..........
nah anda mukin akan bertanya itu Andreas laki atau perempuan atau Santi itu laki atau perempuan, selesai ini kita akan lanjutkan dengan Unbound GridControl, kita akan lihat siapa sebenarnya laki atau perempuan ..... bersambung disini ...


Salam