[ مشكلة ] لدي مشكلة وارجو الحل لها

الموضوع في 'قسم الطلبات والأستفسارات' بواسطة فارس الوالي, بتاريخ ‏28 مارس 2018.

كاتب الموضوع : فارس الوالي المشاهدات : 18 الردود : 0 ‏28 مارس 2018
  1. غير متصل

    فارس الوالي
    rank
    New Developer

    عضو منذ:
    ‏28 يونيو 2016
    عدد المشاركات:
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    الجنس:
    ذكر
    الإقامة:

    السلام عليكم
    لقد قمت بعمل برنامج مبيعات ولاكن لدي مشكله في زر التعديل لما اعمل تعديل على حقل من الحقول الموجوده في الجدول يتم التعديل وحفظ البيانات في جميع الجداول يعني هكذا
    قبل التعديل


    [​IMG]



    بعد التعديل
    [​IMG] :-(




    كود زر التعديل
    كود:
     Dim SavInto As New OleDbCommand
            SavInto = New OleDbCommand("update Item_Acso set name='" & Textbox2.Text & "',Namber='" & NumericUpDown1.Text & "',Howmony1='" & TextBox3.Text & "',Howmony2='" & TextBox4.Text & "',whatar='" & TextBox5.Text & "',birthData='" & DateTimePicker1.Value & "',Notes='" & TextBox6.Text & "'", con)
            Con.Open()
            SavInto.ExecuteNonQuery()
            Con.Close()
            MsgBox("تـم تعـديل البيـانات  " + " " + "|" + TextBox1.Text, MsgBoxStyle.Information + MsgBoxStyle.MsgBoxRight, " نجح التعديل  ")
    
    كود:
     Dim SavInto As New OleDbCommand
            SavInto = New OleDbCommand("update Item_Acso set name='" & Textbox2.Text & "',Namber='" & NumericUpDown1.Text & "',Howmony1='" & TextBox3.Text & "',Howmony2='" & TextBox4.Text & "',whatar='" & TextBox5.Text & "',birthData='" & DateTimePicker1.Value & "',Notes='" & TextBox6.Text & "'", con)
            Con.Open()
            SavInto.ExecuteNonQuery()
            Con.Close()
            MsgBox("تـم تعـديل البيـانات  " + " " + "|" + TextBox1.Text, MsgBoxStyle.Information + MsgBoxStyle.MsgBoxRight, " نجح التعديل  ")
    


    ما الحل 18)(L><{}18)(L><{}i!q:"><5)
     


    جاري تحميل الصفحة...

مشاركة هذه الصفحة

جاري تحميل الصفحة...