[رضوان الجهينى]

السادة الأكارم
السلام عليكم ورحمة الله وبركاته
وفقكم الله جميعا لما فيه الخير والصلاح ورفع قدركم وزادكم علما 
قمت بعمل مشروع بسيط وبصفتي بادءا فى هذا العمل تقابلني الكثير من المشاكل
ومنها على سبيل المثال
عدم إضافة البيانات فى datagridview مباشرة ولكن بمجرد الإغلاق وإعادة الفتح أجد البيانات قد أضيفت ونفس الأمر عند الحذف وكذلك التحديث
وها هو الكود
Imports System.Data.SqlClient

Imports System.Data.DataTable

Public Class MainForm

    Dim conn As New SqlConnection("Data Source=.;Initial Catalog=ALL;Integrated Security=True")

    Dim ds As New DataSet

    Dim da As New SqlDataAdapter

    Dim dv As New DataView

    Dim cmd As New SqlCommand

    Dim sql As String

    Dim student As String

    Sub formatgrd()

        With grd1

            .Columns(0).HeaderText = "اسم الطالب"

            .Columns(1).HeaderText = "ولى الأمر"

            .Columns(2).HeaderText = "الرقم القومى"

            .Columns(3).HeaderText = "تاريخ الرقم القومى"

            .Columns(4).HeaderText = "تاريخ الميلاد"

            .Columns(5).HeaderText = "محل الميلاد"

            .Columns(6).HeaderText = "المركز"

            .Columns(7).HeaderText = "المحافظة"

            .Columns(8).HeaderText = "العنوان"

            .Columns(9).HeaderText = "التليفون"

            .Columns(10).HeaderText = "الجنسية"

            .Columns(11).HeaderText = "الكلية"

            .Columns(12).HeaderText = "الفرقة"

            .Columns(13).HeaderText = "الشعبة"

            .Columns(14).HeaderText = "التخصص"

            .Columns(15).HeaderText = "العام الجامعى"

            .Columns(16).HeaderText = "الدور"

            .Columns(17).HeaderText = "الليسانس"

            .Columns(18).HeaderText = "المجموع التراكمى"

            .Columns(19).HeaderText = "التقدير التراكمى"

            .Columns(20).HeaderText = "تفقط المجموع التراكمى"

            .Columns(21).HeaderText = "المجموع الكلى"

            .Columns(22).HeaderText = "تفقيط المجموع الكلي"

            .Columns(23).HeaderText = "النسبة المئوية"

            .Columns(24).HeaderText = "تاريخ اعتماد مجلس الجامعة"

            .Columns(25).HeaderText = "تاريخ اعتماد مجلس الكلية"

            .Columns(26).HeaderText = "تاريخ اعتماد مجلس الجامعة هـ"

            .Columns(27).HeaderText = "تاريخ اعتماد مجلس الكلية هـ"

            .Columns(28).HeaderText = "رقم ق البراءة"

            .Columns(29).HeaderText = "تاريخ البراءة"

            .Columns(30).HeaderText = "رقم ق الشهادة"

            .Columns(31).HeaderText = "تاريخ الشهادة"

        End With

    End Sub

    Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        newrecord()

    End Sub

    Sub newrecord()

        For Each ctrl As Control In Me.Controls

            If TypeOf ctrl Is TextBox Then

                ctrl.Text = ""

            End If

        Next

        filldataset()

        formatgrd()

    End Sub

    Private Sub filldataset()

        sql = "select student,fATHER,ID, Date_ID, DOB, PLACE_BRITH, MARKZ, GOV, ADDRESS, TEL, NAT, faculty,FERKA ,shoba ,TAKASS,YEARS ,DOR ,lisans ,final_tr ,final_tra,taftr ,AllTotal,tafalltotal,final_per,gdate,fdate,gdateh,fdateh,braano,braadate,shno,shdate from students"

        ds = New DataSet

        da = New SqlDataAdapter(sql, conn)

        da.Fill(ds, "students")

        dv = New DataView(ds.Tables("students"))

        grd1.DataSource = dv

    End Sub

[ابو انس]

وعليكم السلام ورحمة الله وبركاته
الحدث MainForm_Load يتم تنفيذ كل الاكواد التي فيه عند فتح الفورم
من بين الكواد هناك سب انت مسميه   filldataset وايضا     formatgrd لاحظ انهما يحتويان البيانات الخاصة باسماء الاعمدة وايضا جلب بيانات من قاعدة البيانات وتعبئتها داخل الداتا جريد فيو 
والذي انت مسميه grd1 
فهذا ما يفسر  ////ولكن بمجرد الإغلاق وإعادة الفتح أجد البيانات قد أضيفت////
اما كلامك ///  ونفس الأمر عند الحذف وكذلك التحديث/// فانت لم تذكر كود الحذف والتعديل لديك ولكن اذا ذهبت لهما اظن انك ستجد filldataset وهي المسؤولة عن اضافة البيانات للداتا جريد فيو
اما كلامك ///عدم إضافة البيانات فى datagridview مباشرة/// فهي تحتمل عدة معاني ولكن اذا نقرت على الداتا جريدفيو في الزاوية العلوية اليميني تجد سهم صغير عند النقر عليه تظهر قائمة فيها خيارات
قم بتحديد الخيار Enable Adding

في حال اردت مزيدا من التوضيح ارجو توضيح سؤالك بشكل اكثر من ذلك

[رضوان الجهينى]

