ajouter une element dans une table

Version imprimable

16/05/2009, 01h44
kohan95

ajouter un element dans une table

Salut
Voila comme la montre la photo je suis entrain de faire une application qui interagir avec une base de donnée sous vb.net (avec SQL server) le problème :
C’est que je ne sais pas comment faire pour le bouton ajouter ??,
Une autre chose c’est vous avez un tutoriel qui traite le problème n’hésitez pas
Merci d’avance

remarque ce connecter à la base je sais faire ,parcoure une table au, afficher la position la seule chose que je nes ais pas faire c'est ajouter :cry:

http://ups.imagup.com/04/1242457906_Sans titre.JPG
16/05/2009, 02h05
Quatre_Couleurs

Je suppose que ton bouton Ajouter te permet d'insérer les champs que remplit l'utilisateur.
Si c'est le cas: Crée une méthode clic pour ton bouton et fais ta requête INSERT (tout ça en vérifiant la validité des champs)
16/05/2009, 10h34
Hinault Romaric
après la connexion a ta BD dans le click event du bouton ajouter tu fait un truc du genre
Code:

1 2 dim req as string req = "insert into matable values('" & textnumclient.text & "','" & textnomclient.text & "')"
ensuite tu exécute req et le tour est jouer

merci à vous mais je ne sais pas quoi faire après??
voila le code du bouton ajouter

Code:

1
2
3
4
5
6
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim req As String
        req = "insert into client values(" & TextBox1.Text & ",'" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "'," & TextBox5.Text & ")"
 
    End Sub

slt kohan95,
il vous manque quelque chose dans votre code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
'Créez et ouvrez une connection  :
Dim MyConnexion As New SqlConnection("data source =.; initial catalog= MyBase ;integrated security= yes")
MyConnexion.open()
 
 'Créez un objet Commande
 Dim Cmd As New SqlCommand
Cmd.CommandText="insert into client values(" & TextBox1.Text & ",'" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "'," & TextBox5.Text & ")"
Cmd.Connection = MyConnexion
 
 'Exécutez la commande
 Cmd.ExecuteNonQuery
 
'Fermez la connexion et c ts
MyConnexion.cloxe

bon courage :)

salut
merci à vous merci à toi rokirakat
alors le code marche bien mais il y un problème quand j'ajoute un élément dans la table il faut fermer l'application puis la déboguer de nouveau pour pouvoir voir les changements or si j'utilise un DataGridView les changements se passe en même temps (j'espère que vous avez compris mon problème :cry:)
si vous avez une soulution n'hésitez pas
merci d'avance
voici le code des boutons de l'application

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
Imports System.Data.SqlClient
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Créez et ouvrez une connection  :
        Dim MyConnexion As New SqlConnection("Data Source=POST1\SQLEXPRESS;Initial Catalog=test2;Integrated Security=True")
        MyConnexion.Open()
 
        'Créez un objet Commande
        Dim Cmd As New SqlCommand
        Cmd.CommandText = "insert into client values(" & TextBox1.Text & ",'" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "'," & TextBox5.Text & ")"
        Cmd.Connection = MyConnexion
 
        'Exécutez la commande
        Cmd.ExecuteNonQuery()
 
        'Fermez la connexion et c ts
        MyConnexion.Close()
 
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO*: cette ligne de code charge les données dans la table 'TableClient.client'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        Me.ClientTableAdapter.Fill(Me.TableClient.client)
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.BindingContext(TableClient, "client").Position += 1
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.BindingContext(TableClient, "client").Position -= 1
    End Sub
End Class

voici une photo pur voir les changement que j'ai apporté à l'application
http://uploads.imagup.com/10/1242525577_test.JPG

17/05/2009, 02h14
rokirakat

c'est normal car lorsque tu clic sur ajouter les données s'ajoutent directement dans la base , cependant pour l'affichage tu affiche des données déjà stockées dans une Table en mémoire ,donc il faut que cette table la soit toujours actualisée pour afficher ce que ta ajouté dans la base ou bien changer la méthode d'ajout pour qu'on ajoute dans la même table qu'on utilise dans l'affichage
17/05/2009, 02h37
kohan95

merci rokirakat ta bien compris mon problème.
mais comment faire pour coder tout ça ??

