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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  محتاج طريقة لتنسيق نص الرسالة المرسلة إلى الواتس اب new_programer 2 163 04-03-24, 07:15 AM
آخر رد: new_programer
  [VB.NET] حل مشكلة الاتصال بقواعد البيانات access loay775 2 158 25-02-24, 06:29 AM
آخر رد: loay775
  سؤال عن عملية حذف سجل من قاعدة البيانات assuhimi 3 249 11-02-24, 08:43 PM
آخر رد: assuhimi
  طريقة اجراء نسخة احتياطية و استرجاعها ؟ Osama NY 2 461 07-02-24, 08:59 PM
آخر رد: Kamil
  [VB.NET] منع تكرار البيانات في عند الادخال مبرمج صغير 1 2 255 24-01-24, 05:18 PM
آخر رد: مبرمج صغير 1
Photo [كود] مطلوب كود يستخدم الأوامر فقط لتحديث قاعدة بيانات بـ vb.net AhmedEissa 4 638 18-01-24, 11:40 PM
آخر رد: العتيق
  [VB.NET] مساعدة في استدعاء البيانات معينه من form الأول إلى form 2 بدون التعديل loay775 2 272 18-01-24, 05:04 PM
آخر رد: loay775
  [VB.NET] إعادة استدعاء البيانات من قاعدة بيانات اكسس والاهم الصورة مبرمج صغير 1 1 273 13-01-24, 01:17 PM
آخر رد: مبرمج صغير 1
  ماهي طريقة نقل محتويات checkedlistbox الى داتاقريدفيو صالح عبدالله 3 253 06-01-24, 03:20 PM
آخر رد: Kamil
  الحذف للسجل بشروط معينة محمد خيري 4 361 05-01-24, 04:46 AM
آخر رد: محمد خيري

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


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