afficher dans mon text box en vb.net

Version imprimable

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

1 pièce(s) jointe(s)

afficher dans mon text box en vb.net

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:

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

04/06/2009, 09h44
Wapi_gui

Salut,

Pour le BindingNavigator, regarde ce site : http://plasserre.developpez.com/v6-6.htm
04/06/2009, 10h13
roster

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

http://msdn.microsoft.com/fr-fr/vbas....atelier5.aspx
04/06/2009, 10h53
emayen01

Citation:

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 ?
04/06/2009, 11h07
Wapi_gui

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.
04/06/2009, 11h23
roster

C'est clair que c'est quand même le B.A.-ba de l'utilisation sql... :roll:
04/06/2009, 16h50
emayen01

Citation:

Envoyé par roster

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

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
05/06/2009, 08h51
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.

Citation:

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:

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

[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:

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

[QUOTE=emayen01;4373315]

Citation:

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:

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:

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 ?

[QUOTE=emayen01;4373749]

Citation:

Envoyé par emayen01

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

Code:

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:

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 :ccool:

05/06/2009, 12h33
Wapi_gui

De rien, contente d'avoir pu t'aider ;)

BindingNavigator + ajouter un nouveau pays+vb.net

Citation:

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:

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:

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

11/06/2009, 08h50
Wapi_gui

Euh, juste pour savoir... ton idpays, tu l'insert jamais ?
11/06/2009, 10h02
emayen01

Citation:

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 .
11/06/2009, 10h45
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...
12/06/2009, 14h26
emayen01

Citation:

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 .
12/06/2009, 14h45
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:

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:

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

Citation:

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:

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:

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:

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 ?

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