Discussion :

[2berte]

Salut tout le monde

Je vous écris car je recontre quelques petits problème ! En faite dans un formulaire principal (ajout d'une personne : athléte), je charge une combobox (les libellés de mes catégories) à l'aide d'une requête. Mais ensuite pour ajouter cette personne, il faut que je récupère l'identifiant de la catégorie, donc j'execute le même type de requête, mais cela ne fonctionne pas.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
  Dim BDD As GestionBDD
            Dim IdVille, IdCategorie As String
            BDD = New GestionBDD()
 
            BDD.SelectBDD("select VIL_ID from ville where VIL_NOM = '" & cbx_ville.Text & "'")
            IdVille = BDD.MonReader.GetString(0)
 
            BDD.SelectBDD("select CAT_ID from categorie where CAT_LIBELLE = ('" & cbx_categorie.Text & "')")
            IdCategorie = BDD.MonReader.GetString(0)
 
......

La variable cbx_ville contient bien une valeur puique je l'ai testé avec une msgbox, de plus c'est dans cette variable que j'ai chargé précedemment mes villes à partir de ma base de donnée, donc aucune incohérence me parait possible.

Merci pour votre aide

[JPelli]

Bonjour,
Essaye :

Code :

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

BDD.SelectBDD("select VIL_ID from ville where VIL_NOM = '" & cbx_ville.Text.trim & "'")

Bon boulot
Jean

[2berte]

Donc j'ai essayé avec la proposition ci dessus, ça ne marche pas avec le "trim". Mais merci quand même.

Je vais réexpliquer mon problème. Donc j'ai un formaulaire où il se situe des combobox alimenter par une base de données ( des tables différentes). Jusque là ça fonctionne du tonnere.

Mais c'est ensuite lorsque je veux récuperer les clés primaires de mes valeurs situées dans les combobox où cela se corse ! Impossible ... J'en ai absolument besoin pour ajouter mon enregistrement de départ !

Donc je vais vous mettre tout mon code détailler que j'utilise pour que vous puissiez m'éclairer.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
     ' Code situé dans ma classe GestionBDD que j'utilise pour la connection
    Public Sub New()
        Me.New("dsn=BASE_DONNEE_ATHLE")
    End Sub
 
    'Permet d'établir une connection avec n'importe quelle BDD
    Public Sub New(ByVal MonOdbc As String)
        Try
            If (IsNothing(Me.oConnection)) Then
                ' Si la connection n'existe pas, on l'instancie
                Me.oConnection = New OdbcConnection(MonOdbc)
                ' On ouvre la connection
                Me.oConnection.Open()
                Me.oDataset = New DataSet("GestionBDD")
                Me.oDataAdapter = New OdbcDataAdapter
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
 
    ' Permet d'exécuter les réquêtes de sélection
    Public Sub SelectBDD(ByVal Requete As String)
        Try
            'Instanciation de la commande sql
            Me.oCommand = New OdbcCommand(Requete, Me.oConnection)
            'Creation d'un Oreader qui permet de récupérer le résultat
            Me.oReader = Me.oCommand.ExecuteReader
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim BDD As GestionBDD
Dim IdVille, IdCategorie As String
 
BDD = New GestionBDD()    
 
BDD.SelectBDD("select VIL_ID from ville where VIL_NOM = '" & cbx_ville.Text & "'")
 
IdVille = BDD.MonReader.GetString(0)

Donc ma question peut se résumer : Comment puis je récupérer une clé primaire dans un table pour l'insérer ensuite dans un enregistrement dans une autre table.

J'atends beaucoup de vous chèr développeurs !!

Merci

Vincent

[ludo16s]

La clé primaite ne peut pas être du Type texte, donc pas un string.
La clé primaire est obligatoirement du type integer dans la base de donnée.
Il faut donc lire la valeur avec GetInt32 et non GetString, et il faut l'attribuer à une variable integer et non pas string.

Je pense que ça devrait marcher maintenant.

P.S. : évidemment avec GetInt32.ToString tu peux directement convertir en type string.

Alain

[ludo16s]

Je suis désolé Vincent, mais dans ma réponse précédente j'ai écrit une grosse connerie (après un café ça va mieux !).
Une clé primaire peut évidemment être du type texte dans une base de données, mais on procède rarement de cette façon. Si ton champ ID est effectivement de type numérique comme je le suppose, ma réponse est bonne, sinon le problème doit se situer dans le 'SelectBDD' de ta classe.

Alain

[The_badger_man]

Pourquoi tu ne récupère pas le cles primaires en meme temps que tu récupères les valeurs pour tes combobox ?

[JPelli]

Bonjour,
Si j'ai bien compris tu as le libellé des catégories dans un combobox et tu voudrais récupérer la clé de la catégorie sélectionée??
Si c'est bien le cas.
La solution la plus simple est de lier le combo à une table avec un bindingsource,
chaque déplacement dans le combo déplace la position du bindingsource, la propriété .current renvoie l'enregistrement de la table d'ou tu peux extraire la cle de l'enregistrement.
Si le combo n'est pas lié à une table.
Il faut chercher le libellé dans la table avec un select ou un find(dataview)
J'espère c'est ce que tu cherches.
Bon boulot
Jean

[2berte]

Merci à vous tous,
je me suis inspiré du getin(32). De plus une camarade de cours avait fais la même erreur que moi. Elle m'a dit que j'ai oublier de lire mon reader, donc ça ne pouvait pas marcher !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
BDD = New GestionBDD()
 
' Permt de récupérer l'identifiant de ma ville
BDD.SelectBDD("select VIL_ID from ville where VIL_NOM = '" & cbx_ville.Text & "'")
BDD.MonReader.Read()
IdVille = BDD.MonReader.GetInt32(0)
BDD.MonReader.Close()
 
' Permt de récupérer l'identifiant de ma catégorie
BDD.SelectBDD("select CAT_ID from categorie where CAT_LIBELLE = ('[" & cbx_categorie.Text & "]')")
BDD.MonReader.Read()
IdCategorie = BDD.MonReader.GetInt32(0)
BDD.MonReader.Close()

Mais par contre parfois ça plante ! j'ai le message suivant :

Error[4200][Microsoft][Pilote ODBC Microsoft access] Erreur de syntaxe (opérateur absent) dans l'expression 'CAT_LIBELLE=('[écolde d'athlétisme]').

Donc au départ je pensais que ça plantait parce que j'avais un mot composé (école d'athlétisme), donc j'ai mis des crochets, mais ça n'a rien changeait!

