afficher dans mon text box en vb.net

**debutant00** · 03/06/2009, 17h36

Salut tout le monde , je debute en vb.net et je veux faire ce qui est dans l'image :
dans le formulaire qui s'appelle frmPays crée sous vb.net 2005 , je veux afficher le sigle et le pays dans le texte box , en important les données de la bases SQl 2008 ,
dans ma table pays il y'a (idPays, sigle, Pays) comment puis-je faire cela ? aidez moi svp !

mais ce qui est dur aussi c de faire marcher le BindingNavigator (menu en bas )

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
Imports System.Data.SqlClient
Imports System
 
 
Public Class frmPays
 
 
    Private Sub Txt_sigle_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txt_sigle.TextChanged
 
    End Sub
 
    Private Sub Txt_Pays_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txt_Pays.TextChanged
 
    End Sub
 
    Private Sub BindingNavigator1_RefreshItems(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigator1.RefreshItems
 
    End Sub
End Class

**Wapi_gui** · 04/06/2009, 09h44

Salut,

Pour le BindingNavigator, regarde ce site : http://plasserre.developpez.com/v6-6.htm

**roster** · 04/06/2009, 10h13

Un autre bon réflexe est d'aller voir notre amie coach:

http://msdn.microsoft.com/fr-fr/vbas....atelier5.aspx

**emayen01** · 04/06/2009, 10h53

Envoyé par roster

Un autre bon réflexe est d'aller voir notre amie coach:

http://msdn.microsoft.com/fr-fr/vbas....atelier5.aspx

Le coach m'a pas trop aidé vu que je débute en VB.Net , as tu une iddée concernnant mon code dans les 2 procedures Sigle et Pays pour faire marcher mon programme ?

**Wapi_gui** · 04/06/2009, 11h07

Oulà, j'ai du mal à suivre tout d'un coup... emayen01 = debutant00 ???
En tout cas, il y a plein de documentation partout, alors cherche un peu, s'il te plait.

**roster** · 04/06/2009, 11h23

C'est clair que c'est quand même le B.A.-ba de l'utilisation sql...

**emayen01** · 04/06/2009, 16h50

Envoyé par roster

C'est clair que c'est quand même le B.A.-ba de l'utilisation sql...

est ce qu'elqu'un peut m'aider la pour afficher les données quand je clique sur "BindingNavigatorMoveNextItem_Click" sachant que j'ai jamais travailler avec ca

merci

**Wapi_gui** · 05/06/2009, 08h51

Je pense que si tu regardes les tutos qu'on t'as donné + les tutos sur developpez.com, tu devrais avoir déjà pas mal d'aide. Commence déjà, on t'aidera ensuite.

**emayen01** · 05/06/2009, 09h50

Envoyé par Wapi_gui

Je pense que si tu regardes les tutos qu'on t'as donné + les tutos sur developpez.com, tu devrais avoir déjà pas mal d'aide. Commence déjà, on t'aidera ensuite.

Bonjour,

J'ai deja commencé mais j'arrive pas a afficher le nombre des pays dans le "BindingNavigator" ainsi le next et previous ne marchent pas

voila 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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Imports System.Data.SqlClient
Imports System
 
 
Public Class frmPays
 
 
    Public connexion As New SQLConnexion
    Public commande As New SQLCommande
 
    Dim dtreader As SqlDataReader
    Public connec As New SQLConnexion
    Dim currentid As Integer
 
 
    Private Sub frmPays_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 
        afficher()
        BindingNavigator.BindingSource = BindingSource1
 
    End Sub
    Private Sub afficher()
 
        Dim DTtable As New DataTable("datatable")
        Try
 
            dtreader = commande.requete("SELECT sigle , pays FROM dbo.tblPays  ", connec)
            DTtable.Load(dtreader)
            Me.BindingSource1.DataSource = DTtable
            Me.BindingNavigator.BindingSource = Me.BindingSource1
            dtreader.Close()
            Me.Txt_sigle.DataBindings.Add(New Binding("Text", Me.BindingSource1, "sigle"))
            Me.Txt_Pays.DataBindings.Add(New Binding("Text", Me.BindingSource1, "pays"))
        Catch ex As Exception
            MsgBox("Erreur au chargement")
        End Try
 
    End Sub
 
 
    Private Sub Txt_sigle_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txt_sigle.TextChanged
 
    End Sub
 
    Private Sub Txt_Pays_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txt_Pays.TextChanged
 
    End Sub
 
    Private Sub BindingNavigatorMoveNextItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorMoveNextItem.Click
 
        Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem"
        Me.BindingNavigatorCountItem.Text = "de {0}"
        Me.BindingNavigatorCountItem.ToolTipText = "Total number of items"
 
 
    End Sub
End Class

**emayen01** · 05/06/2009, 10h45

[QUOTE=emayen01;4372980]Bonjour,

J'ai deja commencé mais j'arrive pas a afficher le nombre des pays dans le "BindingNavigator" ainsi je sais pas comment declarer la position de l'item:
voila 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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Imports System.Data.SqlClient
Imports System
 
 
Public Class frmPays
 
 
    Public connexion As New SQLConnexion
    Public commande As New SQLCommande
 
    Dim dtreader As SqlDataReader
    Public connec As New SQLConnexion
    Dim currentid As Integer
 
 
 
 
    Private Sub frmPays_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 
        afficher()
 
        Me.paysBindingSource1.Position = 0
 
    End Sub
    Private Sub afficher()
 
        Dim DTtable As New DataTable("datatable")
        Try
 
            dtreader = commande.requete("SELECT sigle , pays FROM dbo.tblPays  ", connec)
            DTtable.Load(dtreader)
            Me.BindingSource1.DataSource = DTtable
            Me.BindingNavigator1.BindingSource = Me.BindingSource1
            dtreader.Close()
            Me.Txt_sigle.DataBindings.Add(New Binding("Text", Me.BindingSource1, "sigle"))
            Me.Txt_Pays.DataBindings.Add(New Binding("Text", Me.BindingSource1, "pays"))
        Catch ex As Exception
            MsgBox("Erreur au chargement")
        End Try
 
    End Sub
 
 
    Private Sub BindingNavigator1MoveNextItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
 
        Me.paysBindingSource1.Position += 1
 
    End Sub
 
End Class

**emayen01** · 05/06/2009, 11h48

[QUOTE=emayen01;4373315]

Envoyé par emayen01

Bonjour,

J'ai deja commencé mais j'arrive pas a afficher le nombre des pays dans le "BindingNavigator" ainsi je sais pas comment declarer la position de l'item:
voila 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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Imports System.Data.SqlClient
Imports System
 
 
Public Class frmPays
 
 
    Public connexion As New SQLConnexion
    Public commande As New SQLCommande
 
    Dim dtreader As SqlDataReader
    Public connec As New SQLConnexion
    Dim currentid As Integer
 
 
 
 
    Private Sub frmPays_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 
        afficher()
 
        Me.paysBindingSource1.Position = 0
 
    End Sub
    Private Sub afficher()
 
        Dim DTtable As New DataTable("datatable")
        Try
 
            dtreader = commande.requete("SELECT sigle , pays FROM dbo.tblPays  ", connec)
            DTtable.Load(dtreader)
            Me.BindingSource1.DataSource = DTtable
            Me.BindingNavigator1.BindingSource = Me.BindingSource1
            dtreader.Close()
            Me.Txt_sigle.DataBindings.Add(New Binding("Text", Me.BindingSource1, "sigle"))
            Me.Txt_Pays.DataBindings.Add(New Binding("Text", Me.BindingSource1, "pays"))
        Catch ex As Exception
            MsgBox("Erreur au chargement")
        End Try
 
    End Sub
 
 
    Private Sub BindingNavigator1MoveNextItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
 
        Me.paysBindingSource1.Position += 1
 
    End Sub
 
End Class

Ca y est , mon code marche nickel , reste jutse a améliorer :

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
Imports System.Data.SqlClient
Imports System
 
 
Public Class frmPays
 
 
    Public connexion As New SQLConnexion
    Public commande As New SQLCommande
 
    Dim dtreader As SqlDataReader
    Public connec As New SQLConnexion
    Dim currentid As Integer
 
 
 
 
    Private Sub frmPays_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        BindingSource1.Position = 0
 
        afficher()
 
    End Sub
    Private Sub afficher()
 
        Dim DTtable As New DataTable("datatable")
        Try
 
            dtreader = commande.requete("SELECT sigle , pays FROM dbo.tblPays  ", connec)
            DTtable.Load(dtreader)
            Me.BindingSource1.DataSource = DTtable
            Me.BindingNavigator1.BindingSource = Me.BindingSource1
            dtreader.Close()
            Me.Txt_sigle.DataBindings.Add(New Binding("Text", Me.BindingSource1, "sigle"))
            Me.Txt_Pays.DataBindings.Add(New Binding("Text", Me.BindingSource1, "pays"))
        Catch ex As Exception
            MsgBox("Erreur au chargement")
        End Try
 
    End Sub
 
 
    Private Sub BindingNavigator1MoveNextItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
 
        BindingSource1.Position += 1
 
    End Sub
 
 
    Private Sub BindingNavigatorMovePreviousItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorMovePreviousItem1.Click
 
        BindingSource1.Position -= 1
 
    End Sub
 
    Private Sub BindingNavigatorMoveLastItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorMoveLastItem1.Click
 
        BindingSource1.Position = BindingSource1.Count - 1
 
    End Sub
 
    Private Sub BindingNavigatorMoveFirstItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorMoveFirstItem1.Click
 
        BindingSource1.Position = 0
 
    End Sub
 
 
End Class

Maintenant je veux ajouter un label qui permet de mettre les 2 textboxes a blanc (vider les 2 textes blancs) , avez vous une idée ?

**emayen01** · 05/06/2009, 12h04

[QUOTE=emayen01;4373749]

Envoyé par emayen01

Ca y est , mon code marche nickel , reste jutse a améliorer :

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
Imports System.Data.SqlClient
Imports System
 
 
Public Class frmPays
 
 
    Public connexion As New SQLConnexion
    Public commande As New SQLCommande
 
    Dim dtreader As SqlDataReader
    Public connec As New SQLConnexion
    Dim currentid As Integer
 
 
 
 
    Private Sub frmPays_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        BindingSource1.Position = 0
 
        afficher()
 
    End Sub
    Private Sub afficher()
 
        Dim DTtable As New DataTable("datatable")
        Try
 
            dtreader = commande.requete("SELECT sigle , pays FROM dbo.tblPays  ", connec)
            DTtable.Load(dtreader)
            Me.BindingSource1.DataSource = DTtable
            Me.BindingNavigator1.BindingSource = Me.BindingSource1
            dtreader.Close()
            Me.Txt_sigle.DataBindings.Add(New Binding("Text", Me.BindingSource1, "sigle"))
            Me.Txt_Pays.DataBindings.Add(New Binding("Text", Me.BindingSource1, "pays"))
        Catch ex As Exception
            MsgBox("Erreur au chargement")
        End Try
 
    End Sub
 
 
    Private Sub BindingNavigator1MoveNextItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
 
        BindingSource1.Position += 1
 
    End Sub
 
 
    Private Sub BindingNavigatorMovePreviousItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorMovePreviousItem1.Click
 
        BindingSource1.Position -= 1
 
    End Sub
 
    Private Sub BindingNavigatorMoveLastItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorMoveLastItem1.Click
 
        BindingSource1.Position = BindingSource1.Count - 1
 
    End Sub
 
    Private Sub BindingNavigatorMoveFirstItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorMoveFirstItem1.Click
 
        BindingSource1.Position = 0
 
    End Sub
 
 
End Class

Maintenant je veux ajouter un label qui permet de mettre les 2 textboxes a blanc (vider les 2 textes blancs) , avez vous une idée ?

Voila , j'ai trouvé , c un boutton en fait qui permet de vider le textbox

Code :

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

1
2
3
4
5
   Private Sub ToolStripBt_NewRecord_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripBt_NewRecord.Click
 
        Me.Txt_sigle.Text = ""
        Me.Txt_Pays.Text = ""
    End Sub

merci , tout marche bien

**Wapi_gui** · 05/06/2009, 12h33

De rien, contente d'avoir pu t'aider

**debutant00** · 10/06/2009, 15h46

Envoyé par Wapi_gui

De rien, contente d'avoir pu t'aider

Bonjour,

Je veux ajouter un nouveau pays quand je clique sur le bouton (+)
J'ai deja commencé mais y'a une erreur (Error au chargement ) lié à la procédure afficher () du programme
qui pourra m'aider , merci

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 dbo.tblPays(sigle,pays) VALUES  ('" + 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

Pour la procedure afficher , voila le 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 afficher()
 
        Dim DTtable As New DataTable("datatable")
        Try
 
            dtreader = commande.requete("SELECT idPays ,sigle , pays FROM dbo.tblPays  ", connec)
            DTtable.Load(dtreader)
            Me.BindingSource1.DataSource = DTtable
            Me.BindingNavigator1.BindingSource = Me.BindingSource1
            dtreader.Close()
            Me.Txt_sigle.DataBindings.Add(New Binding("Text", Me.BindingSource1, "sigle"))
            Me.Txt_Pays.DataBindings.Add(New Binding("Text", Me.BindingSource1, "pays"))
        Catch ex As Exception
            MsgBox("Erreur au chargement")
        End Try
 
    End Sub

**Wapi_gui** · 11/06/2009, 08h50

Euh, juste pour savoir... ton idpays, tu l'insert jamais ?

**emayen01** · 11/06/2009, 10h02

Envoyé par Wapi_gui

Euh, juste pour savoir... ton idpays, tu l'insert jamais ?

Bonjour,
je sais pas si je dois l'ajouter ou pas , sinon mon programme marche et l'ajout se fait mais pas au niveau de la BDD juste au niveau de mon formulaire et apres je le trouve pas dans la base .

**Wapi_gui** · 11/06/2009, 10h45

Tu sais, si tu n'insert jamais la clé primaire de ta table, c'est normal que tu ne puisses pas enregistrer le reste...

**emayen01** · 12/06/2009, 14h26

Envoyé par Wapi_gui

Tu sais, si tu n'insert jamais la clé primaire de ta table, c'est normal que tu ne puisses pas enregistrer le reste...

bah justement je suis bloqué dans la requete surtout qu'il faut incrementer l'idPays dans la table en créant un nouveau .

**Wapi_gui** · 12/06/2009, 14h45

Attends, dans les requêtes que tu as mis, tu n'insert jamais idpays. Je ne sais pas si tu le fais autre aprt, mais si ton Select ne fonctionne pas, ne va pas chercher plus loin... Même, si tu n'insert pas idpays, tu ne pourras pas faire :

Code :

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

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

Et puis, même, si tu insert quelque part idpays, il faut que tu fasses

Code :

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

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

**emayen01** · 12/06/2009, 14h53

Envoyé par Wapi_gui

Attends, dans les requêtes que tu as mis, tu n'insert jamais idpays. Je ne sais pas si tu le fais autre aprt, mais si ton Select ne fonctionne pas, ne va pas chercher plus loin... Même, si tu n'insert pas idpays, tu ne pourras pas faire :

Code :

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

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

Et puis, même, si tu insert quelque part idpays, il faut que tu fasses

Code :

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

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

bah c la ou je veux l'ajouter ; mon idPays :

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
 
    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 dbo.tblPays(sigle,pays) VALUES  ('" + 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

qu'est ce que tu me proposes ?

afficher dans mon text box en vb.net

VB.NET

Discussions similaires

Partager

Partager