الحذف للسجل بشروط معينة - نسخة قابلة للطباعة

PHP كود :
Imports System.Data.OleDb

Public Class Form1
    Public Conne As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.Ace.OLEDB.12.0;Data Source=|Datadirectory|\DataBase1.Accdb;")
    Public pConn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;" & "data source=" & Application.StartupPath & "\DataBase1.accdb")

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        DataGridView1.DataSource = fDataTable("Select * from Table1 Order By Id Asc")
        DataGridView2.DataSource = fDataTable("Select * from Table2 Order By Id Asc")
    End Sub

    Private Sub DataGridView1_SelectionChanged(sender As Object, e As EventArgs) Handles DataGridView1.SelectionChanged
        Try
            With DataGridView1
                Me.TextBox1.Text = .CurrentRow.Cells(1).Value.ToString()
            End With
        Catch ex As Exception
        End Try
    End Sub

    '=========================================================================================
    Public Function Existing_Value(sSQLSelect As String) As Boolean ' للتحقق من وجود سجل
        If pConn.State <> ConnectionState.Open Then pConn.Open()
        '---------------------------------------------------------
        Dim fCmd As New OleDb.OleDbCommand(sSQLSelect, pConn)
        Dim fDt As New DataTable

        fDt.Load(fCmd.ExecuteReader())
        '---------------------------------------------------------
        If pConn.State <> ConnectionState.Closed Then pConn.Close()
        '---------------------------------------------------------
        If fDt.Rows.Count > 0 Then
            Return True
        Else
            Return False
        End If
        '---------------------------------------------------------
    End Function

    Public Function fDataTable(sSQLSelect As String) As DataTable   '  لتعبئة جدول من قاعدة البيانات ضمن داتاتيبل
        If pConn.State <> ConnectionState.Open Then pConn.Open()
        '---------------------------------------------------------
        Dim fCmd As New OleDb.OleDbCommand(sSQLSelect, pConn)
        Dim fDt As New DataTable

        fDt.Load(fCmd.ExecuteReader())
        '---------------------------------------------------------
        If pConn.State <> ConnectionState.Closed Then pConn.Close()
        '---------------------------------------------------------
        If fDt.Rows.Count > 0 Then
            Return fDt
        Else
            Return Nothing
        End If
        '---------------------------------------------------------
    End Function

    Public Function fDataTable2(sSQLSelect As String) As DataTable   '  لتعبئة جدول من قاعدة البيانات ضمن داتاتيبل
        If pConn.State <> ConnectionState.Open Then pConn.Open()
        '---------------------------------------------------------
        Dim fCmd As New OleDb.OleDbCommand(sSQLSelect, pConn)
        Dim fDt As New DataTable

        fDt.Load(fCmd.ExecuteReader())
        '---------------------------------------------------------
        If pConn.State <> ConnectionState.Closed Then pConn.Close()
        '---------------------------------------------------------
        If fDt.Rows.Count > 0 Then
            Return fDt
        Else
            Return Nothing
        End If
        '---------------------------------------------------------
    End Function


    Public Sub RunCommand(strSqlCommand As String)  ' لتنفيذ أمر ما (حذف، إضافة، تعديل) اا
        If pConn.State <> ConnectionState.Open Then pConn.Open()
        '---------------------------------------------------------
        Dim cmd As New OleDbCommand(strSqlCommand, pConn)
        cmd.ExecuteNonQuery()
        pConn.Close()
        '---------------------------------------------------------
        If pConn.State <> ConnectionState.Closed Then pConn.Close()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If Existing_Value("Select * from Table2 Where [MyName]='" & TextBox1.Text.Trim & "'") Then
            MsgBox("هذا السجل مرتبط بسجلات أخرى، لا يمكنك حذفه أو  ....")
            Exit Sub
        End If

        RunCommand("Delete From Table1 Where Name ='" & TextBox1.Text.Trim & "'")

        MsgBox("تم الحذف بنجاح")

        DataGridView1.DataSource = fDataTable("Select * From Table1 Order By ID")

    End Sub
End Class