+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] كيف يتم تحديث البيانات في DataGridView بعد حفظ السجل الحالي ؟؟ (/showthread.php?tid=36871)
كيف يتم تحديث البيانات في DataGridView بعد حفظ السجل الحالي ؟؟ - Microformt - 08-11-20
الاخوة الكرام
السلام عليكم ورحمة وبركاته
كيف يتم تحديث البيانات في DataGridView بعد حفظ السجل الحالي ؟؟
نامل المساعدة في المثال المرفق وجزكم الله خيراً
تحياتي
RE: كيف يتم تحديث البيانات في DataGridView بعد حفظ السجل الحالي ؟؟ - عبد العزيز البسكري - 09-11-20
RE: كيف يتم تحديث البيانات في DataGridView بعد حفظ السجل الحالي ؟؟ - Microformt - 09-11-20
(09-11-20, 01:01 AM)عبد العزيز البسكري كتب :
اخي العزيز
السلام عليكم ورحمة وبركاته
لا يوجد إجابة على السؤال ؟
تحياتي
RE: كيف يتم تحديث البيانات في DataGridView بعد حفظ السجل الحالي ؟؟ - سعود - 09-11-20
اجعل اكواد تحميل البيانات ضمن اجراء sub مستقل وقم باستدعائه وقت الحاجة.
RE: كيف يتم تحديث البيانات في DataGridView بعد حفظ السجل الحالي ؟؟ - Microformt - 09-11-20
(09-11-20, 02:28 PM)سعود كتب : اجعل اكواد تحميل البيانات ضمن اجراء sub مستقل وقم باستدعائه وقت الحاجة.
اخي العزيز
كود إن امكن ؟
تحياتي
RE: كيف يتم تحديث البيانات في DataGridView بعد حفظ السجل الحالي ؟؟ - عبد العزيز البسكري - 09-11-20
(09-11-20, 05:34 PM)Microformt كتب :(09-11-20, 02:28 PM)سعود كتب : اجعل اكواد تحميل البيانات ضمن اجراء sub مستقل وقم باستدعائه وقت الحاجة.
اخي العزيز
كود إن امكن ؟
تحياتي
تفضل أخي الكريم
RE: كيف يتم تحديث البيانات في DataGridView بعد حفظ السجل الحالي ؟؟ - moahmed.abdelmohsen - 09-11-20
جملة التحميل
كود :
Public Sub LoadAllTable_Table1_InDirect()
Dim dt As New DataTable
Dim da As New OleDbDataAdapter
dt.Clear()
da = New OleDbDataAdapter("select * from Table1", con)
da.Fill(dt)
End Subكود :
Public Sub Save_Table1_InDirect(colName As String, colNametxt As String)
' check if this ColumnName is already exist in database
Dim dt As New DataTable
Dim da As New OleDbDataAdapter
dt.Clear()
DA = New OleDbDataAdapter("Select * FROM Table1 where " & colName & " = '" & colNametxt & "'", con)
da.Fill(dt)
' if Column present give msgbox to alert & Dont save
If DT.Rows.Count > 0 Then
MsgBox("هذا الاسم موجود من قبل ", MsgBoxStyle.Critical, "بيانات مكررة")
Else
DT.Rows.Add()
Dim last As Integer = DT.Rows.Count - 1
DT.Rows(last).Item("ID") = ID.Text
DT.Rows(last).Item("name1") = name1.Text
Dim Save As New OleDbCommandBuilder(DA)
DA.Update(DT)
DT.AcceptChanges()
'give msgbox to sure save
MsgBox("تم الحفظ بنجاح ", MsgBoxStyle.Information, "تاكيد الحفظ")
' load table to refresh data
LoadAllTable_Table1_InDirect(dgv)
End If
End Subاستخدم الكود المرفق فقط عدل اسم الجدول والحقول واسم الجرد فيو لعرض البيانات عليها
وهذا الكود من خلف Button
كود :
Try
Save_Table1_InDirect("id", ID.Text)
Catch ex As Exception
MsgBox(ex.Message)
End Tryبالتوفيق ان شاء الله