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

نسخة كاملة : خطأ في كود الحفظ والتعديل
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
ما الخطأ في كود الحفظ
وكود التعديل

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

ويظهر لي هذا الشكل ايضا
الاتصال مفتوح من قبل 

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

قم بتبديل هذا الكود 
كود :
           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

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

ولكي تتجنب هذه المشكلة يجب ان تكون الاسم على هذا الشكل
كود :
[السعر]
[الكمية]

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

تحياتى لك وللجميع
وتمنياتى لك التوفيق