Load Data Ke GridControl

Imports DevExpress.Xpo

Imports DevExpress.Xpo.DB

Imports DevExpress.DataAccess.Sql

Imports DevExpress.DataAccess.ConnectionParameters

Imports System

Imports System.Collections




Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        'Dim koneksi As String = DevExpress.Xpo.DB.MySqlConnectionProvider.GetConnectionString("localhost", "root", "", "latihan")

        'XpoDefault.DataLayer = XpoDefault.GetDataLayer(koneksi, AutoCreateOption.DatabaseAndSchema)

        'Dim laporan1 As New XtraReport1

        'Dim datalayer As IDataLayer = XpoDefault.GetDataLayer(koneksi, AutoCreateOption.DatabaseAndSchema)

        'XpoDefault.DataLayer = datalayer

        Dim mysqlParams As New MySqlConnectionParameters

        mysqlParams.ServerName = "localhost"

        mysqlParams.DatabaseName = "latihan"

        mysqlParams.UserName = "rahasia"

        mysqlParams.Password = "rahasia"


        Dim ds As New SqlDataSource(mysqlParams)

        Dim query As New CustomSqlQuery

        query.Name = "customQuery"

        query.Sql = "SELECT * FROM tabel1"


        ds.Queries.Add(query)


        ds.RebuildResultSchema()

        ds.Fill()

        GridControl1.DataSource = ds

        GridControl1.DataMember = "customQuery"


    End Sub
End Class