تقييم الموضوع :
  • 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 ك ب / التحميلات : 44)
الرد
تم الشكر بواسطة:
#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 ك ب / التحميلات : 64)
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  حساب مجموع ايام غياب موظف في شهر معين ahmed_elwerfalli 0 6 منذ 7 ساعة مضت
آخر رد: ahmed_elwerfalli
  [سؤال] الترقيم التلقائي مع رمز معين في vb.net مراد بورجي 11 6,245 26-07-18, 11:31 PM
آخر رد: bajo
  [سؤال] بخصوص اضافة / حذف / تعديل بيانات لقاعدة ACCESS Temiz 0 487 24-01-18, 12:49 AM
آخر رد: Temiz
  [سؤال] ماهوا كود تعديل اسم المستخدم وكلمة المرور في البرنامج Ameer syria 13 6,383 02-01-18, 05:39 PM
آخر رد: سعود
  ممكن تعديل كود انشاء قاعدة اكسس بالكود سعود 8 722 07-08-17, 11:26 PM
آخر رد: أبو نوره
  تعديل كود فاتورة مبيعات بلغة #C أرجو المساعدة أبو راشد عبدالوهاب 5 553 11-07-17, 12:56 AM
آخر رد: أبو راشد عبدالوهاب
  مساعده فى تعديل كود فاتورة مبيعات نبيل كونكت 4 389 10-07-17, 08:49 PM
آخر رد: نبيل كونكت
  كيفية تعديل صورة في قاعدة بيانات اكسس oz7z 6 510 29-03-17, 09:01 AM
آخر رد: oz7z
  ازاى بعد اما اعمل سكان بالباركود ويتسجل فى تكست بوكس معين يتنقل اوتوماتيك لتكست اخر araxis 1 657 07-07-16, 12:11 AM
آخر رد: الوادي
  أريد منع المستخدم من تعديل خلية معينة في داتا جريد ؟؟؟ Abdh111 3 756 05-06-16, 09:28 PM
آخر رد: khodor1985

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


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