منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

ما الخطأ في كود الحفظ
وكود التعديل

ويظهر لي هذة الاخطاء

ويظهر لي هذا الشكل ايضا

الاتصال مفتوح من قبل

استخدم هذا الكود

قم بتبديل هذا الكود

كود :

           Con.Open()

بهذا الكود

PHP كود :

       If Con.State = ConnectionState.Closed Then
            Con.Open()
        End If 

نصيحه اخرى صديقي من الافضل ان تستخدم ال parameters فهي افضل من ناحيه امان وافضل من ناحيه ترتيب و من الكثير من النواحي

الطريقه كالاتي قم باستبدال ما يناسب الكود لديك

PHP كود :

If Conn.State = ConnectionState.Closed Then
            Conn.Open()
        End If

        Dim cmd As New OleDb.OleDbCommand
        cmd.Connection = Conn
        cmd.CommandType = CommandType.Text
        cmd.CommandText = "UPDATE table1 SET user_forname=@user_forname, user_ gender =@user_ gender  WHERE  user_idi= @ user_idi"
cmd.Parameters.AddWithValue("@user_forname", TextBox2.Text)
        cmd.Parameters.AddWithValue("@user_ gender", TextBox3.Text)
        cmd.Parameters.AddWithValue("@ user_idi", TextBox1.Text)
        cmd.ExecuteScalar()
        Conn.Close() 

المشاكل التى تواجهك كما فى الصورة

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

لكذلك تظهر لك بان الاتصال مفتوح وغير مغلق ولتجنب ذلك كل ما عليك استخدام الكود التالى كما اشار اليه الاخ العزيز Rabeea Qbaha

كود :

If Con.State = ConnectionState.Closed Then Con.Open()

اما ان تجعلها على سطر واحد كما كتبتها او ان تستخدمها كما طرحها الاخ Rabeea Qbaha

الان ناتى للمشكلة الثانية خاصة السعر و الكمية

المشكلة فى البداية بهذا الجزء ترجع لاسماء الاعمدة بقاعدة البيانات حيث انك تستخدم المسميات باللغة العربية

ولكي تتجنب هذه المشكلة يجب ان تكون الاسم على هذا الشكل

كود :

[السعر]

[الكمية]

كما انت تستخدمه فى الكود عند الجزء الصنف وبكده تكون تم حل المشكلة

تم وضع الرد لتوضح الامر بشكل عام لمن يواجه ويتعامل بنفس تلك الامور

تحياتى لك وللجميع

وتمنياتى لك التوفيق

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

اسامه الهرماوي

Rabeea Qbaha

elgokr