تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تعديل حقل معين
#1
السلام عليكم
لدى حقل معين واريد ان يتم التعديل على هذا الحقل فى جميع الصفوف باضافة القيمة القديمة
للحقل للقيمة الجديدة..
وبمساعد احد الاصدقاء توصلت الى هذا الحل ولكنة لم يفى الغرض المطلوب
حيث يتم اضافة القيمة الجديده فقط وكذلك بالنسبة للتاريخ
ارجو المساعدة بارك الله فيكم
PHP كود :
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click

        Dim sql 
As String "update arshef set group1=@group1,subgroup1=@subgroup1 where ser>100"
        
If cn.State ConnectionState.Closed Then cn.Open()
        
Dim cmd As New OleDbCommand(sqlcn)
        
cmd.Parameters.AddWithValue("@group1"80)
        
cmd.Parameters.AddWithValue("@subgroup1"Format(DateAndTime.DateSerial(DateTimePicker1.Value.Year 1Date.Now.MonthDate.Now.Day)))
        
cmd.ExecuteNonQuery()
        If 
cn.State ConnectionState.Open Then cn.Close()
    
End Sub 


الملفات المرفقة
.rar   تعديل فى اكثر من &.rar (الحجم : 79.58 ك ب / التحميلات : 23)
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم
هل لا يوجد حل؟
او الموضوع غير مفهوم
الرد }}}}
تم الشكر بواسطة:
#3
[COLOR="#800080"]السلام عليكم اخي الكريم

تفضل[/COLOR]

اولا في زر الاتصال اضف

PHP كود :
string sp="update arshef set group1=@group1,subgroup1=@subgroup1 where ser>100";


SqlCommand myupdatecmd = new SqlCommand(spmycon);
                
myupdatecmd.Parameters.Add("@group1"SqlDbType.Int4"goup1");
                
myupdatecmd.Parameters.Add("@subgroup1"SqlDbType.DateTime8"subgroup1");
                
myadapt.UpdateCommand myupdatecmd

ثم في زر التعديل اضف
PHP كود :
row mytable.Rows[myposition];
row["goup1"] = (int)row["group1"]+القيمة الجديدة;
myadapt.Update(mytable); 

بالتوفيق ان شاءالله
الرد }}}}
تم الشكر بواسطة:
#4
ا
السلام عليكم
بارك الله فيك اخى العزيز على الرد على الموضوع
ولكن على حسب فهمى المتواضع للبرمجة فان الكود الذى وضعته
للغة السى
وقاعدة البيانات اس اكيو سيرفر
ومع ذللك حاولت ان اطبق الكود ولن لم استطيع
فياريت مزيد من التوضيح
وشكرا مرة اخرى

الرد }}}}
تم الشكر بواسطة:
#5
عليكم السلام اخي العزيز

اللغة سي شارب

صحيح وآسف كنت على عجلة من امري

الان ساحاول ان اكتب لك مثال وسارفعه بعد قليل ان شاءالله
الرد }}}}
تم الشكر بواسطة:
#6
السلام عليكم

اولا: هذه متغيرات عامة

PHP كود :
Private table As New DataTable()
    
Dim adpt As New OleDbDataAdapter()
    
Dim pos As Integer 

حيث الpos يمثل موقع الحقل

ثانيا: هذا الكود في زر الاتصال

PHP كود :
Dim sql As String "update arshef set group1=@group1,subgroup1=@subgroup1 where ser>100"
        
If cn.State ConnectionState.Closed Then cn.Open()
        
Dim cmd As New OleDbCommand(sqlcn)
        
cmd.Parameters.Add("@group1"OleDbType.Integer4"group1")
        
adpt.UpdateCommand cmd 

ثالثا: هذا الكود لزر التعديل

PHP كود :
Dim r As DataRow
        r 
table.Rows(pos)
        
r("group1")=r("group1")+القيمة الجديدة
        adpt
.Update(table


بالتوفيق ان شاءالله
الرد }}}}
تم الشكر بواسطة:
#7
[COLOR="#0000FF"]السلام عليكم
شكرا اخى العزيز على الاهتمام
وارجو ان تتحملنى قليلا
جربت الكود ولكنه لم يشتغل معى
حاولت ان اغير فى الكود قليلا ووضعتبعض الاكواد فى لوب
فشتغل الكود ولم يعطى خطاء ولكنة لم يقوم بالتعديل المطلوب
فياريت المساعدة لو تكرمت
[/COLOR]
PHP كود :
Dim sql As String "update arshef set group1=@group1,subgroup1=@subgroup1 where ser>100"
        
