Base de Donnees TextBox

Version imprimable

Bonjour,

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

Code:

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"

Citation:

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

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

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

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:

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

30/10/2009, 17h11
djdjo59

il me trouve une erreur à cette ligne de code

Code:

Using (connexion As GetConnection())

')' attendue .... je ne trouve pas où
30/10/2009, 17h59
tomlev

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

Code:

Using (connexion As SqlConnection = GetConnection())
30/10/2009, 18h10
djdjo59

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

Code:

Using (connexion As SqlConnection = GetConnection())
30/10/2009, 19h34
benito9253

Ce ne serait pas plutot ca par hasard???

Code:

Dim connexion As SqlConnection = GetConnection()
30/10/2009, 19h41
djdjo59

si ..... well done

mais voilà l'erreur suivante ....
http://img11.imageshack.us/img11/8030/capturenm.jpg
30/10/2009, 23h19
tomlev

Citation:

Envoyé par djdjo59

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

Code:

Using (connexion As SqlConnection = GetConnection())

Citation:

Envoyé par benito9253

Ce ne serait pas plutot ca par hasard???

Code:

Dim connexion As SqlConnection = GetConnection()

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

Code:

Using connexion As SqlConnection = GetConnection()

Citation:

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
31/10/2009, 09h27
djdjo59

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 ....
31/10/2009, 12h24
djdjo59

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

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:

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

31/10/2009, 14h31
djdjo59

merci, mais faut mettre ou ce code ?dans le bouton enregistrer ? ou en load
31/10/2009, 14h47
seksaki

pour le button ajouter en sql : insert

modifier : update
supprimer : delete
etc ..

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

Salut,

ajoute les cotes dans la requêtte :

Code:

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+

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

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

merci _PascalC_ des explications ;)
j'ai supprimer le connection.close() à

Code:

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 !

01/11/2009, 10h51
_PascalC_

Citation:

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

voici le code tel quel

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

01/11/2009, 12h30
_PascalC_
...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" :aie:
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:

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

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
01/11/2009, 12h42
djdjo59

c'est bien ça, c'est bien ce que tu me dis

j'ai enlever l'ancien code (que j'avais placé sous le End Class pour ne pas qu'il soit exécuté) etmaintenant j'ai cette erreur là

Citation:

Une erreur liée au réseau ou spécifique à l'instance sest produite lors de l'établissement d'une connexion à SQL Server. Le serveur est introuvable ou n'est pas accessible, vérifiez que le nom de l'instance est correct et que SQL Server est configuré pour autoriser les connexions distances.(provider: Fournisseur de canaux nommés, error 40 - Impossible d'ourir une connexion à SQL Server)

c'est dans une fenetre, et pas dans VB que ce message s'affiche... je n'ai rien touché à SQL Server, j'ai installer VB express donc il ma installé SQL Server 2005 express je crois ...

je n'avais pas lu ce que tu avais ecrit en dessous, j'ai modifié en ajouté localhost\SQLEXPRESS et maintenant il me dit

Citation:

Impossible d'ouvrir la base de données "base" demandée pa rla connexion. la connexion a échoué, echec de l'ouverture de session de l'utilisateur 'Johan-PC\Johan'.

j'ai modifié ensuite base par Entraineurs, idem
01/11/2009, 14h01
benito9253

Il semblerait que cette erreur soit dû à un problème de SQL Serveur 2005, d'après ce que j'ai pu voir en copiant la description de l'erreur dans google...

J'espère que cela fera avancer le problème.
01/11/2009, 14h10
djdjo59

je met à niveau sql server depuis le centre d'installation d'sql server, j'installe la version express, peut être qu'elle sera + complète que celle installé par VB 2008 express...

ça na rien changé ^^

j'ai regardé sur le lien que tu as posté, je ne sais pas, ! il me dit maintenant encore une fois qu'il n'arrive pas à se connecté à la base de données "base" etc...
01/11/2009, 15h08
nokia1600

Tu utilises SQL SERVER 2005 maintenant?
01/11/2009, 15h11
djdjo59

Non, il s'est installé avec la version express de 2008, donc me suis dit la versionn sql express de microsoft est peut etre un peu plus complète que celle installé par VB Express, mais non...de toute façon la version Express (en tout cas chez moi...) ne me permet pas de créer des bdd etc... juste importer exporter et configurer SQL

lorsque j'essaie d'installer SQL Server 2008 du site MSDN j'ai que des emmerde sous windows 7
01/11/2009, 15h12
nokia1600

Instal SQL server 2005 et je pourrais t'aider
01/11/2009, 15h14
djdjo59

SQL Server sur ce site ? http://msdn.microsoft.com/fr-fr/express/aa718378.aspx
il me demande ça j'installe quelle version?
la version complète j'en retiens 2 formatage..
la Express a l'air deja installé ..
http://yfrog.com/0bcapturenmep
01/11/2009, 15h19
nokia1600

Nan... je l'ai sur mon ordinateur tu aurais une adresse ou je pourrais te l'envoyer? envoi en mp
01/11/2009, 23h15
_PascalC_

Citation:

il ma installé SQL Server 2005 express je crois

j'avoue ne plus comprendre... 8O tu essaie de te connecter sur un SQL Server alors que tu ne sais même pas s'il est installé ? Comment ta base de données pourrait alors exister sur le dit SQL Server ? J'ai du louper une étape.

Citation:

permet pas de créer des bdd etc... juste importer exporter et configurer SQL

Tu peux faire tout ça à partir de Managment studio express dispo ici : http://www.microsoft.com/downloads/d...a-4b76a8564a2b

Citation:

Impossible d'ouvrir la base de données "base" demandée pa rla connexion. la connexion a échoué, echec de l'ouverture de session de l'utilisateur 'Johan-PC\Johan'."
j'ai modifié ensuite base par Entraineurs

on dirait donc que tu arrive à te connecter à SQL Server (localhost\sqlexpress) mais que la base de données n'existe pas. Il semble par contre que tu confondes les notions de "base" et de "table". Je ne peux que t'inviter à lire des tutoriels expliquant toutes ces notions sinon tu vas avoir du mal à t'en sortir :?
04/11/2009, 13h18
djdjo59

si Visual studio installe SQL 2005 Express,
non c'est biene crit base, et pour moi je comprend par la la base de donnée, le nom de la base