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
هذا المثال الي طبقت عليه المشروع
هل استخدمت
Using
End Using
لا .............. ماهو كود ال end
ياريت لو تقدر تعدل لي ع الكود اعلاه
كل مشكلتي اخوي لما اشغل البرنامج بمجرد م ادخل :
User name
password
تفضل قاعدة البيانات معلقة داخل الملف تفضل مفتوحة مما تؤدي الى تعليق او تأخر ب بالبرنامج
احتاج كود بمجرد الضغط ع login ...... التوجه الى form2
يسكر لي الاتصال ويسكر قاعدة البيانات المفتوحه داخل مجلد وشكرااااا
اتمنى تكون فهمتو قصدي المطلوب اخوتي
جملة using تقوم بانهاء الاوبجكت بعد انتهائها دون تدخل المستخدم
جربي استبدال Close() ب Dispose()
مو ظبط معي اخي ياريت تفيدوني بجمله ........... Using
اخواني كل الي احتاجه جمله تسكر لي الداتا بيز المفتوحة بعد تشغيل البرنامج ... ياريت احصل لي جمله افضل من ال
Close()
و ال Dispose() لانهم م اشتغلو معي
السلام عليكم
طيب رهف جربي السطر التالي لاغلاق الاتصال النشط او الاتصال المفتوح
PHP كود :
Rs.ActiveConnection=Nothing
Cn.Close() 'Close Connect with DataBase
نفس الشي اخوي م تغير شي والبرنامج رفض ينفذ
اختي الكريمة نرجو منك ارفاق المثال
لنتمكن من حل المشكلة
يعطيكي العافية
يوجد خطأ في المثال الموجود ( تسجيل دخول.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
لكن أعتقد مشكلتك توجد في أماكن أخرى في المشروع