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

تعرف هذه المتغيرات فوق

OleDbConnection connection;

OleDbDataReader dr;

 try
        {
            connection = new OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("App_Data/dbWeb.mdb"));
            OleDbCommand cmdselect = new OleDbCommand("select * from Users where UserName =@p1 and password=@p2", connection);
            cmdselect.Parameters.Clear();
            cmdselect.Parameters.AddWithValue("@p1", TextBox1.Text.Trim());
            cmdselect.Parameters.AddWithValue("@p2", TextBox2.Text.Trim());

            if (connection.State != ConnectionState.Open)
                connection.Open();
            dr = cmdselect.ExecuteReader();


            if (dr.Read())
            {


                string username = dr["UserName"].ToString();
               Session.Add("UserName", username);
               string url = "عنوان الصفحة";
                Response.Redirect(url, false);

            }

            else
            {

                Label4.Text = "تاكد من اسم المستخدم وكلمة المرور";
            }


        }

        catch (Exception ex)
        {

            Label4.Text = ex.Message;
        }

        finally
        {
            dr.Close();
            connection.Close();
        }

أخي الكريم جزاك الله خيراً ولكن هل هذا الكود بال vb.net

حيث وجدة رموز غريبة كالفاصلة المنقوطة

وعدم وجود then بعد الشرط if

وطريقة تعريفك للمتغيرات

أرجو منك اخي الكريم التوضيح

أرجوكم يا أخوان اريد توضيح سريع أنا الان بحاجة ماسة لإنهاء البرنامج

وجزاكم الله خير

بسم الله الرحمن الرحيم

اخى العزيز الموقع دع مسئول عن التحويل الى vb.net

http://www.developerfusion.com/tools/convert/csharp-to-vb/

وده الكود بعد التحويل

01.Try

02. connection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("App_Data/dbWeb.mdb"))

03. Dim cmdselect As New OleDbCommand("select * from Users where UserName =@p1 and password=@p2", connection)

04. cmdselect.Parameters.Clear()

05. cmdselect.Parameters.AddWithValue("@p1", TextBox1.Text.Trim())

06. cmdselect.Parameters.AddWithValue("@p2", TextBox2.Text.Trim())

07. If connection.State <> ConnectionState.Open Then

08. connection.Open()

09. End If

10. dr = cmdselect.ExecuteReader()

11. If dr.Read() Then

12. Dim username As String = dr("UserName").ToString()

13. Session.Add("UserName", username)

14. Dim url As String = "عنوان الصفحة"

15. Response.Redirect(url, False)

16. Else

17. Label4.Text = "تاكد من اسم المستخدم وكلمة المرور"

18. End If

19.Catch ex As Exception

20. Label4.Text = ex.Message

21.Finally

22. dr.Close()

23. connection.Close()

24.End Try

شكرا لك أخي الكريم bodaman22

ولكن أخي الكريم عند تنفيذ البرنامج

تظهر لي هذه الرسالة

The Microsoft Jet database engine cannot find the input table or query 'Users'. Make sure it exists and that its name is spelled correctly.

أما بالنسبة لـــ dr.Close()

connection.Close()

فيظهر لي الخظأ

variable 'connection' is used before it has been assigned . a null referance excepiton could result at runtime

معلش انا تعبتكو جداً

أرجو المساعدة وجزاكم الله خيراً

بسم الله الرحمن الرحيم

أخى العزيز لاتعب ولا حاجة عادى يا سيدى

المهم هو بيقولك لك خطأ فى users

ده tabel الأخ Enjo With Csharp عامله لك كتجربة

لازم انت تنشئه عندك فى database

و يكون فيه column اسمه username

و اخر password

و يتم التحقق منهم مع بعض فى select statment

اتمنى اكون افدتك

و شكرا

أخي الفاضل جزاك الله خيراً لقد تم وضع التعديلات اللازمه

وأصبح شكل الكود كالتالي:

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim connection As OleDbConnection

Dim dr As OleDbDataReader

Try

