محبوبترینها
نمایش جنگ دینامیت شو در تهران [از بیوگرافی میلاد صالح پور تا خرید بلیط]
9 روش جرم گیری ماشین لباسشویی سامسونگ برای از بین بردن بوی بد
ساندویچ پانل: بهترین گزینه برای ساخت و ساز سریع
خرید بیمه، استعلام و مقایسه انواع بیمه درمان ✅?
پروازهای مشهد به دبی چه زمانی ارزان می‌شوند؟
تجربه غذاهای فرانسوی در قلب پاریس بهترین رستوران‌ها و کافه‌ها
دلایل زنگ زدن فلزات و روش های جلوگیری از آن
خرید بلیط چارتر هواپیمایی ماهان _ ماهان گشت
سیگنال در ترید چیست؟ بررسی انواع سیگنال در ترید
بهترین هدیه تولد برای متولدین زمستان: هدیه‌های کاربردی برای روزهای سرد
در خرید پارچه برزنتی به چه نکاتی باید توجه کنیم؟
صفحه اول
آرشیو مطالب
ورود/عضویت
هواشناسی
قیمت طلا سکه و ارز
قیمت خودرو
مطالب در سایت شما
تبادل لینک
ارتباط با ما
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
آمار وبسایت
تعداد کل بازدیدها :
1828737418
مشكل در ازتباط با ديتابيس -
واضح آرشیو وب فارسی:سایت ریسک: مشكل در ازتباط با ديتابيس 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]
[تعداد بازديد از اين مطلب: 303]
-
گوناگون
پربازدیدترینها