تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] شباب هل من طريقة لتحديث البيانات بعد حفظها او العديل او الحذف
#1
بسم الله الررحمن الرحيم

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

هذا الكود لمربعات النص
كود :
Private Sub Load_orders_Data()
        Try
            Dim sql As String = "SELECT * FROM [car1] "
            If Con.State = 0 Then Con.Open()
            Using olecmd As New OleDbCommand(sql, Con)
                Using dr As OleDbDataReader = olecmd.ExecuteReader
                    orders_Table.Clear()
                    orders_Table.Load(dr)
                End Using
            End Using
            DataGridView1.AutoGenerateColumns = True   ' تعبئة الجريد مع  البندنج
            Me.bindingt.DataSource = orders_Table
            BindingNavigator1.BindingSource = bindingt

            txtid.DataBindings.Add(New Binding("Text", bindingt, "carID"))
            ComboBox1.DataBindings.Add(New Binding("Text", bindingt, "cusName"))
            txtdri.DataBindings.Add(New Binding("Text", bindingt, "dri"))
            txtdat.DataBindings.Add(New Binding("text", bindingt, "ass"))
            ComboBox2.DataBindings.Add(New Binding("Text", bindingt, "carName"))
            txtCnum.DataBindings.Add(New Binding("text", bindingt, "caNum"))
            txtkind.DataBindings.Add(New Binding("text", bindingt, "kind"))
            txtCq.DataBindings.Add(New Binding("Text", bindingt, "qun"))
            txtprice.DataBindings.Add(New Binding("text", bindingt, "price"))
            txttotal.DataBindings.Add(New Binding("text", bindingt, "total"))

            Load_orders_Data2()

          
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try




    End Sub

وهذا الكود لل datagrid

PHP كود :
Private Sub load_details_data(ByVal orderid As String)
        Try
            
Dim sql1 As String "SELECT carID2, ahda, monName, price, paky, date1 FROM car2 WHERE (carID2 = @oid)"
            
If Con.State 0 Then Con.Open()
            
Using olecmd1 As New OleDbCommand(sql1Con)
                
olecmd1.Parameters.AddWithValue("@oid"orderid)

                
Using dr1 As OleDbDataReader olecmd1.ExecuteReader
                    details_Table
.Clear()
                    
details_Table.Load(dr1)
                    
DataGridView1.AutoGenerateColumns True
                    DataGridView1
.DataSource details_Table

                    DataGridView1
.Columns(0).Visible False
                    DataGridView1
.Columns(1).Visible False
                    DataGridView1
.Columns(2).Visible True
                    DataGridView1
.Columns(3).Visible True
                    DataGridView1
.Columns(4).Visible True
                    DataGridView1
.Columns(5).Visible True
                    
'''''''''''''''''''''

                    DataGridView1.Columns(2).Width = 140
                    DataGridView1.Columns(3).Width = 120
                    DataGridView1.Columns(4).Width = 140
                    DataGridView1.Columns(5).Width = 140
                    ''''''''''''''''''''''''''''''''''''''''''''''''
                    DataGridView1.Columns(2).HeaderText = "المنصرف"
                    DataGridView1.Columns(3).HeaderText = "المبلغ"
                    DataGridView1.Columns(4).HeaderText = "الباقى"
                    DataGridView1.Columns(5).HeaderText = "التاريخ"
                    '''''''''''''''''
                    
DataGridView1.ColumnHeadersDefaultCellStyle.Alignment DataGridViewContentAlignment.MiddleCenter
                    DataGridView1
.MultiSelect False
                    With Me
.DataGridView1
                        
.RowsDefaultCellStyle.BackColor Color.White
                        
.AlternatingRowsDefaultCellStyle.BackColor Color.White
                        
.RowsDefaultCellStyle.ForeColor Color.Black
                        
.AlternatingRowsDefaultCellStyle.ForeColor Color.Black
                    End With


                End Using
            End Using
        
Catch ex As Exception
            MsgBox
(ex.Message)

        
End Try
    
End Sub 

هذه طريقة الداتا بيندينج
مع العلم انى استخدم sql server
يارب اذا اعطيتني علما...اعطني معه حكمه...واذا اعطيتني مالا....اعطيني معها كرما...واذا اعطيتني قوه...اعطني معها رحمه...واذا اعطيتني سلطه...اعطني معها عدلا...واذا اعطيتني مسئوليه...اعطيني معها امانه...واذا اعطيتني نجاحا...اعطني معها تواضعا...اللهم امين
الرد }}}}
تم الشكر بواسطة:
#2
حاول تستخدم SqlDataAdapter Class & DataSet Class متهيألي ستجد الحل في ذلك
الرد }}}}
تم الشكر بواسطة:
#3
المثال مرفق

الاوامر الاخيرة لم اضفها 


الملفات المرفقة
.zip   For_A7med.zip (الحجم : 58.32 ك ب / التحميلات : 70)
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  بخصوص استيراد البيانات من الاكسيل salah mansour 1 37 أمس, 04:10 AM
آخر رد: khaled12345
  [سؤال] كيف اخلي البرنامج يشتغل بدون نت فروم ورك و طريقة اختيار النت فروم ورك hassan 10 5,008 25-05-17, 08:04 AM
آخر رد: hatem555
  [VB.NET] اريد طريقة لتشفير اكواد الفيجوال بيسك طارق سليمان 0 64 24-05-17, 05:14 PM
آخر رد: طارق سليمان
  ممكن طريقة عمل راديو اذاعات القرآن الكريم عن طريق aassa 5 96 20-05-17, 12:49 AM
آخر رد: alma2
  باستخراج من قاعدة البيانات بشرط listbox items rabeh.ram 0 74 19-05-17, 01:56 PM
آخر رد: rabeh.ram
  طريقة طباعة فاتورة و التحكم بشكلها Basil Abdallah 1 68 19-05-17, 12:34 PM
آخر رد: Adrees
  استيراد البيانات من الاكسيل salah mansour 1 60 18-05-17, 06:28 AM
آخر رد: khaled12345
Question طريقة فتح المشاريع المرفقة ابو إياد 5 228 16-05-17, 10:40 PM
آخر رد: safalo
  قاعدة البيانات تاكل التحديثات rabeh.ram 7 131 14-05-17, 11:01 AM
آخر رد: rabeh.ram
  [سؤال] كيفية حفظ صورة بصيغة pdf الى قاعدة البيانات مصطفى_ظيمة 17 299 13-05-17, 01:06 PM
آخر رد: مصطفى_ظيمة

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


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