Search By Date

[rex028]

Private Sub GetPO()

		Dim fromdate As Date
		fromdate = cboPOsearchTD.Text + "/" + cboPOsearchTM.Text + "/" + cboPOsearchTY.Text
		

		objDS.Clear()
		objDS = objUser.Search_tblUser("Select * from tbl_PURCHASE where Order_Date = 'fromdate'")
	  
		Try
			dgPOSearch.DataSource = objDS.Tables(0)
		Catch ex As Exception

		End Try

	End Sub

I've got a Format Error while execute this function !!

How Come ??

 

[TPM]

Yes I know, I'm telling you how to do everything Paszt & I said.

 

[rex028]

yea ~ i've done .. but still dun work !! :*_*:

 

[TPM]

Did you do this? : Add a break in your code and step through each line to find which line is giving you the error, and see what your Dim's are set too.

If so which line is causeing the error etc?

 

[rex028]

Error in SearchDataSet Error No. 5 : Format mismatch

  Private Sub GetPO()
		Dim fromdate As String
		Dim fromday As Date
		fromday = cboPOsearchTD.Text & "/" & cboPOsearchTM.Text & "/" & cboPOsearchTY.Text
		txtPOsearchBranchID.Text = fromday

		If cbSearchAll.Checked Then
			objDS.Clear()
			objDS = objUser.Search_tblUser("Select * from tbl_PURCHASE ")
		Else
			objDS.Clear()
			objDS = objUser.Search_tblUser("Select * from tbl_PURCHASE where Order_Date = '" & fromday & "'")
			Try
				dgPOSearch.DataSource = objDS.Tables(0)
			Catch ex As Exception
			End Try
		End If
	End Sub

 Public Function Search_tblUser(ByVal strSQL As String) As DataSet
		Try
			Search_tblUser = objDataAdapter.SearchDataSet(strSQL)
		Catch ex As Exception
		End Try
	End Function

   Public Function SearchDataSet(ByVal strSQL As String) As DataSet
		SetConnectString()
		'Initialize DataAdapter with SQL and connection string
		mobjDA = New OleDb.OleDbDataAdapter(strSQL, strConnect)
		mobjCB = New OleDb.OleDbCommandBuilder(mobjDA)
		objDS.Clear()
 
		'Fill in DataSet
		Try
			mobjDA.Fill(objDS)
			SearchDataSet = objDS 'Return dataset
		Catch ex As Exception
			str = "Error in SearchDataSet. Error No. " & Err.Number & " : " & Err.Description
			GetErrorMessage(str)
			Exit Function
		End Try
	End Function

 

[Paszt]

Dates often need to be enclosed in pound signs (#). Try changing this line:

objDS = objUser.Search_tblUser("Select * from tbl_PURCHASE where Order_Date = '" & fromday & "'")

To this:

objDS = objUser.Search_tblUser("Select * from tbl_PURCHASE where Order_Date = #" & fromday & "#")

 

[rex028]

COOL !!! it works ~
Thanks alot Paszt !!!
can i kiss you ????? *KISSED* !!!
thanks a LOT !!!
I LOVE YOU MAN!!!!!!!!!!!! *0*

 

[rex028]

i got another problem in this again ...

when i search 15/12/2004 ... it can shows the Record that match it ...

but when i search 9/12/2004 it shows nothing ...

i think the problem is 09/12/2004 ... but even i add "0" in the day ... it still dun work ...