Discussion :

[Pwouaro]

Bonjour à tous,

Voici mon problème :

J'ai une base de données Access 2003 contenant deux tables reliées :

T_categorie
id_categorie
cat_nom

T_question
Id_question
que_question
que_bonne_reponse
que_mauvaise1
que_mauvaise2
id_categorie <== clé primaire de la table T_catégorie

Mon formulaire a pour but d'ajouter une question dans la table question (logique). Le soucis est que je ne vois pas comment ajouter "id_categorie" correspondant.

Voici mon code :

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
 
Private Sub cmd_valider_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_valider.Click
        Dim cmd_valid As New OleDb.OleDbCommand
        Dim con_valid As New OleDb.OleDbConnection
 
        con_valid.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source =C:\visual_basic\QCM\QCM.mdb;"
        cmd_valid.CommandText = "insert into T_question(que_question, que_bonne_rep, que_mauvaise_rep1, que_mauvaise_rep2, id_categorie) values ('" & Me.Txt_question.Text & "', '" & Me.Txt_bonne_rep.Text & "', '" & Me.Txt_mauvaise1.Text & "', '" & Me.Txt_mauvaise2.Text & "', " & Me.cmb_categorie.Text & ")"
        cmd_valid.Connection = con_valid
        Try
            con_valid.Open()
            cmd_valid.ExecuteNonQuery()
            con_valid.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
 
    End Sub

Auriez-vous des pistes svp?


EDIT : Je travaille sous Visual Studio vb.net 2003

[mactwist69]

C'est a dire?? Precise.

Ton code te permet d ajouter un question... avec sa categorie correspondante stocker dans Me.cmb_categorie.Text

Que veux tu donc faire? Selectionner la bonne categorie? via un control?

Ajouter une nouvelle ligne dans ta table categorie? Par un autre evenement?

[Lefaucheux]

si Me.cmb_categorie.text représent le nom de la catégorie , il te faut récupérer d'abord par requête l'ID_categorie et le mettre dans une variable avant ton insert.

(genre "select id_categorie from t_categorie where cat_nom =" & Me.cmb_categorie.Text )

Ca répond à ta question ?

[Pwouaro]

Merci pour vos réponse.

Effectivement mon message n'était pas très clair.

@Lefaucheux

C'est bien ce qui me fallait. Par contre je ne passe pas par une variable. l'id_categorie est stocké dans un champ texte en arrière plan.

L'insertion se fait sans problème maintenant.