none
Comment ça se fait que ça marche pas ? RRS feed

  • Question

  • 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 !

    samedi 30 mars 2013 00:58

Réponses

Toutes les réponses