1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54
|
Partial Public Class _Default
Inherits System.Web.UI.Page
Friend WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter
Friend WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
Friend WithEvents DataSet11 As WebApplication1.DataSet1
Friend WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
Private Sub InitializeComponent()
Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand
Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection
Me.DataSet11 = New WebApplication1.DataSet1
CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).BeginInit()
'
'SqlSelectCommand1
'
Me.SqlSelectCommand1.CommandText = "select distinct route_id from tbl_lms_route where period = @period"
Me.SqlSelectCommand1.Connection = Me.SqlConnection1
Me.SqlSelectCommand1.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@period", System.Data.SqlDbType.TinyInt, 1, "Period")})
'
'SqlDataAdapter1
'
Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1
Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "Tbl_LMS_Route", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("route_id", "route_id")})})
'
'SqlConnection1
'
Me.SqlConnection1.ConnectionString = "Data Source=KAA;Initial Catalog=Brazza;Integrated Security=True;Persist Security " & _
"Info=False;Packet Size=4096;Workstation ID=TALPC0237"
Me.SqlConnection1.FireInfoMessageEventOnUserErrors = False
'
'DataSet11
'
Me.DataSet11.DataSetName = "DataSet1"
Me.DataSet11.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Protected Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
DataSet11.Clear()
SqlDataAdapter1.SelectCommand.Parameters("@Period").Value = 5
SqlDataAdapter1.Fill(DataSet11)
Catch ex As Exception
ClientScript.RegisterStartupScript(Me.GetType(), "Erreur", "<script langage=""javascript"">alert(""" & ex.Message & """)</script>")
End Try
End Sub
End Class |
Partager