پرچم تشریفات با کیفیت بالا و قیمت ارزان
پرواز از نگاه دکتر ماکان آریا پارسا
دکتر علی پرند فوق تخصص جراحی پلاستیک
تجهیزات و دستگاه های کلینیک زیبایی
سررسید تبلیغاتی 1404 چگونه می‌تواند برندینگ کسب‌وکارتان را تقویت کند؟
چگونه با ثبت آگهی رایگان در سایت های نیازمندیها، کسب و کارتان را به دیگران معرفی کنید؟
بهترین لوله برای لوله کشی آب ساختمان
دانلود آهنگ های برتر ایرانی و خارجی 2024
ماندگاری بیشتر محصولات باغ شما با این روش ساده!
بارش‌های سیل‌آسا در راه است! آیا خانه شما آماده است؟
بارش‌های سیل‌آسا در راه است! آیا خانه شما آماده است؟
قیمت انواع دستگاه تصفیه آب خانگی در ایران
نمایش جنگ دینامیت شو در تهران [از بیوگرافی میلاد صالح پور تا خرید بلیط]
9 روش جرم گیری ماشین لباسشویی سامسونگ برای از بین بردن بوی بد
ساندویچ پانل: بهترین گزینه برای ساخت و ساز سریع
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
تعداد کل بازدیدها :
1851464363
مشكل در ازتباط با ديتابيس -
واضح آرشیو وب فارسی:سایت ریسک: مشكل در ازتباط با ديتابيس hatam64 24 دي 1389, 02:34سلام دوستان خسته نباشيد من پروژمو بايد دوروز ديگه تحويل بدم ما توي ارتباط با ديتابيسم گير كردم ديتابيسم : Access زبان برنامه نويسيم : vb.net 2008 ارتباطم برقرار ميشه اما روي يه ركورد ميمونه و توي همه جدول نميگرده.توي حلقه هم گذاشتمش اما بازم فايده نداشت.با SQL Server تست كردم بازم همين مشكلو داشت احساس ميكنم كدم مشكل داره واسه همين اينجا ميذارمش هركي بتونه كمكم كنه ممنون ميشم.مرسي دوستاي گلم:rose: اول صفحه اينارو وارد ميكنم Imports System Imports System.Data Imports System.Data.Common Imports System.Data.OleDb توي event دكمه هم اينا رو ميذارم Dim dars As String dars = search_txt.Text Dim connectString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:Moradimoradi.mdb" Dim cn As OleDbConnection = New OleDbConnection(connectString) cn.Open() Dim selectString As String = "SELECT * from doroos " Dim cmd As OleDbCommand = New OleDbCommand(selectString, cn) Dim reader As OleDbDataReader = cmd.ExecuteReader Do While reader.Read() If reader("dars") = dars Then no.Visible = False result.Visible = True dars_l.Visible = True hamniaz_l.Visible = True pishniaz_l.Visible = True dars_l.Text = reader("dars") hamniaz_l.Text = reader("hamniaz") pishniaz_l.Text = reader("pishniaz") Else result.Visible = False no.Visible = True no.Text = "نتيجه اي يافت نشد" End If Loop search_panel.Visible = True reader.Close() cn.Close() jefri600 30 دي 1389, 22:26با سلام خوب شما باید بعد از گرفتن مقدار یک فیلد اون رو تبدیل کنید چون باید از حالت آبجکت در بیاد وبه حالت متن تغییر پیدا کنه If reader("dars").ToString() = dars Then امتحان کنید ببینید درست می شه سایت ما را در گوگل محبوب کنید با کلیک روی دکمه ای که در سمت چپ این منو با عنوان +1 قرار داده شده شما به این سایت مهر تأیید میزنید و به دوستانتان در صفحه جستجوی گوگل دیدن این سایت را پیشنهاد میکنید که این امر خود باعث افزایش رتبه سایت در گوگل میشود
این صفحه را در گوگل محبوب کنید
-