title: Deleting a record from multiple tables
body: <p>A table has been created for each subject (e.g. EnglishLanguage, Mathematics) and the students table is related to each of the subject table, I'd be thankful if someone could kindly edit the code below to enable me execute a delete command to delete a record from these multiple tables. </p>
  
  <p>One important issue is that there should be a way to execute the delete command such that a related record can as well be deleted from any additional subject table that will subsequently be created in future when a new subject is introduced. </p>
  
  <pre><code>Dim cd As String
  
  If txtName.Text = "" And cboDay.Text = "" And cboMonth.Text = "" And txtYear.Text = "" And lblAge.Text = "" And radioMale.Checked = False Or RadioFemale.Checked = False And txtGName.Text = "" And txtMPhone.Text = "" And txtEmail.Text = "" And txtAddress.Text = "" And txtCity.Text = "" And cboRegion.Text = "" And PictureBox1.ImageLocation = "" Then
      MessageBox.Show("There is no record selected to delete. Search for the record to delete.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
  Else
      cd = MessageBox.Show("You are about to delete this record. Are you sure you want to delete?", "Confirm Delete", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
      If cd = vbYes Then
          cmd = New SqlCommand("Delete from StudentDetails.Registration where StudentId='" &amp; txtStudentId.Text &amp; "'", cn)
          cmd.ExecuteNonQuery()
  
          cmd = New SqlCommand("Delete from StudentDetails.Students where StudentId='" &amp; txtStudentId.Text &amp; "'", cn)
          cmd.ExecuteNonQuery()
  
          cmd = New SqlCommand("Delete from ProgramDetails.EnglishLanguage where StudentId='" &amp; txtStudentId.Text &amp; "'", cn)
          cmd.ExecuteNonQuery()
  
          MessageBox.Show("Record deleted", "Deleted", MessageBoxButtons.OK, MessageBoxIcon.Information)
          Showgrid()
          txtStudentId.Clear()
          txtName.Clear()
          cboDay.Text = ""
          cboMonth.Text = ""
          lblAge.Text = ""
          txtNationality.Clear()
          If radioMale.Checked = True Then
              Sex = ""
          End If
          cboStudentType.Text = ""
          cboHouse.Text = ""
          cboRoom.Text = ""
          txtGName.Clear()
          txtMPhone.Clear()
          txtHPhone.Clear()
          txtEmail.Clear()
          txtAddress.Clear()
          txtCity.Clear()
          cboRegion.Text = ""
          PictureBox1.Image = PictureBox1.ErrorImage
          txtStudentId.Focus()
      End If
  End If
  </code></pre>