::: در حال بارگیری لطفا صبر کنید :::

نام کاربری :   پسورد :



تابلو اعلانات

◘ نتایج مسابقات انتخاب مدیر برای انجمن ویدئو لرن ◘


تعداد بازدید : 1582
نویسنده پیام
hojat آفلاین



ارسال‌ها: 215
عضویت: 18 /3 /1393
تشکر ها: 266
تشکر شده: 148
مشکل در اتصال به دیتابیس
با سلام
این سورس کجایش مشکل دارد ؟
دانلود سورس

امضای کاربر :


یک صلوات بفرست دیگه ...
----------------------------------------------------------------------
پیامبر اکرم صلی الله علیه و آله می فرمایند : به وسيله من هشدار داده شديد و به وسيله على عليه ‏السلام هدايت مى ‏يابيد و به وسيله حسن احسان مى‏ شويد و به وسيله حسين خوشبخت مى ‏گرديد و بدون او بدبخت. بدانيد كه حسين درى از درهاى بهشت است، هر كس با او دشمنى كند، خداوند بوى بهشت را بر او حرام مى ‏كند.
----------------------------------------------------------------
چهارشنبه 27 خرداد 1394 - 16:18
ارسال پیام نقل قول تشکر / موافقم / آفرین گزارش
admin آفلاین



ارسال‌ها: 883
عضویت: 18 /3 /1393
تشکر ها: 734
تشکر شده: 671
مشکل در اتصال به دیتابیس
RE : 1
سلام
لطفا عکس ارور و خطی که ازش ارور گرفته میشه رو قرار بدید.
چهارشنبه 27 خرداد 1394 - 16:51
وب کاربر ارسال پیام نقل قول تشکر / موافقم / آفرین گزارش
tezmory آفلاین



ارسال‌ها: 142
عضویت: 23 /2 /1394
تشکر ها: 195
تشکر شده: 155
مشکل در اتصال به دیتابیس
RE : 3
سلام
من کد را دیدم
دیتابیس را از پوشه \Search Db osol kafi\Search Db osol kafi\Search Db\bin\Debug خارج کن بعد پوشه bin را کلا حذف کن
برنامه را اجرا کن تا دوباره بسازه بعد دیتابیس را سرجاش برگردون
بعد پوشه objرا هم همین کار و کن درست میشه
بعد از خط فرمان cn.open این دستور را اضافه کن(MsgBox(cn.State با اجرای برنامه مسیج باکسی ظاهر وعدد 1 را می دهد یعنی با دیتابیس
ارتباط برقرار است اشکال بعدی کد شما در قسمت oldr = cm.ExecuteReader که اگر درسته تا برم برای حل اون خبرشو بده

چهارشنبه 27 خرداد 1394 - 22:03
ارسال پیام نقل قول تشکر / موافقم / آفرین گزارش
2 کاربر از tezmory به خاطر این مطلب مفید تشکر کرده اند : admin , hojat ,
tezmory آفلاین



ارسال‌ها: 142
عضویت: 23 /2 /1394
تشکر ها: 195
تشکر شده: 155
مشکل در اتصال به دیتابیس
RE : 4
خب این هم قسمت آخرش
کد:
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\New Microsoft Access Database.accdb")
Dim cm As New OleDbCommand
Dim oldr As OleDbDataReader
Dim Table As New DataTable
cn.Open()
cm.Connection = cn
cm.CommandText = "SELECT ravi,arabic,persian FROM table1 WHERE num =" & TextBox1.Text & ""
oldr = cm.ExecuteReader
Table.Load(oldr)
If Table.Rows.Count > 0 Then
Label4.Text = Table.Rows(0).Item(0)
Label5.Text = Table.Rows(0).Item(1)
Label6.Text = Table.Rows(0).Item(2)
End If
cn.Close()
End Sub

تمام کد اصلاح شد
چهارشنبه 27 خرداد 1394 - 22:48
ارسال پیام نقل قول تشکر / موافقم / آفرین گزارش
3 کاربر از tezmory به خاطر این مطلب مفید تشکر کرده اند : hojat , karim_orooji , admin ,
hojat آفلاین



ارسال‌ها: 215
عضویت: 18 /3 /1393
تشکر ها: 266
تشکر شده: 148
مشکل در اتصال به دیتابیس
RE : 6
خیلی ممنون مشکلم رفع شد
واقعا دستتون درد نکنه
پنجشنبه 28 خرداد 1394 - 19:48
ارسال پیام نقل قول تشکر / موافقم / آفرین گزارش
1 کاربر از hojat به خاطر این مطلب مفید تشکر کرده اند : tezmory ,


تازه سازي پاسخ ها



برای ارسال پاسخ ابتدا باید لوگین یا ثبت نام کنید.



تاپیک های مرتبط
موضوع تاریخ تعداد پاسخ آخرین ارسال بازدید
[Post_Title] [Post_Date] [Post_Answer] [Post_Last_User] [Post_Hit]
پرش :
صفحه اصلی | انجمن | ورود | عضویت | خوراک | نقشه | تماس با ما | طراح