conn.Open()
Dim sqlquery3 As String = "SELECT Matricule FROM Location WHERE Matricule = '" & ComboBox1.SelectedItem & "';"
Dim data3 As MySqlDataReader
Dim adapter3 As New MySqlDataAdapter
Dim command3 As New MySqlCommand
command3.CommandText = sqlquery3
command3.Connection = conn
adapter3.SelectCommand = command3
data3 = command3.ExecuteReader
While data3.Read
If data3.HasRows Then
MsgBox("Le véhicule que vous essayez de supprimez " & Chr(13) & "fait actuellement l'objet d'une location !", MsgBoxStyle.Exclamation)
End If
If data3.HasRows = False Then
MsgBox("bravo")
End If
End While
conn.Close()
Vous serez sympa de lire ceci.
Le truc est que j'ai 2 tables reliées entre elles par des clés étrangères (Location/Voitures).
Ce que j'essaie de faire dans ce code c'est effacer un véhicule de ma base de données mais étrangement ça ne marche pas !
Lorsque le num de matricule d'un véhicule qui se trouve dans la table Voitures se trouve également dans la table Location, j'affiche que le véhicule ne peut être effacer, dans le cas contraire, je peux l'effacer !
Le Msgbox("bravo") sert uniquement de test parce que la partie de la suppression est déjà prête mais le problème est que la msgbox ne s'affiche même pas !
