جستجو در دیتا بیس بترتیب اولویت

[nasim bahari]

سلام دوست عزیز.............

ملاک این سایت تعداد پست ها و یا تایپیک های ایجاد شده توسط کاربرانش برای حذف پست های اونها نمی باشد.......برای حذف تایپیک هات می تونی قوانین سایت رو مطالعه کنی.

در ضمن امیدوارم که این نفرین هایی رو که کردی در مورد من نباشه.....آخه من مدیر تالار نمی باشم....و پست هات رو حذف نکرده ام.....اگه یه کم دقت کنی می بینی که تنها کسی که داره جواب میده من هستم.

لطفاً برنامه رو بذار تا تکمیلش کنم.....

موفق باشی....

[MehdiElexal]

سلام دوست عزیز.............

ملاک این سایت تعداد پست ها و یا تایپیک های ایجاد شده توسط کاربرانش برای حذف پست های اونها نمی باشد.......برای حذف تایپیک هات می تونی قوانین سایت رو مطالعه کنی.

در ضمن امیدوارم که این نفرین هایی رو که کردی در مورد من نباشه.....آخه من مدیر تالار نمی باشم....و پست هات رو حذف نکرده ام.....اگه یه کم دقت کنی می بینی که تنها کسی که داره جواب میده من هستم.

لطفاً برنامه رو بذار تا تکمیلش کنم.....

موفق باشی....

سلام
گذاشتم برنامه رو
خیلی ممنون که پیگیری میکنید
تشکر

[nasim bahari]

سلام دوست عزیز

من با VS2008 کار می کنم در حالی که شما با 2005 پس برای این که مشکلی پیش نیاد . کدها رو می زام خودت زحمتش رو بکش و در برنامه قرار بده.

در درون دکمه جستجو این کد رو قرار بده......

 'دوست عزیز لطفاًدر تعریف جداول برای اسم فیلد ها از حروف انگلیسی استفاده کن

        'شما بجای Name باید نام و نام خانوادگی که اسن فیلدتون هست قرار بدین







        If TextBox1.Text = "" And TextBox2.Text = "" Then



            Me.BedehiBindingSource.Filter = "name like '%%'"



        ElseIf TextBox1.Text <> "" And TextBox2.Text <> "" Then



            Me.BedehiBindingSource.Filter = "name like '%" & TextBox1.Text & "%' and tarikh ='" & TextBox2.Text & "'"



        ElseIf TextBox1.Text <> "" And TextBox2.Text = "" Then



            Me.BedehiBindingSource.Filter = "name like '%" & TextBox1.Text & "%'"



        ElseIf TextBox1.Text = "" And TextBox2.Text <> "" Then



            Me.BedehiBindingSource.Filter = "tarikh ='" & TextBox2.Text & "'"



        End If

موفق باشین

[MehdiElexal]

سلام دوست عزیز

من با VS2008 کار می کنم در حالی که شما با 2005 پس برای این که مشکلی پیش نیاد . کدها رو می زام خودت زحمتش رو بکش و در برنامه قرار بده.

در درون دکمه جستجو این کد رو قرار بده......

 'دوست عزیز لطفاًدر تعریف جداول برای اسم فیلد ها از حروف انگلیسی استفاده کن

        'شما بجای Name باید نام و نام خانوادگی که اسن فیلدتون هست قرار بدین







        If TextBox1.Text = "" And TextBox2.Text = "" Then



            Me.BedehiBindingSource.Filter = "name like '%%'"



        ElseIf TextBox1.Text <> "" And TextBox2.Text <> "" Then



            Me.BedehiBindingSource.Filter = "name like '%" & TextBox1.Text & "%' and tarikh ='" & TextBox2.Text & "'"



        ElseIf TextBox1.Text <> "" And TextBox2.Text = "" Then



            Me.BedehiBindingSource.Filter = "name like '%" & TextBox1.Text & "%'"



        ElseIf TextBox1.Text = "" And TextBox2.Text <> "" Then



            Me.BedehiBindingSource.Filter = "tarikh ='" & TextBox2.Text & "'"



        End If

موفق باشین

به همین وقت عزیز ایشالا هر چی میخوای خدا بهت بده

[MehdiElexal]

یه سوال دیگه ! با چه کدی میتونم نام Record هام رو تو دیتا گرید عوض کنم ؟
مثلا name نمایش داده بشه نام
ممنون

[MehdiElexal]

