Discussion :

[simraill]

bonjour à tous,
Alors voila mon problème :

J'ai 4 tables dans ma base de donnée sous sqlserver qui sont : Site, Building, Location et System

Dans la table Site il y a les champs id_Site et Site_Name.
Dans la table Building il y a id_Building, ide_Site et Building_Name.
Dans la table location il y a id_Location, ide_Site et ide_Building
Dans la table System il y a id_System et ide_Location.

Je ne vous fait pas de dessin pour les relations entre les tables vous les avez compris je pense ^^!

Donc en fait j'ai trois combobox : comboboxSite, comboboxBatiment et comboboxSysteme.

Donc quand mon formulaire ce charge je met les donnée de Site_Name dans mon premier combobox :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 Try
 
            objConnexion.Open()
            objCommand.CommandText = "SELECT Site_Name, id_Site FROM ITIL_Site ORDER BY Site_Name"
            objReader = objCommand.ExecuteReader
            Do While objReader.Read
                comboboxSite.Items.Add(objReader.GetString(0))
            Loop
            objReader.Close()
            objConnexion.Close()
        Catch ex As Exception
            MessageBox.Show("L'erreur suivante a été rencontrée :" & ex.Message)
        End Try

J'arrive à mettre les donnée dans le combobox batiment en fonction du site selectionné :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Try
              objConnexion.Open()
              objCommand.CommandText = "SELECT Building_Name FROM ITIL_Building B, ITIL_Site S WHERE S.id_Site = B.ide_Site AND S.Site_Name ='" & comboboxSite.SelectedItem & "'"
            objReader = objCommand.ExecuteReader
            Do While objReader.Read
                comboboxBatiment.Items.Add(objReader.GetString(0))
            Loop
            objReader.Close()
            objConnexion.Close()
        Catch ex As Exception
            MessageBox.Show("L'erreur suivante a été rencontrée :" & ex.Message)
        End Try

Mais pour je n'arrive pas à récupérer les données de System_Name en fonction du Site et du Batiment sélectionnés en passant par id_Location...


J'ai essayer de récupérer id_Site et id_Building des sites et batiment sélectionné mais cela ne marche pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Try
            objConnexion.Open()
            objCommand.CommandText = "SELECT id_Site FROM ITIL_Site WHERE Site_Name = '" & comboboxSite.SelectedItem & "'"
            objReader = objCommand.ExecuteReader
            Dim intID_Site As Integer = objReader.GetInt16(0)
            objReader.Close()
            objConnexion.Close()
        Catch ex As Exception
            MessageBox.Show("L'erreur suivante a été rencontrée :" & ex.Message)
        End Try

Si vous pouviez m'aider ça serait vraiment sympas car je suis vraiment en galère là...

[shayw]

Re bonjour

d'abord les tables

Dans la table Site il y a les champs id_Site et Site_Name.
Dans la table Building il y a id_Building, ide_Site et Building_Name.
Dans la table location il y a id_Location, ide_Site et ide_Building
Dans la table System il y a id_System et ide_Location.

à quoi sert ta table location et la table system ?
il manque des champs

[-N4w4k-]

Salut,

J'ai essayer de récupérer id_Site et id_Building des sites et batiment sélectionné mais cela ne marche pas

C'est à dire? tu n'as aucun résultat? tu as une erreur? Si oui laquelle?

[monsof]

Bonjour,

Dans la table Site il y a les champs id_Site et Site_Name.
Dans la table Building il y a id_Building, ide_Site et Building_Name.
Dans la table location il y a id_Location, ide_Site et ide_Building
Dans la table System il y a id_System et ide_Location.

Pourquoi ide_Site dans la table Location ? ide_Building suffira.

objReader = objCommand.ExecuteReader
Dim intID_Site As Integer = objReader.GetInt16(0)
objReader.Close()

Il te manque un While je crois, essaye

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim intID_Site As Integer
Do While objReader.Read
      intID_Site = objReader.GetInt16(0)
Loop

[simraill]

Désolé de répondre que maintenant, week end de 4 jours ne m'a pas laisser le temps de bosser !!

@shayw : Je n'ai pas donner toutes les tables (il y en a une quinzaine), juste celle utile pour le problème rencontré.
En fait c'est pour faire un outil de gestion d'obsolescence des équipements d'automatisme. Donc la table système a aussi des champs system_name (ligne de production numéro 1 par exemple) et d'autres. Elle sera relier aussi à une table équipement etc ...

@-N4w4k- : Oui j'ai une erreur :

L'erreur suivante a été rencontrée : Invalid attempt to read when no data is present.

Et quand j'essaye avec la boucle while que propose moncef2010 j'ai :

L'erreur suivante a été rencontrée :Specified cast is not valid

J'utilise le mauvais Get du Reader?!

@moncef2010 : J'ai le un ide_Site et ide_Building car un système peut être commun à tous un site, donc sans avoir de bâtiment.
Et pour le while j’obtiens l'erreur que je cite plus haut.

Merci à tous pour vos réponses.

[sinople]

Avec un reader, si mes souvenirs sont bon il faut vérifier que le read ne renvoie pas false (ce qui signifie qu'il n'y a pas de résultat ou que tu es arrivé à la fin de tes résultats). On l'utilise principalement en tant que condition de sortie de la boucle pour le traitement de la requete.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
While monreader.read()
traiter l'enregistrement
End While

Si tu attends uniquement un résultat (requête sur un identifiant par exemple), tu peux utiliser la propriété HasRows afin de vérifier qu'il y a bien au moins une ligne..

[monsof]

objReader.GetInt16(0)

Essayez

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

objReader("id_Site")

Vérifiez bien les types des champs en base de données : entier, chaine...