Bien le bonjour le forum,

Voila je commence en vb.net, et j'ai dans l'idée de faire un caisse enregistreuse avec une petite gestion de stock.
J'ai créer mes Form jusque là pas de souci, mais la ou ça se complique est pour insérer mes donnée dans la bdd

J'ai créer une Bdd "Casisse" avec comme Table "Produit" (Nom, PrixAHt, StockIni, Tva)

Mais quand je veux insérer j'ai un message d'erreur - en gros le serveur est introuvable

Voici ma source
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
 
Public Class Ajout_Article
 
    Private Sub Ajout_Article_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Design
        Me.StartPosition = FormStartPosition.CenterScreen
        Me.ControlBox = False
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Fixed3D
        'Titre de la form
        Me.Text = "Ajouter un article" 'Titre de la form
        'ToolTip (InfoBulle)
        ToolTip1.SetToolTip(TextBox1, "Entrez le nom de l'article") 'Infobulle sur le textbox1
        ToolTip1.SetToolTip(TextBox2, "Prix d'achat HT du produit")
        ToolTip1.SetToolTip(TextBox3, "Entrez le stock initial du produit")
        ToolTip1.SetToolTip(ComboBox1, "Choisissez la TVA")
        ToolTip1.SetToolTip(Annuler, "Annuler") 'Infobulle sur le boutton annuler
        ToolTip1.SetToolTip(Ajouter, "Ajouter") 'Infobulle sur le boutton ajouter
        'On remplit Combobox
        Dim Tva1 As String = "5.5"
        Dim Tva2 As String = "10"
        Dim Tva3 As String = "20"
        Me.ComboBox1.SelectedIndex = -1
        Me.ComboBox1.Items.Add(Tva1)
        Me.ComboBox1.Items.Add(Tva2)
        Me.ComboBox1.Items.Add(Tva3)
    End Sub
 
    Private Sub Annuler_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Annuler.Click
        Me.Close() 'Ferme la form
    End Sub
 
    Private Sub Ajouter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ajouter.Click
        'On récupère les informations dans les textbox et la combobox pour les mettres en variable
        Dim Nom = Me.TextBox1.Text
        Dim PrixAHt = Me.TextBox2.Text
        Dim stockini = Me.TextBox3.Text
        Dim tva = Me.ComboBox1.SelectedItem.ToString
        'Permet de se connecter a la bdd
        Dim Connexion As New SqlClient.SqlConnection("Data Source=localhost;Initial Catalog=Caisse") 'info de connection - Id=sa;Password=*******;
        Dim Requete As String = "INSERT INTO Produit(Nom, PrixAHt, StockIni, Tva) VALUES('" & Nom & "','" & PrixAHt & "','" & stockini & "','" & tva & "')"
        Dim Commande As New SqlCommand(Requete, Connexion)
 
        Try
            Connexion.Open()
            Try
                Commande.ExecuteNonQuery()
                MsgBox("Produit ajouter", vbOKOnly, "Confirmation")
                Connexion.Close()
            Catch ex As Exception
                MessageBox.Show(ex.ToString & "Erreur  ... Contactez votre administrateur.", "ERREUR", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try
        Catch ex As Exception
            MessageBox.Show(ex.ToString & "Erreur  ... de connection.", "ERREUR", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
        Me.Close()
    End Sub
End Class
si quelqu'un a une idée je prend

merci a vous