مرحبا محتاجة كود لأغلاق او انهاء قاعدة البيانات وليس الأتصال - نسخة قابلة للطباعة

مرحبا محتاجة كود لأغلاق او انهاء قاعدة البيانات وليس الأتصال - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مرحبا محتاجة كود لأغلاق او انهاء قاعدة البيانات وليس الأتصال (/showthread.php?tid=15540)

مرحبا محتاجة كود لأغلاق او انهاء قاعدة البيانات وليس الأتصال - رهف العريفي - 21-04-16

PHP كود :

مرحبا اخواني محتاجة كود لأغلاق قاعدة البيانات بشكل كامل 

جربت اكود بدون فايدة  .... يجلس اكثر من 15 ثانية عشان يسكر لي الاتصال بقاعدة البيانات 

اريد كود اسرع ......

انا عندي كود تسجيل الدخول بواسطه قاعدة البيانات وعند الدخول بشكل صحيح للفورم الثاني ..... تفضل قاعدة البيانات مفتوحة ومعلق البرنامج اكثر من 15 ثانية بعدين تسكر لحالها  .......... ياريت تفيدوني بأكواد وشكرااا ...

كود تسجيل الدخول :

جربت كود اغلاق الاتصال ولاكن دون فائدة

 Public Cn As New OleDbConnection("provider=microsoft.Ace.oledb.12.0;data source=  " & Application.StartupPath & "\Laundry Database.accdb")

 If Cn.State = ConnectionState.Open Then
                   Cn.Close()
                          End If
[hr]
[php]  Dim r =
               Me.LoginTableAdapter.ScalarQuery(Me.TextBox1.Text, Me.TextBox2.Text)
            If r Is Nothing Then
                MsgBox("The User Name Or Password is incorrect - اسم المستخدم او كلمة المرور غير صحيحة")
            Else
                      
                    Me.LoginTableAdapter.Connection.Close()
                End If
                Me.Hide()
                form2.Show()
            End If

هذا المثال الي طبقت عليه المشروع

RE: مرحبا محتاجة كود لأغلاق او انهاء قاعدة البيانات وليس الأتصال - رهف العريفي - 21-04-16

up>>>>>>>>>>>>>>

RE: مرحبا محتاجة كود لأغلاق او انهاء قاعدة البيانات وليس الأتصال - محمد كريّم - 21-04-16

هل استخدمت
Using
End Using

RE: مرحبا محتاجة كود لأغلاق او انهاء قاعدة البيانات وليس الأتصال - رهف العريفي - 21-04-16

لا .............. ماهو كود ال end

ياريت لو تقدر تعدل لي ع الكود اعلاه

كل مشكلتي اخوي لما اشغل البرنامج بمجرد م ادخل :
User name
password

تفضل قاعدة البيانات معلقة داخل الملف تفضل مفتوحة مما تؤدي الى تعليق او تأخر ب بالبرنامج

احتاج كود بمجرد الضغط ع login ...... التوجه الى form2

يسكر لي الاتصال ويسكر قاعدة البيانات المفتوحه داخل مجلد وشكرااااا

اتمنى تكون فهمتو قصدي المطلوب اخوتي

RE: مرحبا محتاجة كود لأغلاق او انهاء قاعدة البيانات وليس الأتصال - محمد كريّم - 21-04-16

جملة using تقوم بانهاء الاوبجكت بعد انتهائها دون تدخل المستخدم
جربي استبدال Close() ب Dispose()

RE: مرحبا محتاجة كود لأغلاق او انهاء قاعدة البيانات وليس الأتصال - رهف العريفي - 21-04-16

مو ظبط معي اخي ياريت تفيدوني بجمله ........... Using

اخواني كل الي احتاجه جمله تسكر لي الداتا بيز المفتوحة بعد تشغيل البرنامج ... ياريت احصل لي جمله افضل من ال

Close()

و ال Dispose() لانهم م اشتغلو معي

RE: مرحبا محتاجة كود لأغلاق او انهاء قاعدة البيانات وليس الأتصال - رهف العريفي - 21-04-16

نفس الشي اخوي م تغير شي والبرنامج رفض ينفذ

RE: مرحبا محتاجة كود لأغلاق او انهاء قاعدة البيانات وليس الأتصال - derham - 22-04-16

يوجد خطأ في المثال الموجود ( تسجيل دخول.pdf ) وهو أن اختيار ScalarQuery المفروض تعيد قيمة مفردة أي واحدة
وجملة الاستعلام الموضوع في المثال فيها خطأ والمفروض تكون هكذا

PHP كود :

SELECT COUNT(*)
FROM tab
WHERE (name = ?) AND ([Password] = ?) 

والكود يجب أن لا يتدخل في OleDbConnection لا في فتحه ولا غلقة لأن LoginTableAdapter هو الذي يتكفل بهذه المسألة ولا تحتاج إلا لهذا الكود فقط

PHP كود :

Dim r = Me.LoginTableAdapter.ScalarQuery(Me.TextBox1.Text, Me.TextBox2.Text)
If r = 0 Then
MsgBox("The User Name Or Password is incorrect - اسم المستخدم او كلمة المرور غير صحيحة")

Else
Me.Hide()
form2.Show()

End If 

لكن أعتقد مشكلتك توجد في أماكن أخرى في المشروع