منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : كيف احدث المعلومات في الداتا جريد
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم 
الفائدة للجميع
عملت تايمر يحدث كل 3 ثواني المعلومات في الداتا جريد ولكن مع كل تحديث يتغير كل شي يعني الدتا جريد تتحرك 
السؤال كيف اجعل التحديث بالخلفية بدون متتحديث كل الدتا جريد 
يعني تتغير المعلومات فقط
عندي برنامج مشابه للفكرة.
ضع مشروعك للتعديل عليه.
(09-10-16, 07:46 PM)mhmd_911 كتب : [ -> ]عندي برنامج مشابه للفكرة.
ضع مشروعك للتعديل عليه.

Dim cs As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & SLibro & ";" & " Extended Properties='Excel 8.0;HDR=NO;IMEX=1'"
Dim dAdapter As New OleDbDataAdapter("Select * From [" & sHoja & "$] ", cs)
Dim datos As New DataSet
dAdapter.Fill(datos)
Dim dt As DataTable = datos.Tables(0)
For i As Integer = 0 To dt.Columns.Count - 1
dt.Columns(i).ColumnName = dt.Rows(0).Item(i)
Next
Dim dr As DataRow = dt.Rows(0)
dr.Delete()
With index.DataGridView
.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.BottomLeft
.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns(0).Width = 100
.Columns(1).Width = 100
End With
index.DataGridView.DataSource = dt

تفضل اخي 
هل من جديد
انا عندي احتجت اسوي تحديث وعملت button
ووضعت كود يمسح بيانات الداتا جريد ويعيد البيانات من القاعدة

Me.ResTableAdapter.ClearBeforeFill = True
       Me.ResTableAdapter.Fill(Me.DatasetDataSet.res)
       MsgBox("تم تحديث السجلات")



وماشي الوضع معاي
(12-10-16, 07:33 PM)hglogtd كتب : [ -> ]انا عندي احتجت اسوي تحديث وعملت button
ووضعت كود يمسح بيانات الداتا جريد ويعيد البيانات من القاعدة

Me.ResTableAdapter.ClearBeforeFill = True
       Me.ResTableAdapter.Fill(Me.DatasetDataSet.res)
       MsgBox("تم تحديث السجلات")



وماشي الوضع معاي

انا اقصد تحديث بدون ان تتحرك الدتا جريد تجد الرقم يتحدث فقط  يعني يتغير الرقم بدون مايعمل اخفاء للارقام