Discussion :

[Wapi_gui]

Essaye en faisant ça :

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
Private Sub BindingNavigatorAddNewPays_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorAddNewPays.Click
 
        If Txt_sigle.Text = "" And Txt_Pays.Text = "" Then
            MsgBox("Une pays doit avoir un sigle")
        Else
 
            Try
 
                dtreader = commande.requete("INSERT Into tblPays(idpays, sigle, pays) VALUES  ('" + Txt_idpays.text + "', '" + Txt_sigle.Text + "','" + Txt_Pays.Text + "')", connec)
                dtreader.Close()
                MsgBox("Un pays a été ajouté à votre liste")
                Txt_sigle.Text = ""
                Txt_Pays.Text = ""
                afficher()
            Catch ex As Exception
                MsgBox("Veuillez insérer un pays ")
            End Try
            'afficher()
        End If
    End Sub

[emayen01]

Essaye en faisant ça :

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
Private Sub BindingNavigatorAddNewPays_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorAddNewPays.Click
 
        If Txt_sigle.Text = "" And Txt_Pays.Text = "" Then
            MsgBox("Une pays doit avoir un sigle")
        Else
 
            Try
 
                dtreader = commande.requete("INSERT Into tblPays(idpays, sigle, pays) VALUES  ('" + Txt_idpays.text + "', '" + Txt_sigle.Text + "','" + Txt_Pays.Text + "')", connec)
                dtreader.Close()
                MsgBox("Un pays a été ajouté à votre liste")
                Txt_sigle.Text = ""
                Txt_Pays.Text = ""
                afficher()
            Catch ex As Exception
                MsgBox("Veuillez insérer un pays ")
            End Try
            'afficher()
        End If
    End Sub

mais j'ai que 2 textes boxes dans mon formulaire
Txt_sigle et Txt_pays , j'ai pas Txt_idPays !!!

j'ai meme essyé avec ca mais ca n'a pas resolu le probleme :

Code :

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

 dtreader = commande.requete("INSERT dbo.tblPays(idPays,sigle,pays) VALUES  ('" & currentid & "','" + Txt_sigle.Text + "','" + Txt_Pays.Text + "')", connec)

tout en sachant que ma fonction pour recuperer le currentid est :

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
 
    Private Function getCurrentId() 'As Integer
 
        currentid = getCurrentId(Txt_sigle.Text)
        If currentid = 0 Then
            Return 0
        Else
            dtreader = commande.requete("SELECT idPays, sigle FROM tblPays WHERE idPays=" & currentid, connec)
 
            afficher()
 
        End If
 
        getCurrentId = Txt_sigle.Text
    End Function

[Wapi_gui]

Ok, ok... pas de problème. Le début de ta requete, en tout cas est bon... Ensuite, je peux te dire comment faire, mais je ne sais pas exactement la syntaxe...
- au début de ta procédur, tu fais une requete :

Code :

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

Select Max(Idpays) From tblPays

- ensuite, la valeur que te renvois ce select, tu la mets dans une variable (disons "id")
- puis, tu fais :

Code :

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

id += id

- pour finir, tu fais ta requete

Code :

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

"INSERT Into tblPays(idpays, sigle, pays) VALUES  ('" + id + "', '" + Txt_sigle.Text + "','" + Txt_Pays.Text + "')"

J'espère que c'est clair

[emayen01]

Ok, ok... pas de problème. Le début de ta requete, en tout cas est bon... Ensuite, je peux te dire comment faire, mais je ne sais pas exactement la syntaxe...
- au début de ta procédur, tu fais une requete :

Code :

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

Select Max(Idpays) From tblPays

- ensuite, la valeur que te renvois ce select, tu la mets dans une variable (disons "id")
- puis, tu fais :

Code :

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

id += id

- pour finir, tu fais ta requete

Code :

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

"INSERT Into tblPays(idpays, sigle, pays) VALUES  ('" + id + "', '" + Txt_sigle.Text + "','" + Txt_Pays.Text + "')"

J'espère que c'est clair

voila c ca ce que je cherche , car il faut incrementer la valeur de l'idPys avant l'insertion dans la BD sinon ca marchera pas .

sinon j'avais un exemple pareil mais je sais pas trop comment m'inspirer , je te passe la requete :

Code :

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

dtreader = commande.requete("DECLARE @id as int; set @id=(SELECT count(idInscrEtape) FROM tblInscrEtape)+1; INSERT tblInscrEtape (ordre, Etape) VALUES (@id,'[nouveau]')", connec)

finalement ma requete est :

Code :

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

dtreader = commande.requete("DECLARE @id as int; set @id=(SELECT count(idPays) FROM tblPays)+1; INSERT tblPays (sigle, Pays) VALUES (@id,'[nouveau]')", connec)

mais sans resultat !!!