[khaled12345]

(12-11-17, 07:51 AM)a.ahmed كتب :

PHP كود :

Imports System.Data.SqlClient

Public Class Form1

    ' جملة الربط
    Public connSQLServer As New SqlConnection("Data Source= DELL-PC\omar;Initial Catalog= Ericsson;Integrated Security=True")
    Dim da As New SqlDataAdapter("Select * From ERC_2G", connSQLServer)
    Dim dt As New DataTable
    Dim binding As New BindingSource

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        binding.DataSource = dt
        da.Fill(dt)

        TextIDText.DataBindings.Add("Text", binding, "ID")
        Site_RegionText.DataBindings.Add("Text", binding, "Site_Region")
        Site_KeyText.DataBindings.Add("Text", binding, "Site_Key")
        Node_NameText.DataBindings.Add("Text", binding, "Node_Name")
        SystemText.DataBindings.Add("Text", binding, "System")
        TechnologyText.DataBindings.Add("Text", binding, "Technology")
        Cabinet_TypeText.DataBindings.Add("Text", binding, "Cabinet_Type")
        Site_ActivityText.DataBindings.Add("Text", binding, "Site_Activity")
        ConfigurationText.DataBindings.Add("Text", binding, "Configuration")
        StatusText.DataBindings.Add("Text", binding, "Status")
        DateTimePicker1.DataBindings.Add("Value", binding, "mbate")
        LAC_TACText.DataBindings.Add("Text", binding, "LAC_TAC")
        ParentsText.DataBindings.Add("Text", binding, "Parents")
        PriorityText.DataBindings.Add("Text", binding, "Priority")
        PhaseText.DataBindings.Add("Text", binding, "Phase")
        FON_IDText.DataBindings.Add("Text", binding, "FON_ID")
        BH_TypeText.DataBindings.Add("Text", binding, "BH_Type")

        DataGridView1.DataSource = binding

    End Sub


    ' كود مفتاح الحذف
    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

        If TextIDText.Text = "" Then
            MsgBox("لم يتم اختيار سجل لحذفه")
            Exit Sub
        End If

        If MsgBox("هل تريد الحذف فعلاً ", MsgBoxStyle.Question + vbYesNo, Title:="تحذير") = vbYes Then
            binding.RemoveCurrent()

            Dim builder As New SqlCommandBuilder(da)
            da.Update(dt)

            MsgBox("تم الحذف")
        End If

    End Sub


    Public Function Max_ID_From_dt()
        Dim Number As Integer
        Try
            Dim cmd As New SqlCommand("Select Max(ID) From dt", connSQLServer)
            connSQLServer.Open()
            Number = cmd.ExecuteScalar
            connSQLServer.Close()
        Catch
            Number = 0
            connSQLServer.Close()
        End Try
        Return Number
    End Function

End Class 


بارك الله فيك يا هندسة


والف مليون شكر لدعم حضرتك الدائم

الكود تمام