View Full Version : سوال: جستجو بین دو تاریخ
ma.andishe
چهارشنبه 29 اردیبهشت 1389, 13:50 عصر
چطوری میشه بین 2 فیلد تاریخ که به صورت varchar در دیتا بیس هتسند سرچ انجام بدیم
من اینجور نوشتم ولی errorتغییر نوع دیتا را میده
sql = "SELECT * FROM table WHERE ((end_date >= " & mask.Text & ") AND (start_date >= " & mask.Text & "))"
arsalansalar
چهارشنبه 29 اردیبهشت 1389, 14:15 عصر
اين طوري بنويس:
"select *from table where dat >= '" & FaD1.Text & "' And dat <= '" & FaD2.Text & "'
نوعشم nvarchar كن
mhmoein
چهارشنبه 29 اردیبهشت 1389, 14:23 عصر
دوست عزیز کدت رو به این صورت اطلاح کن :
sql = "SELECT * FROM table WHERE end_date >='" & mask.Text & "' AND start_date >='" & mask.Text & "'"
موفق باشی
ma.andishe
چهارشنبه 29 اردیبهشت 1389, 14:25 عصر
داخل فرم 1 mask.text هست ولی داخل دیتا بیس 2 تا فیلد تاریخ ثبت میشود
mhmoein
چهارشنبه 29 اردیبهشت 1389, 14:28 عصر
دوست عزیز اگر اینطور باشه هر تاریخی که تو این Masktext بنویسی تو دیتابیس جستجو می کنه و مقادیر برابر با اونها رو میاره ولی بهتره از 2 تا mask استفاده کنی تا بتونی جستجوی بهتر و دقیقتری انجام بدی.
ma.andishe
چهارشنبه 29 اردیبهشت 1389, 14:38 عصر
دوست عزیز اگر اینطور باشه هر تاریخی که تو این Masktext بنویسی تو دیتابیس جستجو می کنه و مقادیر برابر با اونها رو میاره ولی بهتره از 2 تا mask استفاده کنی تا بتونی جستجوی بهتر و دقیقتری انجام بدی.
شرایط برنامه جوری که باید 1 mask باشه اما منظورت از اینکه هر تاریخی رو بنویسی سرچ میکنه؟
ضمنا دست درد نکنه اما تاریخ رو کمی بیشتر از محدوده ای که باید بدست بیاره پیدا میکنه
ma.andishe
چهارشنبه 29 اردیبهشت 1389, 14:55 عصر
حل شد دست شما درد نکنه
mhmoein
چهارشنبه 29 اردیبهشت 1389, 15:08 عصر
با این کد دقیقا همون چیز رو که می خوای میاره :
sql = "SELECT * FROM table WHERE end_date ='" & mask.Text & "' AND start_date ='" & mask.Text & "'"
dimo124
پنج شنبه 30 اردیبهشت 1389, 00:45 صبح
سلام دوستان
لطفا یکی راهمنایی کنه یک ستون در دیتا گرید را چطور میشه جمع زد؟
mhmoein
پنج شنبه 30 اردیبهشت 1389, 00:50 صبح
سلام
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim tot As Integer = 0
For i As Integer = 0 To DataGridView1.RowCount - 1
If DataGridView1.Rows(i).Cells(1).Value = txtName.Text Then
tot += DataGridView1.Rows(i).Cells(2).Value
End If
Next
If tot = 0 Then
MessageBox.Show("No Records Found")
End If
txtTotal.Text = tot
End Sub
موفق باشی
mhmoein
پنج شنبه 30 اردیبهشت 1389, 00:57 صبح
این تاپیک هم می تونه برات به درد بخور باشه :
http://barnamenevis.org/forum/showthread.php?t=153083
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.