Public Class SQLQuery
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then

        End If
    End Sub

    Protected Sub RadButton1_Click(sender As Object, e As EventArgs) Handles RadButton1.Click
        Try
            Me.RadGrid1.DataSource = Nothing
            Dim dh As New clsDatahandling
            Dim dt As New DataSet
            dt = dh.Get_Tabledata(Me.RadTextBox1.Text, False, True)
            Me.RadGrid1.DataSource = dt.Tables(0)
            Me.RadGrid1.Rebind()
        Catch ex As Exception
            Try
                If Me.RadTextBox1.Text <> "" Then Me.Label1.Text = ex.Message
            Catch
            End Try

        End Try

        '        Me.RadGrid1.Rebind()
    End Sub

    Private Sub RadGrid1_NeedDataSource(sender As Object, e As Telerik.Web.UI.GridNeedDataSourceEventArgs) Handles RadGrid1.NeedDataSource
        Exit Sub
        Try
            Dim dh As New clsDatahandling
            Dim dt As New DataSet
            dt = dh.Get_Tabledata(Me.RadTextBox1.Text, False, True)
            Me.RadGrid1.DataSource = dt.Tables(0)
        Catch ex As Exception
            Try
                If Me.RadTextBox1.Text <> "" Then Me.Label1.Text = ex.Message
            Catch
            End Try

        End Try

    End Sub


    Protected Sub RadComboBox1_SelectedIndexChanged(sender As Object, e As Telerik.Web.UI.RadComboBoxSelectedIndexChangedEventArgs) Handles RadComboBox1.SelectedIndexChanged
        Me.RadTextBox1.Text = Me.RadComboBox1.SelectedValue
    End Sub
End Class