السلام عليكم
لدى حقل معين واريد ان يتم التعديل على هذا الحقل فى جميع الصفوف باضافة القيمة القديمة
للحقل للقيمة الجديدة..
وبمساعد احد الاصدقاء توصلت الى هذا الحل ولكنة لم يفى الغرض المطلوب
حيث يتم اضافة القيمة الجديده فقط وكذلك بالنسبة للتاريخ
ارجو المساعدة بارك الله فيكم
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
السلام عليكم
بارك الله فيك اخى العزيز على الرد على الموضوع
ولكن على حسب فهمى المتواضع للبرمجة فان الكود الذى وضعته
للغة السى
وقاعدة البيانات اس اكيو سيرفر
ومع ذللك حاولت ان اطبق الكود ولن لم استطيع
فياريت مزيد من التوضيح
وشكرا مرة اخرى
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, "تجربة كود")
12-10-12, 11:40 PM (آخر تعديل لهذه المشاركة : 12-10-12, 11:42 PM {2} بواسطة سعود.)
صالح الشنطى كتب :
[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, "تجربة كود")