If cn.State ConnectionState.Closed Then cn.Open()
        
Dim cmd As New OleDbCommand(sqlcn)
        
cmd.Parameters.Add("@group1"OleDbType.Integer4"group1")
        
adpt.UpdateCommand cmd
        Dim i 
As Integer
        Dim r 
As DataRow
        
For 0 To table.Rows.Count 1
            r 
table.Rows(i)
            
r("group1") = r("group1") + 30
            adpt
.Update(table)
        
Next
        MsgBox
("تم الادخال"MsgBoxStyle.DefaultButton1"تجربة كود"
الرد }}}}
تم الشكر بواسطة:
#8
صالح الشنطى كتب :
[COLOR="#0000FF"]السلام عليكم
شكرا اخى العزيز على الاهتمام
وارجو ان تتحملنى قليلا
جربت الكود ولكنه لم يشتغل معى
حاولت ان اغير فى الكود قليلا ووضعتبعض الاكواد فى لوب
فشتغل الكود ولم يعطى خطاء ولكنة لم يقوم بالتعديل المطلوب
فياريت المساعدة لو تكرمت
[/COLOR]
PHP كود :
Dim sql As String "update arshef set group1=@group1,subgroup1=@subgroup1 where ser>100"
        
If cn.State ConnectionState.Closed Then cn.Open()
        
Dim cmd As New OleDbCommand(sqlcn)
        
cmd.Parameters.Add("@group1"OleDbType.Integer4"group1")
        
adpt.UpdateCommand cmd
        Dim i 
As Integer
        Dim r 
As DataRow
        
For 0 To table.Rows.Count 1
            r 
table.Rows(i)
            
r("group1") = r("group1") + 30
            adpt
.Update(table)
        
Next
        MsgBox
("تم الادخال"MsgBoxStyle.DefaultButton1"تجربة كود"


وعليكم السلام اخي العزيز

حاول ان تضع هذا الكود في زر اخر سمه زر التعديل واضف table.AcceptChanges() قبل adpt.Update(table)

PHP كود :
Dim i As Integer
        Dim r 
As DataRow
        
For 0 To table.Rows.Count 1
            r 
table.Rows(i)
            
r("group1") = r("group1") + 30
              table
.AcceptChanges()
            
adpt.Update(table)
        
Next
        MsgBox
("تم الادخال"MsgBoxStyle.DefaultButton1"تجربة كود"
الرد }}}}
تم الشكر بواسطة:
#9
[COLOR="#0000FF"]شكرا يااستاذى
طبقت الكود ولكنة
لا يعطنى خطاء ..وكذلك لا يقبل التغيير
عفوا مذا تقضد بزر الاتصال[/COLOR]
الرد }}}}
تم الشكر بواسطة:
#10
مرفق مثال للتوضيح


الملفات المرفقة
.rar   update.rar (الحجم : 76.53 ك ب / التحميلات : 44)
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ازاى بعد اما اعمل سكان بالباركود ويتسجل فى تكست بوكس معين يتنقل اوتوماتيك لتكست اخر araxis 1 162 07-07-16, 12:11 AM
آخر رد: الوادي
  أريد منع المستخدم من تعديل خلية معينة في داتا جريد ؟؟؟ Abdh111 3 162 05-06-16, 09:28 PM
آخر رد: khodor1985
  تعديل بيانات حقل في جميع السجلات aftfm 2 273 31-05-16, 06:32 PM
آخر رد: Sajad
  طلب مساعدة في كود تعديل بيانات جدول لو تكرمتم kofa 10 349 31-05-16, 12:10 AM
آخر رد: kofa
  كود التالي والسابق بترتيب معين aftfm 0 216 08-02-16, 11:37 AM
آخر رد: aftfm
Photo طريقة بحث و إظهار حقل معين من سجلين مختلفين ,, ولكن يتساويا في رقم المستخدم ahmed_elwerfalli 6 438 27-12-15, 03:55 AM
آخر رد: ahmed_elwerfalli
Question [سؤال] عملية ربط عمود بعدة جداول أخرى حسب شرط معين myalsailamy 2 846 19-12-15, 01:04 AM
آخر رد: awidan76
  تعديل كود الحفظ hglogtd 6 357 06-12-15, 11:51 AM
آخر رد: hglogtd
  كيف يمكن عرض combobox بشرط معين في داخل datagridview البراء 6 1,046 29-11-15, 12:44 AM
آخر رد: abulayth
  [سؤال] جلب البيانات بشكل معين من قاعدة البيانات Mido9 1 830 25-10-15, 11:10 AM
آخر رد: WAEL ABED

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم