Base de Donnees TextBox

**djdjo59** · 30/10/2009, 15h51

Bonjour,

Voilà j'ai réussi ma connexion à ma base de données avec ce code

Code :

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

1
2
3
4
5
6
7
8
9
    Public Sub connection()
        connexion.ConnectionString = "Data Source=localhost;Initial Catalog=base;Integrated Security=true"
        connexion.Open()
        If connexion.State = ConnectionState.Open Then
            MsgBox("Connexion réussite", MsgBoxStyle.Exclamation, "Status")
        Else
            MsgBox("Connexion non reussite", MsgBoxStyle.Critical, "Status")
        End If
        connexion.Close()

maintenant j'essaie d'ajouter des données dans ma base, des données prises depuis des TextBox, mais il me marque cet avertissement lorsque je clique sur "enregistrer"

Une exception de première chance de type 'System.Data.SqlClient.SqlException' s'est produite dans System.Data.dll

voici 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
Try
            connection()
            Dim strRequete As String = "SELECT * FROM Entraineurs"
            Dim dtt As DataTable
            Dim oSqlDataAdapter As New SqlDataAdapter(strRequete, connexion)
            Dim oDataSet As New DataSet("Entraineurs")
            oSqlDataAdapter.Fill(oDataSet, "Entraineurs")
            dtt = oDataSet.Tables("Entraineurs")
 
            oSqlDataAdapter.InsertCommand = New SqlCommand("INSERT INTO Entraineurs(Nom,Prénom,Adresse,Téléphone) Values(@TextBoxNom_E,@TextBoxPrenom_E,@TextBoxAd_E,@TextBoxTel_E)", connexion)
            oSqlDataAdapter.InsertCommand.Parameters.Add("@TextBoxNom_E", SqlDbType.Int, 30, "TextBoxNom_E")
            oSqlDataAdapter.InsertCommand.Parameters.Add("@TextBoxPrenom_E", SqlDbType.NChar, 15, "TextBoxPrenom_E")
            oSqlDataAdapter.InsertCommand.Parameters.Add("@TextBoxAd_E", SqlDbType.Int, 100, "TextBoxAd_E")
            oSqlDataAdapter.InsertCommand.Parameters.Add("@TextBoxTel_E", SqlDbType.Int, 100, "TextBoxTel_E")
 
            Dim oDataRow As DataRow
            Dim byteArray As Byte() = {}
 
            oDataRow = oDataSet.Tables("Entraineurs").NewRow
            oDataRow("TextBoxNom_E") = TextBoxNom_E.Text
            oDataRow("TextBoxPrenom_E") = TextBoxPrenom_E.Text
            oDataRow("TextBoxAd_E") = TextBoxAd_E.Text
            oDataRow("TextBoxTel_E") = TextBoxTel_E.Text
 
            oDataSet.Tables("Entraineurs").Rows.Add(oDataRow)
            oSqlDataAdapter.Update(oDataSet, "Entraineurs")
 
            oDataSet.Clear()
            oSqlDataAdapter.Fill(oDataSet, "Entraineurs")
            dtt = oDataSet.Tables("Entraineurs")
            MsgBox("Article enregistré avec succés", MsgBoxStyle.Information, "Status")
            connexion.Close()
 
 
        Catch
            MsgBox("Echec d'enregistrement")
        End Try

merci ..

**tomlev** · 30/10/2009, 16h41

Ta Sub connection ferme la connexion aussitôt après l'avoir ouverte, donc ça ne risque pas de marcher

D'autre part, si la méthode Open réussit, le statut de la connexion sera forcément Open. Et si la méthode Open échoue, tu auras une exception, donc de toutes façons tu ne passera jamais dans le else.

Tu ne devrais pas utiliser le même objet connexion à chaque fois, ça ne t'apportera que des problèmes. Utilise plutôt une variable locale que tu initialises avec le résultat d'une fonction GetConnection :

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
    Public Function GetConnection() As SqlConnection
        Dim connection As New SqlConnection()
        connection.ConnectionString = "Data Source=localhost;Initial Catalog=base;Integrated Security=true"
        connection.Open()
        Return connection
    End Function
 
...
 
 
Try
        Using (connexion As GetConnection())
            Dim strRequete As String = "SELECT * FROM Entraineurs"
            Dim dtt As DataTable
            Dim oSqlDataAdapter As New SqlDataAdapter(strRequete, connexion)
            Dim oDataSet As New DataSet("Entraineurs")
            oSqlDataAdapter.Fill(oDataSet, "Entraineurs")
            dtt = oDataSet.Tables("Entraineurs")
 
            oSqlDataAdapter.InsertCommand = New SqlCommand("INSERT INTO Entraineurs(Nom,Prénom,Adresse,Téléphone) Values(@TextBoxNom_E,@TextBoxPrenom_E,@TextBoxAd_E,@TextBoxTel_E)", connexion)
            oSqlDataAdapter.InsertCommand.Parameters.Add("@TextBoxNom_E", SqlDbType.Int, 30, "TextBoxNom_E")
            oSqlDataAdapter.InsertCommand.Parameters.Add("@TextBoxPrenom_E", SqlDbType.NChar, 15, "TextBoxPrenom_E")
            oSqlDataAdapter.InsertCommand.Parameters.Add("@TextBoxAd_E", SqlDbType.Int, 100, "TextBoxAd_E")
            oSqlDataAdapter.InsertCommand.Parameters.Add("@TextBoxTel_E", SqlDbType.Int, 100, "TextBoxTel_E")
 
            Dim oDataRow As DataRow
            Dim byteArray As Byte() = {}
 
            oDataRow = oDataSet.Tables("Entraineurs").NewRow
            oDataRow("TextBoxNom_E") = TextBoxNom_E.Text
            oDataRow("TextBoxPrenom_E") = TextBoxPrenom_E.Text
            oDataRow("TextBoxAd_E") = TextBoxAd_E.Text
            oDataRow("TextBoxTel_E") = TextBoxTel_E.Text
 
            oDataSet.Tables("Entraineurs").Rows.Add(oDataRow)
            oSqlDataAdapter.Update(oDataSet, "Entraineurs")
 
            oDataSet.Clear()
            oSqlDataAdapter.Fill(oDataSet, "Entraineurs")
            dtt = oDataSet.Tables("Entraineurs")
            MsgBox("Article enregistré avec succés", MsgBoxStyle.Information, "Status")
 
        End Using ' La connexion sera fermée automatiquement ici
 
        Catch ex As Exception
            MsgBox("Echec d'enregistrement : " & ex.ToString())
        End Try

**djdjo59** · 30/10/2009, 17h11

il me trouve une erreur à cette ligne de code

Code :

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

Using (connexion As GetConnection())

')' attendue .... je ne trouve pas où

**tomlev** · 30/10/2009, 17h59

ah oui pardon... pas l'habitude d'écrire du code VB

Code :

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

        Using (connexion As SqlConnection = GetConnection())

**djdjo59** · 30/10/2009, 18h10

toujorus la même erreur, il manque un ')' d'après VB

Code :

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

Using (connexion As SqlConnection = GetConnection())

**benito9253** · 30/10/2009, 19h34

Ce ne serait pas plutot ca par hasard???

Code :

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

Dim connexion As SqlConnection = GetConnection()

**djdjo59** · 30/10/2009, 19h41

si ..... well done

mais voilà l'erreur suivante ....
http://img11.imageshack.us/img11/8030/capturenm.jpg

**tomlev** · 30/10/2009, 23h19

Envoyé par djdjo59

toujorus la même erreur, il manque un ')' d'après VB

Code :

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

Using (connexion As SqlConnection = GetConnection())

Envoyé par benito9253

Ce ne serait pas plutot ca par hasard???

Code :

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

Dim connexion As SqlConnection = GetConnection()

Grrr... j'ai vraiment du mal avec la syntaxe VB... essaie Using sans parenthèses :

Code :

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

Using connexion As SqlConnection = GetConnection()

Envoyé par djdjo59

si ..... well done

mais voilà l'erreur suivante ....
http://img11.imageshack.us/img11/8030/capturenm.jpg

Ben visiblement c'est SQL Server qui refuse la connexion... En supposant que ta chaîne de connexion soit correcte, ça doit être un problème de configuration de SQL Server. Vérifie aussi le firewall si la base est sur une autre machine

**djdjo59** · 31/10/2009, 09h27

enfaite lors de l'instalation de visual basic 2008 (MSDN) l'installation a planté pendant l'installation du framework je crois, du cou le son était occupé par un autre application, le pc bloqué à la fermeture ..bref j'ai installer la beta 2 de VB 2010, nikel, je suis ensuite passé a la version express de 2008 vu que les projet réalisé avec VB 2010 sont incompatible avec les anciennes versions ...
donc surement que SQL en a pris un sacré cou ....

**djdjo59** · 31/10/2009, 12h24

je vais essayer de créer une base de donnée avec SQL et pas avec Access... peut etre que ça changera quelque chose ?

**seksaki** · 31/10/2009, 14h20

dans votre cas
t 'as fais une connexion avec base donnee sql ,
puis dans de code adapter.fill retourn une proprieté de base access
mais pour ajouter
==>

Code :

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

1
2
3
4
5
6
7
 
Dim connect As SqlConnection
Dim cmd As New SqlCommand
        cmd.Connection = connect
        cmd.CommandText = "INSERT INTO Entraineurs(Nom,Prénom,Adresse,Téléphone)" & _
             " values(" & TextBox1.Text & "," & TextBox2.Text & "," & TextBox3.Text & "," & TextBox4.Text & " )"
        cmd.ExecuteNonQuery()

**djdjo59** · 31/10/2009, 14h31

merci, mais faut mettre ou ce code ?dans le bouton enregistrer ? ou en load

**seksaki** · 31/10/2009, 14h47

pour le button ajouter en sql : insert

modifier : update
supprimer : delete
etc ..

**djdjo59** · 31/10/2009, 15h05

voici 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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Public Class Entraineurs
    Dim connexion As New SqlConnection
    Dim cmd As New SqlCommand
 
-------------------------------------------------------
   Public Sub connection()
        connexion.ConnectionString = "Data Source=localhost;Initial Catalog=base;Integrated Security=true"
        connexion.Open()
        If connexion.State = ConnectionState.Open Then
            MsgBox("Connexion réussite", MsgBoxStyle.Exclamation, "Status")
        Else
            MsgBox("Connexion non reussite", MsgBoxStyle.Critical, "Status")
        End If
        connexion.Close()
 
    End Sub
 
--------------------------------------------------------
 
 
    Private Sub Save_E_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Save_E.Click
 
 
 
        Try
            connection()
            cmd.Connection = connexion
            cmd.CommandText = "INSERT INTO Entraineurs(Nom,Prénom,Adresse,Téléphone)" & _
                 " values(" & TextBoxNom_E.Text & "," & TextBoxPrenom_E.Text & "," & TextBoxAd_E.Text & "," & TextBoxTel_E.Text & " )"
            cmd.ExecuteNonQuery()
 
 
        Catch
            MsgBox("Echec d'enregistrement")
        End Try
 
 
 
    End Sub

et Échec d'enregistrement

**AJemni** · 31/10/2009, 19h28

Salut,

ajoute les cotes dans la requêtte :

Code :

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

1
2
3
cmd.CommandText = "INSERT INTO Entraineurs(Nom,Prénom,Adresse,Téléphone)" & _
                 " values('" & TextBoxNom_E.Text & "','" & TextBoxPrenom_E.Text & "','" & TextBoxAd_E.Text & "','" & TextBoxTel_E.Text & "' )"
            cmd.ExecuteNonQuery()

et si le champ Téléphone est de type Numeric , enlève les cotes.

A+

**_PascalC_** · 31/10/2009, 20h02

salut, pourquoi l'avoir redirigé vers une requête non paramétrée ?? A la première apostrophe c'est le crash assuré dans cette requête, sans parler de l'injection SQL.
A lire : http://johannblais.developpez.com/tu...acces-donnees/
et à regarder (excellent... comme souvent avec Pascal Belaud

) : http://www.microsoft.com/france/visi...6-e9852f0f828a

Ensuite ton code djdjo59 ne marchera pas car tu n'as pas tenu compte de ce qui t'a déjà été dit plus haut

. Dans ta méthode "Connection()" tu ouvre et tu ferme aussitôt ton objet de SqlConnection. Donc forcément ta requête ne pourra pas marcher. De plus comme te l'as dis Tomlev ta condition sur le status de ton objet SqlConnection ne sert à rien ici (relis bien son message).

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
 
    Private Sub Save_E_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Save_E.Click
        Try
            Using c As New SqlConnection("Data Source=localhost;Initial Catalog=base;Integrated Security=true")
                c.Open()
                Using cmd As SqlCommand = c.CreateCommand
                    cmd.CommandText = "INSERT INTO Entraineurs(Nom,Prénom,Adresse,Téléphone) VALUES (@Nom,@Prénom,@Adresse,@Téléphone)"
                    cmd.Parameters.AddWithValue("@Nom", TextBoxNom_E.Text)
                    cmd.Parameters.AddWithValue("@Prénom", TextBoxPrenom_E.Text)
                    cmd.Parameters.AddWithValue("@Adresse", TextBoxAd_E.Text)
                    cmd.Parameters.AddWithValue("@Téléphone", TextBoxTel_E.Text)
                    cmd.ExecuteNonQuery()
                End Using
            End Using
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

