Discussion :

[hugo7]

Bonjour ,j'ai une page web : http://debatoo.fr/Default.aspx
Lorsque l'utilisateur clic sur le bouton le text des de la textebox et du contrôle éditor sont stockée en bdd :

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
 Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
' Déclaration de l'objet de connexion
Dim oConnection As System.Data.SqlClient.SqlConnection
 
' Création de l'objet de connexion
oConnection = New System.Data.SqlClient.SqlConnection()
 
' Ecriture de la chaîne de connexion
Dim sConnectionString As String
sConnectionString = "Server=SQL2005.HEBERGEMENT.COM;Initial Catalog=db_worldgam3_1;uid=db_worldgam3_1;password=********"
oConnection.ConnectionString = sConnectionString
 
' Ouverture de la connexion
oConnection.Open()
Dim test As New Data.SqlClient.SqlCommand("INSERT into TestJeuxVideo (id,texte,) Values(" & TextBox1.Text & "," & TextBox1.Text & ")")
' Traitement des opération à effectuer sur la base de données
 
' Fermeture de la connexion
oConnection.Close()
End Sub

Ma table s'appelle TestJeuxVideo et contient de champs à remplir : id et texte.
Je ne sais pas pourquoi mais l'insertion ne se fait pas mais je n'ai pas d'erreur.
Cela doit être un problème de code car c'est la première fois que j'insère via le code vb.net (j'utilisais un sqldatasource jusque la).

D'avance merci pour vos réponses

[StormimOn]

Si tu n'exécutes pas ta commande SQL n'espère pas grand chose comme résultat

Ceci devrait t'aider

[Graffito]

Il manque test.ExecuteNonQuery() avant le Close().

[hugo7]

Merci pour vos réponses.
j'ai rajouter la ligne de 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
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        ' Déclaration de l'objet de connexion
        Dim oConnection As System.Data.SqlClient.SqlConnection
 
        ' Création de l'objet de connexion
        oConnection = New System.Data.SqlClient.SqlConnection()
 
        ' Ecriture de la chaîne de connexion
        Dim sConnectionString As String
        sConnectionString = "Server=SQL2005.HEBERGEMENT.COM;Initial Catalog=db_worldgam3_1;uid=db_worldgam3_1;password=dy86vM7i"
        oConnection.ConnectionString = sConnectionString
 
        ' Ouverture de la connexion
        oConnection.Open()
        Dim test As New Data.SqlClient.SqlCommand("INSERT into TestJeuxVideo (id,texte,) Values(" & TextBox1.Text & "," & TextBox1.Text & ")")
        ' Traitement des opération à effectuer sur la base de données
        test.ExecuteNonQuery()
        ' Fermeture de la connexion
        oConnection.Close()
    End Sub

Mais j'ai cette erreur :

ExecuteNonQuery : la propriété Connection n'a pas été initialisée.

[StormimOn]

Mais j'ai cette erreur : ExecuteNonQuery : la propriété Connection n'a pas été initialisée.

Regarde bien le tuto que j'ai indiqué en lien un peu plus haut et le problème aura sa réponse normalement

Au passage, tu auras probablement une autre erreur après car ta requête n'est pas bien formée. Une virgule de trop qui traine. Histoire d'éviter un message pour ça ^^

[hugo7]

Merci je n'avais pas vu le lien je regarde tous sa et je vois.

[hugo7]

J'ai lu le tuto mais je n'ai pas trouvé la réponse...

[StormimOn]

Regarde comment l'objet SqlCommand est créé dans le tuto. Tu devrais voir la connexion associée normalement.

[hugo7]

Merci pour ta réponse StormimOn donc j'ai modifié mon code , voilà le résultat :

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
 Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        ' Déclaration de l'objet de connexion
        Dim oConnection As System.Data.SqlClient.SqlConnection
        Dim strRequete As String = "INSERT into TestJeuxVideo (id,texte,) Values(" & TextBox1.Text & "," & TextBox1.Text & ")"
        ' Création de l'objet de connexion
        oConnection = New System.Data.SqlClient.SqlConnection()
 
        ' Ecriture de la chaîne de connexion
        Dim sConnectionString As String = "Server=SQL2005.HEBERGEMENT.COM;Initial Catalog=db_worldgam3_1;uid=db_worldgam3_1;password=dy86vM7i"
        oConnection.ConnectionString = sConnectionString
 
        ' Ouverture de la connexion
        oConnection.Open()
        Dim oCommand As New Data.SqlClient.SqlCommand(strRequete, oConnection)
        ' Traitement des opération à effectuer sur la base de données
        oCommand.ExecuteNonQuery()
        ' Fermeture de la connexion
        oConnection.Close()
    End Sub

Mais j'ai une erreur qui me dit en me montrant dans vs2008 la ligne de code :

Code :

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

oCommand.ExecuteNonQuery()

Incorrect syntax near ')'.

[Hinault Romaric]

je crois que le problème est a ce niveau

Code :

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

1
2
 
 Dim oCommand As New Data.SqlClient.SqlCommand(strRequete, oConnection)

c'est plutôt

Code :

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

1
2
 
 Dim oCommand As New System.Data.SqlClient.SqlCommand(strRequete, oConnection)

@++

[spamitovic]

Au lieu qu'à chaque tu mets une ligne comme celle ci :

Code :

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

Dim oCommand As New System.Data.SqlClient.SqlCommand(strRequete, oConnection)

Ajoute un Imports tout au début de ton code :

Code :

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

Imports System.Data.SqlClient

Car je ne crois pas que tu l'as fais. Comme ça tu auras cette ligne :

Code :

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

Dim oCommand As New SqlCommand(strRequete, oConnection)

[hugo7]

Merci pour vos réponse mais j'ai toujours l'erreur voici le code de ma page vb :

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
Imports System.Data.SqlClient
Partial Class JeuxVideo_Default
    Inherits System.Web.UI.Page
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        ' Déclaration de l'objet de connexion
        Dim oConnection As SqlConnection
        Dim strRequete As String = "INSERT into TestJeuxVideo (id,texte,) Values(" & TextBox1.Text & "," & TextBox1.Text & ")"
        ' Création de l'objet de connexion
        oConnection = New SqlConnection
 
        ' Ecriture de la chaîne de connexion
        Dim sConnectionString As String = "Server=SQL2005.HEBERGEMENT.COM;Initial Catalog=db_worldgam3_1;uid=db_worldgam3_1;password=********"
        oConnection.ConnectionString = sConnectionString
 
        ' Ouverture de la connexion
        oConnection.Open()
        Dim oCommand As New System.Data.SqlClient.SqlCommand(strRequete, oConnection)
 
        ' Traitement des opération à effectuer sur la base de données
        oCommand.ExecuteNonQuery()
        ' Fermeture de la connexion
        oConnection.Close()
    End Sub
End Class

[Hinault Romaric]

ta requete sql n'est pas bonne au lieu de

Code :

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

1
2
 
Dim strRequete As String = "INSERT into TestJeuxVideo (id,texte,) Values(" & TextBox1.Text & "," & TextBox1.Text & ")"

tu devrais plutôt avoir

Code :

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

1
2
 
Dim strRequete As String = "INSERT into TestJeuxVideo(id, texte) Values('" & TextBox1.Text & "','" & TextBox1.Text & "')"

@++

[hugo7]

Merci je n'ai plus l'erreur et le texte de la textbox1 s'insert mais pas le texte tapé dans le contrôle editor , je ne comprends pas , il n'y a pas de texte dans la bdd...

[Hinault Romaric]

Je n'ai rien compris.

@++

[tssi555]

Ok, ton truc est un peu bizzar, plus ce que ta dis lilrolma, pour ta requette qui n'etait pas bonne (id, texte,) la virgule posait problème + les cotes pour inserer une chaine. le mieux c'est que tu utilise des paramètres. imagine que tu veux inserer 50 champs par exemple ! tu va bien t'amuser en concatenant...

Autre chose, ton problème d'après ce que je vois :

- tu tente d'insrer id qui est un numérique je suppose en prenant la valeur de text1.text.

Ok

- mais pour inserer ta deuxieme valeur que tu as comme champ "texte", tu insere toujour la valeur recupéré de text1.text, tu te trompe pas peu être et que tu veux mettre text2.text?

certainement, si tu ne convetti pas tes champs, tu va avoir des erreurs. et là la valeur récupéré dans text1.text que tu mets dans ta base ET pour le champs Id ET pour le champs texte, ya qqchose qui va pas la dedans. relis bien ton code. et fais un point d'arret pour voir où sa coince.

[hugo7]

Merci pour vos réponses je re explique mon problème :

J'ai dans ma page une TextBox1 et une deuxième textbox appelé ediitor1 et qui se "transforme" en contrôle editor au chargement de la page grâce à ce code :

Code :

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

1
2
3
4
5
<script type="text/javascript" src="../ckeditor/ckeditor.js"></script>
    <asp:TextBox runat="server" id="editor1" name="editor1"></asp:TextBox>
    <script type="text/javascript">
        CKEDITOR.replace('editor1');
			</script>

Mon contrôle éditor et celui-ci : http://ckeditor.com/demo

Mon problème est que l'insertion se fait bien mais juste le texte tapé dans la textbox1 s'insère et pas celui tapé dans l'éditor.
D'où vient le problème je ne comprend pas.

[Hinault Romaric]

Tu devrais regarder du coter de la documentation sinon essaye avec sa.

Code :

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

1
2
 
Dim strRequete As String = "INSERT into TestJeuxVideo(id, texte) Values('" & TextBox1.Text & "','" & editor1.Text & "')"

@++

[hugo7]

Merci pour ta réponse j'ai essayer le code que tu m'a donné , sa ne marche toujours pas

[Hinault Romaric]

dans ce cas essaye

Code :

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

1
2
 
editor1.Value

@++