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

الصفحات : 1 2

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

PHP كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 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(sql, cn)
        cmd.Parameters.AddWithValue("@group1", 80)
        cmd.Parameters.AddWithValue("@subgroup1", Format(DateAndTime.DateSerial(DateTimePicker1.Value.Year + 1, Date.Now.Month, Date.Now.Day)))
        cmd.ExecuteNonQuery()
        If cn.State = ConnectionState.Open Then cn.Close()
    End Sub 

السلام عليكم
هل لا يوجد حل؟
او الموضوع غير مفهوم

[COLOR="#800080"]السلام عليكم اخي الكريم

تفضل[/COLOR]

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

PHP كود :

string sp="update arshef set group1=@group1,subgroup1=@subgroup1 where ser>100";


SqlCommand myupdatecmd = new SqlCommand(sp, mycon);
                myupdatecmd.Parameters.Add("@group1", SqlDbType.Int, 4, "goup1");
                myupdatecmd.Parameters.Add("@subgroup1", SqlDbType.DateTime, 8, "subgroup1");
                myadapt.UpdateCommand = myupdatecmd; 

ثم في زر التعديل اضف

PHP كود :

row = mytable.Rows[myposition];
row["goup1"] = (int)row["group1"]+القيمة الجديدة;
myadapt.Update(mytable); 

بالتوفيق ان شاءالله

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

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

اللغة سي شارب

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

الان ساحاول ان اكتب لك مثال وسارفعه بعد قليل ان شاءالله

السلام عليكم

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

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(sql, cn)
        cmd.Parameters.Add("@group1", OleDbType.Integer, 4, "group1")
        adpt.UpdateCommand = cmd 

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

PHP كود :

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

بالتوفيق ان شاءالله

[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(sql, cn)
        cmd.Parameters.Add("@group1", OleDbType.Integer, 4, "group1")
        adpt.UpdateCommand = cmd
        Dim i As Integer
        Dim r As DataRow
        For i = 0 To table.Rows.Count - 1
            r = table.Rows(i)
            r("group1") = r("group1") + 30
            adpt.Update(table)
        Next
        MsgBox("تم الادخال", MsgBoxStyle.DefaultButton1, "تجربة كود") 

صالح الشنطى كتب :
[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(sql, cn) cmd.Parameters.Add("@group1", OleDbType.Integer, 4, "group1") adpt.UpdateCommand = cmd Dim i As Integer Dim r As DataRow For i = 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 i = 0 To table.Rows.Count - 1
            r = table.Rows(i)
            r("group1") = r("group1") + 30
              table.AcceptChanges()
            adpt.Update(table)
        Next
        MsgBox("تم الادخال", MsgBoxStyle.DefaultButton1, "تجربة كود") 

[COLOR="#0000FF"]شكرا يااستاذى
طبقت الكود ولكنة
لا يعطنى خطاء ..وكذلك لا يقبل التغيير
عفوا مذا تقضد بزر الاتصال[/COLOR]

مرفق مثال للتوضيح

الصفحات : 1 2

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

صالح الشنطى

صالح الشنطى

Sajad

صالح الشنطى

Sajad

Sajad

صالح الشنطى

Sajad

صالح الشنطى

amgadtamer