Integrer des données dans ma BDD sous VB

**Delack** · 13/12/2008, 23h40

Bonjour a tous,
Voila, j'ai un Soucis lorsque je souhaite faire une requete INSERT sous VB.

Enfaite, je dois inserer dans ma base de données, des valeurs que j'inscrit dans ma boite de texte. Ma boite de texte s'apelle txtTitre, et je pensais qu'en fesant txtTitre.Text je récuperer la valeur que j'inscrivais dedans mais apparement non. Il y as un autre boite de texte qui s'apelle txtDuree et qui contient un integer, je pense que la gestion est légerement differente, et enfin il y as un combo qui s'apelle cboGenre, dont j'ai aussi besoin de récuperer le numéro du genre dans la liste caché.
Je met l'extrait du 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
18
19
20
21
22
23
24
Private Sub cmdAjout_Click()
Dim a As String
Dim b As String
b = "Erreur"
a = "Impossible d'ajouter un film "
If cmdAjout.Caption = "Ajout" Then
    Call Activation(False)
    Call miseABlanc
    txtTitre.SetFocus
    cmdAjout.Caption = "Enregistrer"
 Else
    If cmdAjout.Caption <> "Ajout" Then
        If txtTitre.Text <> "" And txtDuree.Text <> "" Then
            Set rsDvd = dbFilm.Execute("insert into dvd (titre,duree,numgenre)values('txtTitre.Text',90,1)")
            Set rsDernier = dbFilm.Execute("select last_value as ledernier from dvd_numdvd_seq")
            Call initDvd(ledernier)
        Else
            rep = MsgBox(a, vbOKOnly + vbCritical, b)
        End If
        cmdAjout.Caption = "Ajout"
        Call Activation(True)
    End If
End If
End Sub

En espérant que vous pourrez m'aider

Merci d'avance

**Delbeke** · 14/12/2008, 11h15

Un message d'erreur, ou alors ton message "Impossible d'ajouter un film " s'affiche ?

**obydissonn** · 14/12/2008, 11h54

essaie ça et tu vera

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
'recuperer le numerogenre fait:
Dim req as String
'valeurnumgenre est le numero du genre
 
valeurnumgenre=cboGenre.ItemData(cboGenre.ListIndex)
 
requette d'insertion
 
req="insert into dvd (titre,duree,numgenre)values(" & txtTitre.Text & "," & txtDuree.Text & "," & valeurnumgenre & ")"
 
 
Set rsDvd = dbFilm.Execute(req)

**Delack** · 14/12/2008, 13h38

Merci pour vos réponses, enfaite j'ai rajouter des cotes pour pouvoir recuperer les valeurs dans mes boite de texte, sa donne sa :

Code :

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

Set rsDvd = dbFilm.Execute("insert into dvd (titre,duree,numgenre)values('" & txtTitre.Text & "','" & txtDuree.Text & "','" & cboGenre.ListIndex & "')")

Merci a vous pour vos réponses ! ( et oui, la boite d'erreur s'affichait quand un des 3 champs n'était pas sélectionne)