تقييم الموضوع :
  • 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 ك ب / التحميلات : 69)
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  عرض البيانات من قاعده البيانات لليوم الحالي. Rabeea Qbaha 0 34 22-01-17, 06:47 AM
آخر رد: Rabeea Qbaha
  احتاج طريقة للطرح او الجمع في المصفوفات abudawoodd 9 125 21-01-17, 04:35 PM
آخر رد: abudawoodd
  [VB.NET] التجميع و الفرز قواعد البيانات tifagreet 4 65 19-01-17, 04:21 AM
آخر رد: tifagreet
  استفسار عن الجداول المتعددة في قاعدة البيانات اكسس أبووسم 4 129 14-01-17, 12:36 PM
آخر رد: أبووسم
  ياشباب ارجو منكم المساعده لدي مشاكل في اضافه الصورة الى قاعده البيانات وعمل بحث ammar ali 3 174 13-01-17, 11:15 PM
آخر رد: ammaraliali
  هل يوجد طريقة لارسال رسائل واتساب من البرنامج باستخدام vb.net 2010 ? Dr.Sherif Alazizi 15 514 12-01-17, 11:54 PM
آخر رد: Basil Abdallah
  [VB.NET] استقبال البيانات عن طريق serail port engmedomed@gmail.com 1 70 11-01-17, 02:13 AM
آخر رد: مساعدة
  [VB.NET] طريقة عمل زخرفة تلقائية 3asfa~mdmra 1 97 06-01-17, 02:55 PM
آخر رد: Basil Abdallah
  تصدير البيانات الى PDF باستخدام ITextSharp لايدعم اللغة العربية فاطمة غ 8 352 04-01-17, 12:00 AM
آخر رد: مساعدة
  تغيير قاعدة البيانات الى .bak صبري زينوبي 5 135 01-01-17, 02:33 PM
آخر رد: صبري زينوبي

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


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