[asemshahen5]

الحمد لله و الشكر لله تستطيع تعديل الكود ليحفظ سجلات جديدة اذا اردت بشرط ان يكون عامود الاي دي مفتاح رئيسي و ترقيم تلقائي عدل الكود ليكون كتالي :

PHP كود :

   Private Sub DataGridView1_CellValueChanged(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellValueChanged
        ''adapter.UpdateCommand = New SqlCommandBuilder(adapter).GetUpdateCommand()
        ''adapter.Update(dd)
        ''dt1.AcceptChanges()
        i = e.RowIndex
        If DataGridView1.Rows(e.RowIndex).Cells(0).Value.ToString = "" Then
            Dim StrSQL As String = "INSERT INTO EmployeeXT (Name,Telphon ) VALUES ('" &
                DataGridView1.Rows(e.RowIndex).Cells(1).Value.ToString & "','" &
                DataGridView1.Rows(e.RowIndex).Cells(2).Value.ToString & "')"
            ExecuteNonQueryXT(StrSQL)
            DataGridView1.DataSource = FillDgv("select * from EmployeeXT")
            FillDgvComboBox(DataGridView1, "select * from EmployeeCmb", "Name", 1)
            DataGridView1.Columns(0).Visible = False
        Else
            Dim StrSQL As String = "UPDATE EmployeeXT SET Name='" &
                DataGridView1.Rows(e.RowIndex).Cells(1).Value.ToString &
                "', Telphon='" & DataGridView1.Rows(e.RowIndex).Cells(2).Value.ToString &
                "' Where ID='" & DataGridView1.Rows(e.RowIndex).Cells(0).Value.ToString & "'"
            ExecuteNonQueryXT(StrSQL)
            DataGridView1.DataSource = FillDgv("select * from EmployeeXT")
            FillDgvComboBox(DataGridView1, "select * from EmployeeCmb", "Name", 1)
            DataGridView1.Columns(0).Visible = False
        End If
    End Sub 


و ضع بالفورم لود كود لاخفاء الايدي ليصبح كالتالي او اجعله للقراءة فقط :

PHP كود :

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        DataGridView1.DataSource = FillDgv("select * from EmployeeXT")
        FillDgvComboBox(DataGridView1, "select * from EmployeeCmb", "Name", 1)
        DataGridView1.Columns(0).Visible = False
    End Sub 


او :

PHP كود :

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        DataGridView1.DataSource = FillDgv("select * from EmployeeXT")
        FillDgvComboBox(DataGridView1, "select * from EmployeeCmb", "Name", 1)
        DataGridView1.Columns(0).ReadOnly = True
    End Sub