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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  الاتصال بقاعدة البيانات العيدروس 3 26 منذ 29 دقيقة مضت
آخر رد: سعود الشامان
  [VB.NET] اضافة الصور لقاعدة البيانات SQL m.farag87 2 38 منذ 9 ساعة مضت
آخر رد: Rabeea Qbaha
  رسالة خطأ عند استعراض البيانات aftfm 2 61 18-10-17, 06:33 PM
آخر رد: Rabeea Qbaha
  [نقاش] طريقة لارسال النقود عند شراء برنامجي hoshosgost@yahoo.com 3 58 16-10-17, 02:58 AM
آخر رد: حريف برمجة
  عمل شريط متحرك من قاعدة البيانات hglogtd 24 302 15-10-17, 11:54 PM
آخر رد: hglogtd
  ما هي افضل طريقة لجعل البرنامج تجريبي محمود صالح 3 151 15-10-17, 11:32 PM
آخر رد: hoshosgost@yahoo.com
  [سؤال] اريد طريقة لمنع تكرار عناصر listbox riad21 4 392 13-10-17, 10:03 AM
آخر رد: مصطفي الشكلي
  ربط combobox بصفحه البيانات abdel.halim 8 138 11-10-17, 07:27 PM
آخر رد: abdel.halim
  توقف قاعدة البيانات عن الاستجابة وعدم قبول اي تعديلات nassery99 2 61 09-10-17, 06:34 PM
آخر رد: nassery99
  [سؤال] طريقة حذف مفتاح من الريجستري سعود الشامان 7 153 04-10-17, 06:19 PM
آخر رد: سعود الشامان

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


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