Discussion :

[kohan95]

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

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

[Hinault Romaric]

après la connexion a ta BD dans le click event du bouton ajouter tu fait un truc du genre

Code :

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

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

[kohan95]

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

Code :

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

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

[rokirakat]

slt kohan95,
il vous manque quelque chose dans votre 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
'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

[kohan95]

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 )
si vous avez une soulution n'hésitez pas
merci d'avance
voici le code des boutons de l'application

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