Forum Moderators: open
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim myconnection As SqlConnection
Dim myda As SqlDataAdapter
Dim ds As New DataSet
myconnection = New SqlConnection(System.Configuration.ConfigurationManager.AppSettings("Connection"))
myda = New SqlDataAdapter("SELECT ID, dbo.FormatDateTime(DayDate, 'LONGDATE') AS FormatedDayDate, DayDate FROM dbo.udfDaysWithDates(@TesID) AS udfDaysWithDates_1", myconnection)
myda.Parameters.add("@TesID", SqlDbType.Int).Value = System.Configuration.ConfigurationManager.AppSettings("TesID")
myda.Fill(ds, "AllTables")
End Sub
myda.SelectCommand.Parameters.add("@TesID", SqlDbType.Int).Value = System.Configuration.ConfigurationManager.AppSettings("TesID")