[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

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