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

نسخة كاملة : كود الحفظ يحفظ كل الخانات
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليك اخواني قمت بعمل زر تعديل 
علي الكمية ولكن يحفظ لي كل ما في الحقل
باخر تعديل مثال لو اضفت كمية40 لصنف معين
يعطيني كل الاصناف كميتها 40فما الحل.
الصور الموضحة في المرفقات وشكرا

وايضا هذه صورة توضح مايحدث في البيانات.
(25-11-18, 12:26 AM)اسامه الهرماوي كتب : [ -> ]السلام عليك اخواني قمت بعمل زر تعديل 
علي الكمية ولكن يحفظ لي كل ما في الحقل
باخر تعديل مثال لو اضفت كمية40 لصنف معين
يعطيني كل الاصناف كميتها 40فما الحل.
الصور الموضحة في المرفقات وشكرا

وايضا هذه صورة توضح مايحدث في البيانات.

وعليكم السلام ورحمة الله وبركاته
اخي اعطيه شرط where حسب رقم فريد او مفتاح اساسي على سبيل المثال رقم الصنف
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 buy set qun =@qun where id=@id"
cmd.Parameters.AddWithValue("@qun"textcount.Text)
 
       cmd.Parameters.AddWithValue("@id"Textid.Text)
 
  
        cmd
.ExecuteScalar()
 
       Conn.Close() 
(25-11-18, 01:26 AM)Rabeea Qbaha كتب : [ -> ]
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 buy set qun =@qun where id=@id"
cmd.Parameters.AddWithValue("@qun"textcount.Text)
 
       cmd.Parameters.AddWithValue("@id"Textid.Text)
 
  
        cmd
.ExecuteScalar()
 
       Conn.Close() 

ممكن سؤال يابشمهندس
انت درست فين؟
(25-11-18, 01:52 AM)اسامه الهرماوي كتب : [ -> ]
(25-11-18, 01:26 AM)Rabeea Qbaha كتب : [ -> ]
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 buy set qun =@qun where id=@id"
cmd.Parameters.AddWithValue("@qun"textcount.Text)
 
       cmd.Parameters.AddWithValue("@id"Textid.Text)
 
  
        cmd
.ExecuteScalar()
 
       Conn.Close() 

ممكن سؤال يابشمهندس
انت درست فين؟

انا درست في جامعة البتراء في الاردن ، لكن لم السؤال ؟؟
(25-11-18, 03:28 AM)Rabeea Qbaha كتب : [ -> ]
(25-11-18, 01:52 AM)اسامه الهرماوي كتب : [ -> ]
(25-11-18, 01:26 AM)Rabeea Qbaha كتب : [ -> ]
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 buy set qun =@qun where id=@id"
cmd.Parameters.AddWithValue("@qun"textcount.Text)
 
       cmd.Parameters.AddWithValue("@id"Textid.Text)
 
  
        cmd
.ExecuteScalar()
 
       Conn.Close() 

ممكن سؤال يابشمهندس
انت درست فين؟

انا درست في جامعة البتراء في الاردن ، لكن لم السؤال ؟؟

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

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