Strange Problem W/ SQL Query

Okay... here's the deal...





I have two pages that Im using the same query out of... one page returns results, the other page returns an error... SOMEBODY HELP!!! I just need a hint if nothing more!!!





The Error:


System.Data.SqlClient.SqlException: Line 1: Incorrect syntax near 'WHERE'.


at System.Data.SqlClient.SqlCommand.ExecuteReader(CommandBehavior cmdBehavior, RunBehavior runBehavior, Boolean returnStream)


at System.Data.SqlClient.SqlCommand.ExecuteReader()


at Global.Default_Search(Object Sender, EventArgs e) in C:InetpubwwwrootChampionRealtyINFOprojecttrackingglobal.vb:line 206





The SQL Query:





SELECT PT_JobCat.JobCat, PT_Job.JobID, PT_Job.Created, PT_Status.Status,


Offices.Name, Employees.First + ' ' + Employees.Last AS EmpName


FROM PT_Job


INNER JOIN PT_JobCat ON PT_Job.CatID = PT_JobCat.CatID


INNER JOIN PT_Status ON PT_Job.StatusID = PT_Status.StatusID


INNER JOIN PT_Assign ON PT_Job.JobID = PT_Assign.JobID


INNER JOIN Employees ON PT_Assign.AgentID = Employees.ID


INNER JOIN PT_Office ON PT_Job.JobID = PT_Office.JobID


INNER JOIN Offices ON PT_Office.Office_ID = Offices.ID


WHERE PT_Job.JobID=1








The SQL Query Output By ASP.NET: (When an error is produced on the trouble page)





SELECT PT_JobCat.JobCat, PT_Job.JobID, PT_Job.Created, PT_Status.Status,


Offices.Name AS OfficeName, Employees.First + ' ' + Employees.Last AS EmpName


FROM PT_Job


INNER JOIN PT_JobCat ON PT_Job.CatID = PT_JobCat.CatID


INNER JOIN PT_Status ON PT_Job.StatusID = PT_Status.StatusID


INNER JOIN PT_Assign ON PT_Job.JobID = PT_Assign.JobID


INNER JOIN Employees ON PT_Assign.AgentID = Employees.ID


INNER JOIN PT_Office ON PT_Job.JobID = PT_Office.JobID


INNER JOIN Offices ON PT_Office.Office_ID = Offices.ID


WHERE JobID=1








The Trouble Page:





Public Sub Default_Search(ByVal Sender As Object, ByVal e As EventArgs)


dim NeedAnd as boolean = False


dim strSQL as string = "SELECT PT_JobCat.JobCat, PT_Job.JobID, PT_Job.Created, PT_Status.Status, " & _


"Offices.Name AS OfficeName, Employees.First + ' ' + Employees.Last AS EmpName " & _


"FROM PT_Job " & _


"INNER JOIN PT_JobCat ON PT_Job.CatID = PT_JobCat.CatID " & _


"INNER JOIN PT_Status ON PT_Job.StatusID = PT_Status.StatusID " & _


"INNER JOIN PT_Assign ON PT_Job.JobID = PT_Assign.JobID " & _


"INNER JOIN Employees ON PT_Assign.AgentID = Employees.ID " & _


"INNER JOIN PT_Office ON PT_Job.JobID = PT_Office.JobID " & _


"INNER JOIN Offices ON PT_Office.Office_ID = Offices.ID " & _


"WHERE "


dim C as New SQLCommand(strSQL, Conn)


dim DR as SQLDataReader


If txtJobNum.Text <> Nothing Then


strSQL += "JobID=" & CInt(txtJobNum.Text) & " "


NeedAnd = True


End If


If ddlJobType.SelectedItem.Value <> Nothing Then


If NeedAnd Then strSQL += "AND "


strSQL += "CatID=" & ddlJobType.SelectedItem.Value & " "


NeedAnd = True


End If


If txtCreated.Text <> Nothing Then


If NeedAnd Then strSQL += "AND "


strSQL += "PT_Job.Created LIKE '" & txtCreated.Text & "' "


NeedAnd = True


End If


If ddlStatus.SelectedItem.Value <> Nothing Then


If NeedAnd Then strSQL += "AND "


strSQL += "PT_Job.Status=" & ddlStatus.SelectedItem.Value & " "


NeedAnd = True


End If


If ddlAssign.SelectedItem.Value <> Nothing Then


If NeedAnd Then strSQL += "AND "


strSQL += "Employees.ID=" & ddlAssign.SelectedItem.Value & " "


NeedAnd = True


End If


If ddlOffice.SelectedItem.Value <> Nothing Then


If NeedAnd Then strSQL += "AND "


strSQL += "Offices.ID=" & ddlOffice.SelectedItem.Value & " "


NeedAnd = True


End If





response.write(strSQL)





Conn.Open


Try


DR = C.ExecuteReader


If DR.Read Then


rptResults.Datasource = DR


rptResults.Databind


End If


DR.Close


Catch Exc as Exception


'ErrorAlert(Exc, strSQL)


response.write("<p>" & Exc.ToString.Replace(Environment.NewLine(), "<br />") & "</p>")


End Try


Conn.Close





End Sub








The Page That Works:





Sub LoadResults(ByVal Sender As Object, ByVal e As EventArgs)





' Clean up some things...


txtError.Visible = False


txtError.Text = Nothing





' Create database interaction objects...


dim Conn as Object


dim C as Object


dim DR





' Set database interaction objects...


Select Case CInt(DBType.SelectedItem.Value)


Case 0


Conn = New SQLConnection(txtConnString.Text)


C = New SQLCommand(txtSQL.Text, Conn)


Case 1


Conn = New OleDbConnection(txtConnString.Text)


C = New OleDbCommand(txtSQL.Text, Conn)


Case Else


txtError.Visible = True


txtError.Text = "Whoa... wierd error d00d... o.0"


End Select





' Open the database for reading...


Conn.Open





Try





' Load the datagrid with any information retrieved...


Select Case CInt(CommType.SelectedItem.Value)


Case 0


DR = C.ExecuteReader()


dgResults.Datasource = DR


dgResults.Databind


DR.Close


Case 1


C.ExecuteNonQuery()


Case Else


txtError.Visible = True


txtError.Text = "That's some funky ****..."


End Select





Catch Exc As Exception





' Make the error viewable so we know what went on...


txtError.Visible = True


txtError.Text = Exc.ToString





End Try





' Close the connection to the database...


Conn.Close





End Sub