بازهم سوال
من شرط شمارو نوشتم خیلی خوب هم کار میکنه
الان میخوام 3 شرطیش کنم کد هم نوشتم نه اروری میده و نه چیزی سرچ هم نمیکنه
ممنون میشم یه نگاهی بندازید ، با تشکر

        If txtname.Text = "" And txtDate.Text = "" And txtPrice.Text = "" Then



            Me.BedehiBindingSource.Filter = "Name like '%%'"

            MessageBoxFa.Show("شما موردی را جستجو نکرده اید", "خطا", MessageBoxButtons.OK, MessageBoxIcon.Error)



        ElseIf txtname.Text <> "" And txtDate.Text <> "" And txtPrice.Text <> "" Then



            Me.BedehiBindingSource.Filter = "Name like '%" & txtname.Text & " and Date ='%" & txtDate.Text & "'"



        ElseIf txtname.Text <> "" And txtDate.Text = "" And txtPrice.Text = "" Then



            Me.BedehiBindingSource.Filter = "Name like '%" & txtname.Text & "%'"



        ElseIf txtname.Text = "" And txtDate.Text <> "" And txtPrice.Text = "" Then



            Me.BedehiBindingSource.Filter = "Date ='" & txtDate.Text & "'"



        ElseIf txtname.Text = "" And txtDate.Text = "" And txtPrice.Text <> "" Then



            Me.BedehiBindingSource.Filter = "Price ='" & txtPrice.Text & "'"

        End If

خودم احساس میکنم ایراد از این خط هست

            Me.BedehiBindingSource.Filter = "Name like '%" & txtname.Text & "%' and Date ='" & txtDate.Text & "'" 

منم دنبالش رو نوشتم منتها اینجا حذفش کردم

            Me.BedehiBindingSource.Filter = "Name like '%" & txtname.Text & "%' and Date ='" & txtDate.Text & "%' and Price ='" & txtPrice.Text & "'" 

به این صورت بود
بازم ممنون

[nasim bahari]

بازهم سوال
من شرط شمارو نوشتم خیلی خوب هم کار میکنه
الان میخوام 3 شرطیش کنم کد هم نوشتم نه اروری میده و نه چیزی سرچ هم نمیکنه
ممنون میشم یه نگاهی بندازید ، با تشکر

        If txtname.Text = "" And txtDate.Text = "" And txtPrice.Text = "" Then



            Me.BedehiBindingSource.Filter = "Name like '%%'"

            MessageBoxFa.Show("شما موردی را جستجو نکرده اید", "خطا", MessageBoxButtons.OK, MessageBoxIcon.Error)



        ElseIf txtname.Text <> "" And txtDate.Text <> "" And txtPrice.Text <> "" Then



            Me.BedehiBindingSource.Filter = "Name like '%" & txtname.Text & " and Date ='%" & txtDate.Text & "'"



        ElseIf txtname.Text <> "" And txtDate.Text = "" And txtPrice.Text = "" Then



            Me.BedehiBindingSource.Filter = "Name like '%" & txtname.Text & "%'"



        ElseIf txtname.Text = "" And txtDate.Text <> "" And txtPrice.Text = "" Then



            Me.BedehiBindingSource.Filter = "Date ='" & txtDate.Text & "'"



        ElseIf txtname.Text = "" And txtDate.Text = "" And txtPrice.Text <> "" Then



            Me.BedehiBindingSource.Filter = "Price ='" & txtPrice.Text & "'"

        End If

خودم احساس میکنم ایراد از این خط هست

            Me.BedehiBindingSource.Filter = "Name like '%" & txtname.Text & "%' and Date ='" & txtDate.Text & "'" 

منم دنبالش رو نوشتم منتها اینجا حذفش کردم

            Me.BedehiBindingSource.Filter = "Name like '%" & txtname.Text & "%' and Date ='" & txtDate.Text & "%' and Price ='" & txtPrice.Text & "'" 

به این صورت بود
بازم ممنون

سلام دوست عزیز....

اگه Error نمیده پس مشکل از کد ها نیست و منطق کار مشکل داره.....بررسی کن که در چه حالتی جواب می ده و در حالتی جواب نمی ده ؟

مثلاً چون شما سه تکست باکس برای جستجو دارین. بررسی کن که در حالت مثلاً وقتی هر ستا پر است جواب میده یا نه ؟ و اینکه وقتی خانه اول پره و دیگر تکست ها خالی هستند جواب می ده یا نه ؟ خلاصه کلیه حالات رو در نظر بگیر....


--------------------
دوست عزیز در این خط بعد از نام تکست باکس باید '% بذاری که نذاشتی....

 

Me.BedehiBindingSource.Filter = "Date ='" & txtDate.Text & "'"