**djdjo59** · 01/11/2009, 10h30

merci _PascalC_ des explications

j'ai supprimer le connection.close() à

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    Public Sub connection()
        connexion.ConnectionString = "Data Source=localhost;Initial Catalog=base;Integrated Security=true"
        connexion.Open()
        If connexion.State = ConnectionState.Open Then
            MsgBox("Connexion réussite", MsgBoxStyle.Exclamation, "Status")
        Else
            MsgBox("Connexion non reussite", MsgBoxStyle.Critical, "Status")
        End If
 
 
    End Sub

et ajouté ton code, mais echec d'enregistrement ! je commence à croire que je vais passer en mode fichier !

**_PascalC_** · 01/11/2009, 10h51

j'ai supprimer le connection.close() ... et ajouté ton code

Comment ça ? Mon code n'utilisait pas ta méthode Connection() donc je ne vois pas très bien ce que tu as essayé de faire. Le code que j'ai passé doit marcher tel quel sans recours à aucune autre méthode. Si malgré tout tu as un message d'erreur, dis nous lequel. Eventuellement, renvoie nous ton dernier code avec tes dernières modifs. On ciblera mieux ton problème

**djdjo59** · 01/11/2009, 12h07

voici le code tel quel

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
    Public Sub connection()
        connexion.ConnectionString = "Data Source=localhost;Initial Catalog=base;Integrated Security=true"
        connexion.Open()
        If connexion.State = ConnectionState.Open Then
            MsgBox("Connexion réussite", MsgBoxStyle.Exclamation, "Status")
        Else
            MsgBox("Connexion non reussite", MsgBoxStyle.Critical, "Status")
        End If
 
 
    End Sub
 
    Private Sub Save_E_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Save_E.Click
 
        Try
            Using c As New SqlConnection("Data Source=localhost;Initial Catalog=base;Integrated Security=true")
                c.Open()
                Using cmd As SqlCommand = c.CreateCommand
                    cmd.CommandText = "INSERT INTO Entraineurs(Nom,Prénom,Adresse,Téléphone) VALUES (@Nom,@Prénom,@Adresse,@Téléphone)"
                    cmd.Parameters.AddWithValue("@Nom", TextBoxNom_E.Text)
                    cmd.Parameters.AddWithValue("@Prénom", TextBoxPrenom_E.Text)
                    cmd.Parameters.AddWithValue("@Adresse", TextBoxAd_E.Text)
                    cmd.Parameters.AddWithValue("@Téléphone", TextBoxTel_E.Text)
                    cmd.ExecuteNonQuery()
                End Using
            End Using
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
 
 
    End Sub

donc sans ajout de la méthode connection() dans Save_E_click
je n'ai pas de message d'erreur, juste "Echec d'enregistrement"

**_PascalC_** · 01/11/2009, 12h30

...visiblement le code que tu executes n'est pas celui que viens de montrer car dans cette dernière version il n'y a plus de messagebox avec "Echec d'enregistrement"

C'est d'ailleurs pour ça que dans le "catch" j'avais remplacé ton MessageBox par un autre qui donnait des informations sur la nature de l'erreur :

Remplace bien :

Code :

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

1
2
3
4
5
6
 
Try
...
Catch
    MsgBox("Echec d'enregistrement") 'ne donne aucune info sur l'exception
End Try

par ça :

Code :

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

1
2
3
4
5
6
 
Try
...
Catch ex As Exception
    MessageBox.Show(ex.Message)
End Try

Vérifie bien aussi que ta requête est correctement formatée : nom de la table, des champs (attention aux accents)... etc.
Idem pour ta chaine de connexion à la base de données : ta base s'appelle bien juste "base" (un nom plus explicite serait dans ce cas pas un luxe

). Si tu utilise un SQL server Express essaie éventuellement de remplacer localhost par localhost\SQLEXPRESS

Base de Donnees TextBox

VB.NET

Discussions similaires

Partager

Partager