كد جستجو در ديتا بيس

[star4000]

با سلام من يه برنامه نوشتم كه اطلاعات يك شخص رو وارد ديتا بيس ميكنه خيلي ساده ديتابيسم اكسس هستش و توسط ديتا سورس اطلاعات رو اد ميكنم الان ميخوام يه دكمه جستجو بزارم تا وقتي اسم يك نفر رو جستجو كنم تو ديتا بيس پيدا كنه و نشون بده گه كدي بايد بزارم؟

[mmd2009]

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

این کد جستجو هستش در اکسس

اگه مشکلی داشتی باز بگو




dim star as new oledbconnection
star.connectionstring = "provider=microsoft.jet.oledb.4.0;data source= (ادرس بانک)"
star.open
'---------------------------------
dim cmd as new oledbconnection
cmd.commantext= "select * from ("نام جدول") where name=" + txtname.text +""
cmd.connection = star
'-----------------------------------
dim re as olebddatareader
re= cmd.Executereader
if re.read then

msgbox ("کاربر پیدا شد")
' ایجا میتونی بگی مثلا جعبه متن نام خانوادگی بشه فیلد نام خانوادگی مثل پایین
txtfamily.text = re("family").tostring
else

msgbox("کاربری پیدا نشد")
end if
star.close

[star4000]

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

این کد جستجو هستش در اکسس

اگه مشکلی داشتی باز بگو




dim star as new oledbconnection
star.connectionstring = "provider=microsoft.jet.oledb.4.0;data source= (ادرس بانک)"
star.open
'---------------------------------
dim cmd as new oledbconnection
cmd.commantext= "select * from ("نام جدول") where name=" + txtname.text +""
cmd.connection = star
'-----------------------------------
dim re as olebddatareader
re= cmd.Executereader
if re.read then


msgbox ("کاربر پیدا شد")
' ایجا میتونی بگی مثلا جعبه متن نام خانوادگی بشه فیلد نام خانوادگی مثل پایین
txtfamily.text = re("family").tostring
else


msgbox("کاربری پیدا نشد")
end if
star.close




دوست عزيز من يه پروزه ساده حاضر كردم كه يه قسمت جستجو داره اگه لطف كنيد براي اين برنامه كد جستجو بنويسيد منون ميشم:
لينك برنامه:http://rapidshare.com/files/346227112/WindowsApplication1.rar.html

[mmd2009]

دوست عزیز من مشکلی ندارم که واست بنویسمش

حالا بگو با چه نرم افزاری نوشتی خودت من vs2005 رو دارم شما با چند نوشتیش؟

[star4000]

دوست عزیز من مشکلی ندارم که واست بنویسمش

حالا بگو با چه نرم افزاری نوشتی خودت من vs2005 رو دارم شما با چند نوشتیش؟

من با vb2008 نوشتم

[mmd2009]

پس نمیشه متاسفام

[star4000]

پس نمیشه متاسفام
خوب لااقل يكم كمك كنيد مگه vb2008 با vb2005 چقدر فرق ميكنه؟

[karim orooji]

با سلام به دوس گرامی
برای جستجو میتونی از filter استفاده کنی
اگه به نتیجه ای نرسیدی بگو برات یک نمونه مثال بزارم

[Reza Safa]

سلام دوستان من همان روش mmd2009 را صحیح می دانم
و هیچ گونه ربطی به نوع ویژوال استدیو هم نداره
با همون می تونی کار کنی

[arsalansalar]

چه ربطی به ورژن ویژوال استادیو داره؟کد کده دیگه.:قهقهه:
مثال تو سايت زياده

[star4000]

با سلام به دوس گرامی
برای جستجو میتونی از filter استفاده کنی
اگه به نتیجه ای نرسیدی بگو برات یک نمونه مثال بزارم

دوست عزيز اگه زحمت نباشه اين فيلتر رو روي مثالي كه در پست 3 گذاشتم اعمال كنيد ممنون ميشم

[karim orooji]

با سلام به دوست گرامی

دوست عزیز اگه زحمت نباشه این فیلتر رو روی مثالی که در پست 3 گذاشتم اعمال کنید ممنون میشم
اونش به عهده خودت
در این برنامه ابتدا مبنای جستجو رو انتخاب کن
سپس کلمه مربوط رو در تکس تایپ کن

اگه باز هم مشکلی بود
من در خدمتم
موفق باشی

[star4000]

با سلام به دوست گرامی

اونش به عهده خودت
در این برنامه ابتدا مبنای جستجو رو انتخاب کن
سپس کلمه مربوط رو در تکس تایپ کن

اگه باز هم مشکلی بود
من در خدمتم
موفق باشی
با تشكر از شما مشكل حل شد فقط يه سوال چرا وقتي اسم كالا رو كامل مينويسم براي جستجو چيزي پيدا نميكنه ولي وقتي 2 يا 3 حرف اول رو ميزنم پيدا ميكنه؟

[star4000]

با سلام به دوست گرامی

اونش به عهده خودت
در این برنامه ابتدا مبنای جستجو رو انتخاب کن
سپس کلمه مربوط رو در تکس تایپ کن

اگه باز هم مشکلی بود
من در خدمتم
موفق باشی
دوست عزيز اگه امكان داشته باشه رو پروژه خودم پياده سازي كنيد ممنون ميشم من از
table1datagride استفاده كردم متشكر

[karim orooji]

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