[VB.NET] مساعدة بخصوص كود الحفظ - نسخة قابلة للطباعة

كود :

       Try

            Dim sql = ("select * from Company_Details where Company_ID=N'" & (Company_ID.Text) & "'")

            Dim adp As New SqlClient.SqlDataAdapter(sql, sqlconn)

            Dim ds As New DataSet

            adp.Fill(ds)

            Dim dt = ds.Tables(0)

            If dt.Rows.Count > 0 Then

                Exit Sub

            Else

                Dim dr = dt.NewRow



                Dim CTL As New Control







                For i = 0 To Me.Controls.Count - 1





                    If TypeOf CTL.Controls(i) Is TextBox And dr.Item(dr!CTL.Name(i)) = Me.Controls(i).Name Then





                        dr.Item(dr!CTL.Name(i)) = Me.Controls(i).Text





                    End If

                Next





                        dt.Rows.Add(dr)

                        Dim cmd As New SqlClient.SqlCommandBuilder(adp)

                        adp.Update(dt)



                        MsgBox("تم حفظ بيانات الشركة بنجاح", MsgBoxStyle.Information, "رسالة تأكيد ")

                    End If



        Catch ex As Exception

            MessageBox.Show(ex.Message, "فشل في عملية الحفظ ", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly)

        End Try

كود :

  Try

            Dim sql = ("select * from Company_Details where Company_ID=N'" & (Company_ID.Text) & "'")

            Dim adp As New SqlClient.SqlDataAdapter(sql, sqlconn)

            Dim ds As New DataSet

            adp.Fill(ds)

            Dim dt = ds.Tables(0)

            If dt.Rows.Count > 0 Then

                Exit Sub

            Else

                Dim dr = dt.NewRow



                '----------------------------------------------------------------------------------------

                For Each Ctrl In Me.FindAllChildren

                    If TypeOf Ctrl Is TextBox And dt.Columns.Contains(Ctrl.Name) Then

                        dr.Item(Ctrl.Name) = Ctrl.Text

                    End If

                Next

                '----------------------------------------------------------------------------------------





                dt.Rows.Add(dr)

                'Dim cmd As New SqlClient.SqlCommandBuilder(adp)

                adp.Update(dt)





                MsgBox("تم حفظ بيانات الشركة بنجاح", MsgBoxStyle.Information, "رسالة تأكيد ")

            End If



        Catch ex As Exception

            MessageBox.Show(ex.Message, "فشل في عملية الحفظ ", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly)

        End Try

كود :

Public Module ExtensionModule

    <Runtime.CompilerServices.Extension()>

    Public Function FindAllChildren(ByRef StartingContainer As System.Windows.Forms.Control) As List(Of System.Windows.Forms.Control)

        Dim Children As New List(Of System.Windows.Forms.Control)



        If StartingContainer.HasChildren = False Then

            Return Nothing

        Else

            Dim oControl As System.Windows.Forms.Control

            For Each oControl In StartingContainer.Controls

                Children.Add(oControl)

                If oControl.HasChildren Then

                    Children.AddRange(oControl.FindAllChildren())

                End If

            Next

        End If



        Return Children

    End Function

End Module