Vous avez peut-être une idéee ?

Merci

[The_badger_man]

je te le redis, pourquoi vouloir faire une requète pour récupérer l'identifiant ?
Lorsque tu fais ta requète pour obtenir la liste des catégories, tu récupère en même temps leurs identifiants. Comme ça tu les as directement en local.

[olsimare]

Bonjour.

Je suis entièrement d'accord avec Badger sur le fait qu'il est conceptuellement beaucoup plus propre de récupérer l'ID et le Nom dans la requête d'alimentation de la combo.

Pourquoi donc ? Tout simplement parce que de toute façon, il n'est pas exclus que tu ais à terme des doublons sur le nom de la ville (2 villes de même nom c'est courant !). De maniére générale, une propriété non discréminante ne devrait jamais servir à recherche une clé primaire. En chargeant ton ID, dans le cas ou tu aurais des doublons sur le nom de ville, tu pourrais afficher nom de ville + département sans remettre en cause le fonctionnement.

Un exemple de chargement de combo avec un dataset :
monCombo.ValueMember = ds.Tables(0).Columns(0).ColumnName --> l'ID
monCombo.DisplayMember = ds.Tables(0).Columns(1).ColumnName --> le nom de la ville
monCombo.DataSource = ds.Tables(0)

ds est le dataset chargé avec le résultat d'une requête de type :
select ID, nom from matable where ...

cdt.

[2berte]

Je vous remercie beaucoup de cette aide ! je vais appliqué cela ...