[Microformt]

الاخوة الكرام
 السلام عليكم ورحمة وبركاته
كيف يتم تحديث البيانات في  DataGridView  بعد حفظ السجل الحالي ؟؟
نامل المساعدة في المثال المرفق وجزكم الله خيراً
 تحياتي

[عبد العزيز البسكري]

[Microformt]

(09-11-20, 01:01 AM)عبد العزيز البسكري كتب :

اخي العزيز 
 السلام عليكم ورحمة وبركاته
 لا يوجد إجابة على السؤال ؟
 تحياتي

[سعود]

اجعل اكواد تحميل البيانات ضمن اجراء sub مستقل وقم باستدعائه وقت الحاجة.

[Microformt]

(09-11-20, 02:28 PM)سعود كتب : اجعل اكواد تحميل البيانات ضمن اجراء sub مستقل وقم باستدعائه وقت الحاجة.

اخي العزيز 
 كود  إن امكن ؟
 تحياتي

[عبد العزيز البسكري]

(09-11-20, 05:34 PM)Microformt كتب :

(09-11-20, 02:28 PM)سعود كتب : اجعل اكواد تحميل البيانات ضمن اجراء sub مستقل وقم باستدعائه وقت الحاجة.

اخي العزيز 
 كود  إن امكن ؟
 تحياتي

تفضل أخي الكريم

[moahmed.abdelmohsen]

جملة التحميل 

كود :

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

بالتوفيق ان شاء الله