PDA

View Full Version : سوال: جستجو بین دو تاریخ



ma.andishe
چهارشنبه 29 اردیبهشت 1389, 12:50 عصر
چطوری میشه بین 2 فیلد تاریخ که به صورت varchar در دیتا بیس هتسند سرچ انجام بدیم
من اینجور نوشتم ولی errorتغییر نوع دیتا را میده




sql = "SELECT * FROM table WHERE ((end_date >= " & mask.Text & ") AND (start_date >= " & mask.Text & "))"

arsalansalar
چهارشنبه 29 اردیبهشت 1389, 13:15 عصر
اين طوري بنويس:

"select *from table where dat >= '" & FaD1.Text & "' And dat <= '" & FaD2.Text & "'
نوعشم nvarchar كن

mhmoein
چهارشنبه 29 اردیبهشت 1389, 13:23 عصر
دوست عزیز کدت رو به این صورت اطلاح کن :


sql = "SELECT * FROM table WHERE end_date >='" & mask.Text & "' AND start_date >='" & mask.Text & "'"

موفق باشی

ma.andishe
چهارشنبه 29 اردیبهشت 1389, 13:25 عصر
داخل فرم 1 mask.text هست ولی داخل دیتا بیس 2 تا فیلد تاریخ ثبت میشود

mhmoein
چهارشنبه 29 اردیبهشت 1389, 13:28 عصر
دوست عزیز اگر اینطور باشه هر تاریخی که تو این Masktext بنویسی تو دیتابیس جستجو می کنه و مقادیر برابر با اونها رو میاره ولی بهتره از 2 تا mask استفاده کنی تا بتونی جستجوی بهتر و دقیقتری انجام بدی.

ma.andishe
چهارشنبه 29 اردیبهشت 1389, 13:38 عصر
دوست عزیز اگر اینطور باشه هر تاریخی که تو این Masktext بنویسی تو دیتابیس جستجو می کنه و مقادیر برابر با اونها رو میاره ولی بهتره از 2 تا mask استفاده کنی تا بتونی جستجوی بهتر و دقیقتری انجام بدی.

شرایط برنامه جوری که باید 1 mask باشه اما منظورت از اینکه هر تاریخی رو بنویسی سرچ میکنه؟
ضمنا دست درد نکنه اما تاریخ رو کمی بیشتر از محدوده ای که باید بدست بیاره پیدا میکنه

ma.andishe
چهارشنبه 29 اردیبهشت 1389, 13:55 عصر
حل شد دست شما درد نکنه

mhmoein
چهارشنبه 29 اردیبهشت 1389, 14:08 عصر
با این کد دقیقا همون چیز رو که می خوای میاره :


sql = "SELECT * FROM table WHERE end_date ='" & mask.Text & "' AND start_date ='" & mask.Text & "'"

dimo124
چهارشنبه 29 اردیبهشت 1389, 23:45 عصر
سلام دوستان
لطفا یکی راهمنایی کنه یک ستون در دیتا گرید را چطور میشه جمع زد؟

mhmoein
چهارشنبه 29 اردیبهشت 1389, 23: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
چهارشنبه 29 اردیبهشت 1389, 23:57 عصر
این تاپیک هم می تونه برات به درد بخور باشه :

http://barnamenevis.org/forum/showthread.php?t=153083