Web Form Button ?

I need to make a query to a SQLserver db passing values from a dropdownlist and two text boxes as my criteria. Now if nothing is selected and the button is pressed, I would like to return everything that is part of my Select statement. I am having trouble making my sql statement work.





Im sending you my code as an attachment. I've put * around the area i really need help with.





Even if you could just point me in the right direction as to where to look for a good web forms book using VB.NET and ASP.NET I would really appreciate it.





Thanks,





Jose


AIM- RangerBud249


Yahoo- RangerBud249








Imports System.Data.OLEDB


Imports System.Data


Imports System.Data.SqlClient


Public Class Test


Inherits System.Web.UI.Page


Public dbConn As SqlConnection


Public da As SqlDataAdapter


Protected WithEvents txtStart As System.Web.UI.WebControls.TextBox


Protected WithEvents txtEnd As System.Web.UI.WebControls.TextBox


Protected WithEvents Calendar1 As System.Web.UI.WebControls.Calendar


Protected WithEvents Label1 As System.Web.UI.WebControls.Label


Protected WithEvents img_cal1 As System.Web.UI.WebControls.ImageButton


Protected WithEvents img_cal2 As System.Web.UI.WebControls.ImageButton


Public ds As DataSet





Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


'the TailNumber is the first thing that will load


If Not Page.IsPostBack Then


lstAircraft.DataSource = GetAircraft() 'this function will load the Tail Numbers


lstAircraft.DataValueField = "TailNumber"


lstAircraft.DataTextField = "TailNumber"


lstAircraft.DataBind()


End If


End Sub





Function GetAircraft() As System.Data.DataSet


'this function will load the Tail Numbers


Dim connectionString As String = "connection info"


Dim dbConnection As System.Data.IDbConnection = New System.Data.SqlClient.SqlConnection(connectionString)





Dim queryString As String = "SELECT [Aircraft].[TailNumber] FROM [Aircraft]"


Dim dbCommand As System.Data.IDbCommand = New System.Data.SqlClient.SqlCommand


dbCommand.CommandText = queryString


dbCommand.Connection = dbConnection


Dim dataAdapter As System.Data.IDbDataAdapter = New System.Data.SqlClient.SqlDataAdapter


dataAdapter.SelectCommand = dbCommand


Dim dataSet As System.Data.DataSet = New System.Data.DataSet


dataAdapter.Fill(dataSet)





Return dataSet


End Function





******************************************************************************************************************


this is the area I really need help with





Sub btm_Submit_Click(ByVal sender As Object, ByVal e As EventArgs)


Dim connectionString As String = "connection info"


Dim dbConnection As System.Data.IDbConnection = New System.Data.SqlClient.SqlConnection(connectionString)


dbConnection.Open()


dbConnection.Close()


Dim selection As String


Dim startTime As String


Dim landingTime As String


Dim flights As String





Dim selString As String = "SSELECT AircraftID, fromLocation, startTime, toLocation, landingTime, ID, Filename, VSU, local_1 FROM Flights, tbl_FileNames, tbl_VSU"





Dim commandString As String = "SELECT [Flights].AircraftID, [Flights].fromLocation, [Flights].startTime, [Flights].toLocation, [Flights].landingTime, [tbl_FileNames].ID, [tbl_FileNames].Filename, [tbl_FileNames].VSU, [tbl_FileNames].local_1 FROM Flights, tbl_FileNames, tbl_VSU"





selection = "where " & Me.lstAircraft.SelectedValue.ToString & " " & startTime = Me.txtStart.Text & " " & Me.txtEnd.Text = landingTime & " " & [Flights].[ID] = [tbl_VSU].[flight_id]) AND [tbl_VSU].[filename_id] = [tbl_FileNames].[ID]"


If Me.txtStart.Text <> "" Then


selString = selString & selection


End If


Session("SelStr") = selString





Dim dbCommand As New OleDbCommand(commandString, dbConnection)





DataGrid1.DataSource = GetFlights(lstAircraft.SelectedValue)


DataGrid1.DataBind()


End Sub


*********************************************************************************************************************





Function GetFlights(ByVal ID As Integer) As System.Data.DataSet


Dim connectionString As String = "connection info"


Dim dbConnection As System.Data.IDbConnection = New System.Data.SqlClient.SqlConnection(connectionString)





Dim queryString As String = "SELECT [Flights].[toLocation], [Flights].[startTime], [tbl_FileNames].[ID], [Flig" & _


"hts].[fromLocation], [tbl_FileNames].[filename], [tbl_FileNames].[Local_1], [Fli" & _


"ghts].[AircraftID], [Flights].[landingTime], [tbl_FileNames].[VSU] FROM [Flights" & _


"], [tbl_FileNames], [tbl_VSU] WHERE (([Flights].[ID] = [tbl_VSU].[flight_id]) AN" & _


"D ([tbl_VSU].[filename_id] = [tbl_FileNames].[ID]))"


Dim dbCommand As System.Data.IDbCommand = New System.Data.SqlClient.SqlCommand


dbCommand.CommandText = queryString


dbCommand.Connection = dbConnection





Dim dataAdapter As System.Data.IDbDataAdapter = New System.Data.SqlClient.SqlDataAdapter


dataAdapter.SelectCommand = dbCommand


Dim dataSet As System.Data.DataSet = New System.Data.DataSet


dataAdapter.Fill(dataSet)





Return dataSet


End Function





Private Sub img_cal1_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles img_cal1.Click


'this will make the calendar for start visible when clicked and not visible if clicked again


Session("Cal1") = True


Session("Cal2") = False


Me.Calendar1.Visible = True


End Sub








Private Sub img_cal2_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles img_cal2.Click


'this will make the calendar for end visible when clicked and not visible if clicked again


Session("Cal2") = True


Session("Cal1") = False


Me.Calendar1.Visible = True





End Sub





Private Sub Calendar1_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Calendar1.SelectionChanged


'this will put the date selected in my text box as a short date


If Session("Cal1") = True Then


txtStart.Text = Calendar1.SelectedDate.ToShortDateString


Session("Cal1") = False


ElseIf Session("Cal2") = True Then


txtEnd.Text = Calendar1.SelectedDate.ToShortDateString


Session("Cal2") = False


End If


Me.Calendar1.Visible = False





End Sub








End Class