+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : تعديل حقل معين (/showthread.php?tid=5502)
الصفحات:
1
2
تعديل حقل معين - صالح الشنطى - 11-10-12
السلام عليكم
لدى حقل معين واريد ان يتم التعديل على هذا الحقل فى جميع الصفوف باضافة القيمة القديمة
للحقل للقيمة الجديدة..
وبمساعد احد الاصدقاء توصلت الى هذا الحل ولكنة لم يفى الغرض المطلوب
حيث يتم اضافة القيمة الجديده فقط وكذلك بالنسبة للتاريخ
ارجو المساعدة بارك الله فيكم
لدى حقل معين واريد ان يتم التعديل على هذا الحقل فى جميع الصفوف باضافة القيمة القديمة
للحقل للقيمة الجديدة..
وبمساعد احد الاصدقاء توصلت الى هذا الحل ولكنة لم يفى الغرض المطلوب
حيث يتم اضافة القيمة الجديده فقط وكذلك بالنسبة للتاريخ
ارجو المساعدة بارك الله فيكم
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
تعديل حقل معين - صالح الشنطى - 11-10-12
السلام عليكم
هل لا يوجد حل؟
او الموضوع غير مفهوم
تعديل حقل معين - Sajad - 11-10-12
[COLOR="#800080"]السلام عليكم اخي الكريم
تفضل[/COLOR]
تفضل[/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);
بالتوفيق ان شاءالله
تعديل حقل معين - صالح الشنطى - 11-10-12
ا
السلام عليكم
بارك الله فيك اخى العزيز على الرد على الموضوع
ولكن على حسب فهمى المتواضع للبرمجة فان الكود الذى وضعته
للغة السى
وقاعدة البيانات اس اكيو سيرفر
ومع ذللك حاولت ان اطبق الكود ولن لم استطيع
فياريت مزيد من التوضيح
وشكرا مرة اخرى
بارك الله فيك اخى العزيز على الرد على الموضوع
ولكن على حسب فهمى المتواضع للبرمجة فان الكود الذى وضعته
للغة السى
وقاعدة البيانات اس اكيو سيرفر
ومع ذللك حاولت ان اطبق الكود ولن لم استطيع
فياريت مزيد من التوضيح
وشكرا مرة اخرى
تعديل حقل معين - Sajad - 11-10-12
عليكم السلام اخي العزيز
اللغة سي شارب
صحيح وآسف كنت على عجلة من امري
الان ساحاول ان اكتب لك مثال وسارفعه بعد قليل ان شاءالله
تعديل حقل معين - Sajad - 11-10-12
السلام عليكم
اولا: هذه متغيرات عامة
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)
بالتوفيق ان شاءالله
تعديل حقل معين - صالح الشنطى - 12-10-12
[COLOR="#0000FF"]السلام عليكم
شكرا اخى العزيز على الاهتمام
وارجو ان تتحملنى قليلا
جربت الكود ولكنه لم يشتغل معى
حاولت ان اغير فى الكود قليلا ووضعتبعض الاكواد فى لوب
فشتغل الكود ولم يعطى خطاء ولكنة لم يقوم بالتعديل المطلوب
فياريت المساعدة لو تكرمت[/COLOR]
شكرا اخى العزيز على الاهتمام
وارجو ان تتحملنى قليلا
جربت الكود ولكنه لم يشتغل معى
حاولت ان اغير فى الكود قليلا ووضعتبعض الاكواد فى لوب
فشتغل الكود ولم يعطى خطاء ولكنة لم يقوم بالتعديل المطلوب
فياريت المساعدة لو تكرمت[/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, "تجربة كود")
تعديل حقل معين - Sajad - 12-10-12
صالح الشنطى كتب :[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, "تجربة كود")
تعديل حقل معين - صالح الشنطى - 13-10-12
[COLOR="#0000FF"]شكرا يااستاذى
طبقت الكود ولكنة
لا يعطنى خطاء ..وكذلك لا يقبل التغيير
عفوا مذا تقضد بزر الاتصال[/COLOR]
طبقت الكود ولكنة
لا يعطنى خطاء ..وكذلك لا يقبل التغيير
عفوا مذا تقضد بزر الاتصال[/COLOR]
تعديل حقل معين - amgadtamer - 13-10-12
مرفق مثال للتوضيح