clupcd
یک شنبه 26 آذر 1391, 10:54 صبح
با سلام من توابع دست ساز محاسبه تاریخ یک ماه قبل -سه ماه قبل-6 ماه قبل و یک سال قبل رو مخوام
من با توابع خود وی بی چنین نوشتم تاریخ رو بر میگردونه ولی از پایگاه واکشی نمیکنه در فیلد سرچ بر اساس تاریخ هم اگر تاریخ کامل بدم نمیاره یا باید روز بدم یا ماه یا سال اونوقت میاره
این کد سرچ یک ماه قبله ولی واکشی نمیکنه :
Private Sub RadioSr1Month_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioSr1Month.CheckedChanged
Dim monthghabl As Integer
Dim sal As Integer
monthghabl = Month(Date.Now) - 1
sal = Year(Date.Now)
con = New SqlConnection(strCon)
da = New SqlDataAdapter("Select * from tblTarakonesh where Tarikh Like '%" & sal & "/11/" & monthghabl & "%'", con)
ds.Clear()
da.Fill(ds, "tbltarakonesh")
End Sub
اساتید بزرگوار ممنون میشم از کمکتون
اینم کد سرچ تاریخم :Case Is = 6 'tarikh
da = New SqlDataAdapter("Select Code,Name,Pardakht,Daryaft,Gorooh,Tozihat,Tarikh,t otal from tblTarakonesh where Tarikh Like '" & "%" & txtSearch.Text & "%'", con)
ds.Clear()
da.Fill(ds, "tbltarakonesh")
End Select
من با توابع خود وی بی چنین نوشتم تاریخ رو بر میگردونه ولی از پایگاه واکشی نمیکنه در فیلد سرچ بر اساس تاریخ هم اگر تاریخ کامل بدم نمیاره یا باید روز بدم یا ماه یا سال اونوقت میاره
این کد سرچ یک ماه قبله ولی واکشی نمیکنه :
Private Sub RadioSr1Month_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioSr1Month.CheckedChanged
Dim monthghabl As Integer
Dim sal As Integer
monthghabl = Month(Date.Now) - 1
sal = Year(Date.Now)
con = New SqlConnection(strCon)
da = New SqlDataAdapter("Select * from tblTarakonesh where Tarikh Like '%" & sal & "/11/" & monthghabl & "%'", con)
ds.Clear()
da.Fill(ds, "tbltarakonesh")
End Sub
اساتید بزرگوار ممنون میشم از کمکتون
اینم کد سرچ تاریخم :Case Is = 6 'tarikh
da = New SqlDataAdapter("Select Code,Name,Pardakht,Daryaft,Gorooh,Tozihat,Tarikh,t otal from tblTarakonesh where Tarikh Like '" & "%" & txtSearch.Text & "%'", con)
ds.Clear()
da.Fill(ds, "tbltarakonesh")
End Select