j'ai essayée avec SqlDataAdapter1.Update(TableClient) ça marche pas :cry:

c-à-d
table soit toujours actualisée pour afficher ce que ta ajouté dans la base ou bien changer la méthode d'ajout pour qu'on ajoute dans la même table qu'on utilise dans l'affichage ??

enfin je sais que je deviens lourd mais il faute savoir que j'ai bien cherché des tutoriels sur le sujet j'ai rien trouvé et à la fin j'ai vraiment pas d'autre solution que vous
18/05/2009, 14h30
Wapi_gui

Salut kohan95,

Pour rafraichir ta page (et par la même occasion ton DataGridView), tu peux
- soit créer un nouveau bouton "Rafrachir", avec un nouveau chargement de ta datatable
- soit ajouter à la fin de ta procédure "Button1.Click" le rechargement de ton DGV.
Dans un cas comme dans l'autre, il faut que tu te connectes à la base de données, que tu charges ce que tu veux voir, puis que tu l'affiche dans ton DGV (sans oublier de fermer la connexion, bien sûr).

Après, à toi de voir ce que préfères...
18/05/2009, 22h05
kohan95

merci mais le problème c'est que je ne sais pas comment faire ??

pour rafraichir l'application ??,

He bien il faut simplement que tu recharges ton DGV, comme dans ton FormLoad :
Code:

1 2 'TODO*: cette ligne de code charge les données dans la table 'TableClient.client'. Vous pouvez la déplacer ou la supprimer selon vos besoins. Me.ClientTableAdapter.Fill(Me.TableClient.client)

20/05/2009, 14h53
chepac

la réponse de wapi_gui devrait resoudre ton probléme de rafraichissement !

Par contre , je devellope aussi en ce moment en VB , pour faire des requetes SQL je ne me coltine pas autant de code ! [ Je sait pas si c'est mieux ^^ ]

Je doublic clic sur mon fichier .xsd , je fait glisser ma table sur le concepteur de vue .
voici un screen :ici

Ensuite tu clique droit au niveau inférieur du cadre ( ou tu vois Fill,GetData .... ) , Ajouter une requetes , et tu te laisse guider !

Pour appeler ta requetes dans ton code :

Code:

Me.TablePersonneTableAdapter.InsertUtilisateur(Me.TextBoxNom1.Text, Me.TextBoxPre2.Text, Me.NumericUpDownage2.Value)

:D

enfin je viens de trouver la solution est deux en plus :ccool: pour

solution 1 code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
       Dim cmdb As New OleDbCommandBuilder
            Dim cmd As DataRow
            ClientBindingSource.EndEdit()
            cmd = ClientproduitDataSet.Tables("Client").NewRow
            cmd(0) = TextBox1.Text
            cmd(1) = TextBox3.Text
            cmd(2) = TextBox5.Text
            cmd(3) = TextBox2.Text
            ClientproduitDataSet.Tables("Client").Rows.Add(cmd)
 
            ClientTableAdapter.Update(ClientproduitDataSet.client)
            MessageBox.Show("Bien Ajout‚", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
 
        Catch
 
            MessageBox.Show("numero est deja ajouté‚", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
 
        End Try

il marche biens son problème plus besoin de fermer l'application pour voir les changements

solution 2 le code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
'Créez et ouvrez une connection  :
            Dim MyConnexion As New SqlConnection("Data Source=POST1\SQLEXPRESS;Initial Catalog=test2;Integrated Security=True")
            MyConnexion.Open()
 
            'Créez un objet Commande
            Dim Cmd As New SqlCommand
            Cmd.CommandText = "insert into client values(" & TextBox1.Text & ",'" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "'," & TextBox5.Text & ")"
            Cmd.Connection = MyConnexion
 
            'Exécutez la commande
            Cmd.ExecuteNonQuery()
            ClientBindingSource.EndEdit()
            'Fermez la connexion et c ts
            MyConnexion.Close()
        Catch
            MessageBox.Show("numero est deja ajouté‚", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End Try

mais il y a un problème c'est que dans le DataGridView à voir

remarque pour les deux solutions

pour DataGridView : j'ai utilisé les propriété datasource est datamanber

voila c'est tout maintenant j'attaque la fonction recherche dans une base :D