afficher dans mon text box en vb.net

Version imprimable

Voir 40 message(s) de cette discussion en une page

Essaye en faisant ça :

Code:

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

Citation:

Envoyé par Wapi_gui

Essaye en faisant ça :

Code:

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:

 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:

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

12/06/2009, 16h11
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:

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:

id += id

- pour finir, tu fais ta requete

Code:

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

J'espère que c'est clair :mrgreen:
12/06/2009, 16h20
emayen01

Citation:

Envoyé par 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:

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:

id += id

- pour finir, tu fais ta requete

Code:

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

J'espère que c'est clair :mrgreen:

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:

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:

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 !!!:cry:

Voir 40 message(s) de cette discussion en une page