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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  استعلام يرجع اسماء الاعمدة و نوع البيانات في جدول معين بسام محمدغانم 0 964 23-10-21, 01:43 AM
آخر رد: بسام محمدغانم
  [Acces2010] اريد تعديل الكود للاكسس بسام محمدغانم 0 833 13-10-21, 09:14 PM
آخر رد: بسام محمدغانم
  هل يمكن تعديل كلمة معينة داخل سجل alfaiz678 5 2,498 30-11-20, 09:42 PM
آخر رد: alfaiz678
  [VB.NET] تعديل في data gird view وحفظه Hassan.syria 5 2,541 10-03-20, 03:06 PM
آخر رد: asemshahen5
  [VB.NET] رسالة خطأ عند الحذف أو تعديل بيانات جديدة #concurrency violation# sniperjawadino 11 4,033 28-05-19, 10:50 PM
آخر رد: sniperjawadino
  ازاى بعد اما اعمل سكان بالباركود ويتسجل فى تكست بوكس معين يتنقل اوتوماتيك لتكست اخر araxis 2 2,529 25-03-19, 04:07 AM
آخر رد: wessam.demerdash
Photo [VB.NET] تعديل المدخلات في (الداتا قريد فيو ) لفاتورة مبيعات؟ EYADISMAIL 1 2,557 09-01-19, 10:30 PM
آخر رد: EYADISMAIL
  حساب مجموع ايام غياب موظف في شهر معين ahmed_elwerfalli 0 1,769 10-12-18, 10:11 PM
آخر رد: ahmed_elwerfalli
  [سؤال] الترقيم التلقائي مع رمز معين في vb.net مراد بورجي 11 11,256 26-07-18, 11:31 PM
آخر رد: bajo
  [سؤال] بخصوص اضافة / حذف / تعديل بيانات لقاعدة ACCESS Temiz 0 3,150 24-01-18, 12:49 AM
آخر رد: Temiz

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


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