28-09-15, 07:25 PM
بسم الله الررحمن الرحيم
السلام عليكم شباب
هل من طريقة لتحديث بيانات الجدول بعد حفظها او حذفها او تعديلها
واظهار كل البيانات التى بالجدول
مع العلم انى استخدم هذا الكود فى اظهار البيانات
هذا الكود لمربعات النص
وهذا الكود لل datagrid
هذه طريقة الداتا بيندينج
مع العلم انى استخدم sql server
السلام عليكم شباب
هل من طريقة لتحديث بيانات الجدول بعد حفظها او حذفها او تعديلها
واظهار كل البيانات التى بالجدول
مع العلم انى استخدم هذا الكود فى اظهار البيانات
هذا الكود لمربعات النص
كود :
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(sql1, Con)
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
يارب اذا اعطيتني علما...اعطني معه حكمه...واذا اعطيتني مالا....اعطيني معها كرما...واذا اعطيتني قوه...اعطني معها رحمه...واذا اعطيتني سلطه...اعطني معها عدلا...واذا اعطيتني مسئوليه...اعطيني معها امانه...واذا اعطيتني نجاحا...اعطني معها تواضعا...اللهم امين