connection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("App_Data/db1.mdb"))

Dim cmdselect As New OleDbCommand("select * from employee where UserName =@p1 and password=@p2", connection)

cmdselect.Parameters.Clear()

cmdselect.Parameters.AddWithValue("@p1", Txtempno.Text.Trim())

cmdselect.Parameters.AddWithValue("@p2", Txtpassword.Text.Trim())

If connection.State <> ConnectionState.Open Then

connection.Open()

End If

dr = cmdselect.ExecuteReader()

If dr.Read() Then

Dim username As String = dr("UserName").ToString()

Session.Add("UserName", username)

Dim url As String = "ProbSum.aspx"

Response.Redirect(url, False)

Else

Label1.Text = "تاكد من اسم المستخدم وكلمة المرور"

End If

Catch ex As Exception

Label1.Text = ex.Message

Finally

dr.Close()

connection.Close()

End Try

بعد أن أصبح الكود على هذا الوضع لم يعمل وهناك خط اخضر اسفل dr.Close

connection.Close

مع وجود الخطأ التالي الذي يظهر على العبارتين السابقتين Object reference not set to an instance of an object.

فما العمل ؟؟؟ لقد يأست من هذا البرنامج

بسم الله الرحمن الرحيم

أخى العزيز

انا مش شايف اى اخطاء فى الكود معى

بس على العموم ممكن تضع breakpoint و تمشى مع الكود خطوة بخطوت و تشوف الخطأ فين

انا بالنسبة للخط الأخضر انا مش شايف له اى اخطاء بس على العموم شيل Finally

و كمان ياريت تجيب لى بيكتب ايه على Label1.Text

انا مستنى ردك

الله يوفقك

شكرا جزيلاً لك اخي الفاضل على متابعتك ليه

أنا شلت الfinally

البرنامج ما بيكتبلي حاجه جوا الlabel1

انما هو بيطلع على طول من الصفحة بمجرد اني اضغط على ال button

وعلى طول بلاقي خطأ موجود على dr.Close و ,connection.Close

وبيطلع تحتهم خط اخضر وبيكتبلي عليهم Object reference not set to an instance of an object.

انا الجدول اللي عندي اسمه employee وفي column اسمه emp_no اللي هو مكان user name و عندي column تاني اسمه emp_password

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

انا اللي مخليني كده بكرة المشروع لازم يكون جاهز

ممكن تضع breakpoint و تمشى مع الكود خطوة بخطوة و تشوف الخطأ فين

و ان شاء الله تسلم المشروع بكرة

شكراً لك اخي الفاضل وجزاك الله خيرا

ايه يا سيدى ايه اللى حصل انا

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

والله يا أخي الكريم حاولت في الكود بشتى السبل

ماخليت طريقة الا وعملتها

بس لا فائدة

والمشكلة انه انا مش عايز حاجة كبيره أو ضخمة

كل اللي عايزه صفحة فيها يوزر نيم وباسوورد

للموظفين

بمجرد ما الموظف يحط اليوزر نيم والباسوورد يقوم يتحول للصفحة الرئيسية

و بقالي 3 أيام بحاول فيه مش عايز يزبط

فانا بدور على أي طريقة كانت ممكن تخلي البرنامج اللي عايزه يشتغل

بسم الله الرحمن الرحيم

أخى العزيز انا عملت لك الكود و رفعته اهو

و ان شاء الله تسلم مشروعك بكرة

http://www.4shared.com/file/eAEWnxAV/WebSite18.html

بس سامحنى هو على sql server مفيش عندى accses

على العموم ظبط انت الباقى

جزاك الله خيرا يا أخي

الحمدلله ربي الهمني ان افتح المنتدى بعد أن يأست في الصباح

والحمدلله وجدت منك الملف الذي احتاجه

وقمت بتعديل اللازم ليناسب الاكسس

والحمدلله رب العالمين اشتغل واخر حلاوة

يا شيخ ربنا يكرمك بالجنه يارب ويفتحها في وشك