You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
50 lines
1.6 KiB
50 lines
1.6 KiB
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 |