محبوبترینها
قیمت دیگ بخار و تولیدکننده اصلی دیگ بخار
معروف‌ترین هدیه و سوغاتی یزد مشخص شد!
آشنایی با انواع دوربین مداربسته ضد آب
پرداخت اینترنتی قبوض ساختمان (پرداخت قبض گاز، برق و آب)
بهترین دوره آموزش سئو محتوا در سال 1403 با نام طوفان ۱۴۰۳ در فروردین ماه شروع می شود
یک صرافی ارز دیجیتال چه امکاناتی باید داشته باشد؟
تعمیرگاه مجاز تعمیر ماشین لباسشویی در شرق تهران
تعمیرگاه مجاز تعمیر ماشین لباسشویی در شرق تهران
جراحی و درمان ریشه دندان عفونی با خانم دکتر صفوراامامی
چه مواردی بر قیمت کابین دوش حمام تاثیر دارند؟
صفحه اول
آرشیو مطالب
ورود/عضویت
هواشناسی
قیمت طلا سکه و ارز
قیمت خودرو
مطالب در سایت شما
تبادل لینک
ارتباط با ما
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
آمار وبسایت
تعداد کل بازدیدها :
1797946467
مشكل در ازتباط با ديتابيس -
واضح آرشیو وب فارسی:سایت ریسک: مشكل در ازتباط با ديتابيس 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 قرار داده شده شما به این سایت مهر تأیید میزنید و به دوستانتان در صفحه جستجوی گوگل دیدن این سایت را پیشنهاد میکنید که این امر خود باعث افزایش رتبه سایت در گوگل میشود
این صفحه را در گوگل محبوب کنید
[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 298]
-
گوناگون
پربازدیدترینها