(20-08-22, 04:33 AM)ابو انس كتب : وعليكم السلام ورحمة الله وبركاته
الحدث MainForm_Load يتم تنفيذ كل الاكواد التي فيه عند فتح الفورم
من بين الكواد هناك سب انت مسميه   filldataset وايضا     formatgrd لاحظ انهما يحتويان البيانات الخاصة باسماء الاعمدة وايضا جلب بيانات من قاعدة البيانات وتعبئتها داخل الداتا جريد فيو 
والذي انت مسميه grd1 
فهذا ما يفسر  ////ولكن بمجرد الإغلاق وإعادة الفتح أجد البيانات قد أضيفت////
اما كلامك ///  ونفس الأمر عند الحذف وكذلك التحديث/// فانت لم تذكر كود الحذف والتعديل لديك ولكن اذا ذهبت لهما اظن انك ستجد filldataset وهي المسؤولة عن اضافة البيانات للداتا جريد فيو
اما كلامك ///عدم إضافة البيانات فى datagridview مباشرة/// فهي تحتمل عدة معاني ولكن اذا نقرت على الداتا جريدفيو في الزاوية العلوية اليميني تجد سهم صغير عند النقر عليه تظهر قائمة فيها خيارات
قم بتحديد الخيار Enable Adding

في حال اردت مزيدا من التوضيح ارجو توضيح سؤالك بشكل اكثر من ذلك

---

نشكر معاليكم على ردكم الكريم
وشرحكم الجميل على أساس المشكلة
وجزاكم الله كل الخير

[yassoo1985]

(18-08-22, 05:33 PM)رضوان الجهينى كتب : السادة الأكارم
السلام عليكم ورحمة الله وبركاته
وفقكم الله جميعا لما فيه الخير والصلاح ورفع قدركم وزادكم علما 
قمت بعمل مشروع بسيط وبصفتي بادءا فى هذا العمل تقابلني الكثير من المشاكل
ومنها على سبيل المثال
عدم إضافة البيانات فى datagridview مباشرة ولكن بمجرد الإغلاق وإعادة الفتح أجد البيانات قد أضيفت ونفس الأمر عند الحذف وكذلك التحديث
وها هو الكود
Imports System.Data.SqlClient

Imports System.Data.DataTable

Public Class MainForm

    Dim conn As New SqlConnection("Data Source=.;Initial Catalog=ALL;Integrated Security=True")

    Dim ds As New DataSet

    Dim da As New SqlDataAdapter

    Dim dv As New DataView

    Dim cmd As New SqlCommand

    Dim sql As String

    Dim student As String

    Sub formatgrd()

        With grd1

            .Columns(0).HeaderText = "اسم الطالب"

            .Columns(1).HeaderText = "ولى الأمر"

            .Columns(2).HeaderText = "الرقم القومى"

            .Columns(3).HeaderText = "تاريخ الرقم القومى"

            .Columns(4).HeaderText = "تاريخ الميلاد"

            .Columns(5).HeaderText = "محل الميلاد"

            .Columns(6).HeaderText = "المركز"

            .Columns(7).HeaderText = "المحافظة"

            .Columns(8).HeaderText = "العنوان"

            .Columns(9).HeaderText = "التليفون"

            .Columns(10).HeaderText = "الجنسية"

            .Columns(11).HeaderText = "الكلية"

            .Columns(12).HeaderText = "الفرقة"

            .Columns(13).HeaderText = "الشعبة"

            .Columns(14).HeaderText = "التخصص"

            .Columns(15).HeaderText = "العام الجامعى"

            .Columns(16).HeaderText = "الدور"

            .Columns(17).HeaderText = "الليسانس"

            .Columns(18).HeaderText = "المجموع التراكمى"

            .Columns(19).HeaderText = "التقدير التراكمى"

            .Columns(20).HeaderText = "تفقط المجموع التراكمى"

            .Columns(21).HeaderText = "المجموع الكلى"

            .Columns(22).HeaderText = "تفقيط المجموع الكلي"

            .Columns(23).HeaderText = "النسبة المئوية"

            .Columns(24).HeaderText = "تاريخ اعتماد مجلس الجامعة"

            .Columns(25).HeaderText = "تاريخ اعتماد مجلس الكلية"

            .Columns(26).HeaderText = "تاريخ اعتماد مجلس الجامعة هـ"

            .Columns(27).HeaderText = "تاريخ اعتماد مجلس الكلية هـ"

            .Columns(28).HeaderText = "رقم ق البراءة"

            .Columns(29).HeaderText = "تاريخ البراءة"

            .Columns(30).HeaderText = "رقم ق الشهادة"

            .Columns(31).HeaderText = "تاريخ الشهادة"

        End With

    End Sub

    Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        newrecord()

    End Sub

    Sub newrecord()

        For Each ctrl As Control In Me.Controls

            If TypeOf ctrl Is TextBox Then

                ctrl.Text = ""

            End If

        Next

        filldataset()

        formatgrd()

    End Sub

    Private Sub filldataset()

        sql = "select student,fATHER,ID, Date_ID, DOB, PLACE_BRITH, MARKZ, GOV, ADDRESS, TEL, NAT, faculty,FERKA ,shoba ,TAKASS,YEARS ,DOR ,lisans ,final_tr ,final_tra,taftr ,AllTotal,tafalltotal,final_per,gdate,fdate,gdateh,fdateh,braano,braadate,shno,shdate from students"

        ds = New DataSet

        da = New SqlDataAdapter(sql, conn)

        da.Fill(ds, "students")

        dv = New DataView(ds.Tables("students"))

        grd1.DataSource = dv

    End Sub

السلام عليكم
علشان البيانات تظهر بشكل وقتي في الداتا جريد فيو لازم بعد كل امر ( إضافة او تعديل أو حذف ) تحط معادلة تحميل البيانات الاساسية بعد كل معادلة عايز تنفذها 
ارجو يكون كلامي مفهوم