Discussion :

[mihaispr]

Salut a tous et merci pour lire ma petite question!

J'utilise visual basic 2008.

J'ai fais un tableau dans sql server.

Voila DDL:

Code :

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

1
2
3
4
5
6
 
CREATE TABLE Noms
(
Id int PRIMARY KEY NOT NULL ,
Nom varchar(255)
)

Sur ma forme j'ai 2 textbox (id et nom) que je complete.

Je veux quand j'appuie le boutton(Button3_Click) (il m'introduit les lignes specifies) dans table Test. (a chaque appui il introduit ce que j'avais ecrit dans les 2 textbox). Dans button3_Click c'est mon probleme.

Voila j'attache la source complete (vb 2008) pour etre plus facile de m'aider.


Example output:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dans les 2 textboxes j'introduit 1 michel
 
Puis j'appuie le boutton on introduit la premiere ligne dans table Noms
 
Apres dans gui j'introduit 2 christian
 
Puis j'appuie pour la deuxieme fois le boutton il introduit automatiquement la deuxieme ligne dans table Noms situe en sql server.
 
Donc output desire:
 
1 michel (qui sont introduites par example dans les 2 textboxes de ma forme)
 
2 christian

Merci en avance d'avoir pris le temps de lire tout ca et de m'aider!


Je vous donne ici un example.

J'ai mis dans textbox1 Test1, dans textbox2 Test2.

J'appuie le boutton Insert into table.

Mais ca ne fais pas correctement l'insert voila:

[img][/img]


Normalment dans ce cas je veux l'output:

Code :

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

1
2
3
Nom Prenom
 
Test1  Test2

Si j'introduis d'autres valeurs dans textbox une autre ligne , j'appuie pour la deuxieme fois le boutton Insert into table on ajoute dans le tableau Noms la deuxieme ligne par example ( textbox1=Test3 , textbox2=Test4) l'output sera:

Code :

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

1
2
3
4
5
6
 
Nom Prenom
 
Test1   Test2
 
Test3  Test4

[Pol63]

je trouve que tu poses pas mal de questions, avec à chaque fois un pavé que personne n'a envie de lire
le mieux serait que tu lises un cours/tutos, plusieurs sont référencés par ce site
et le mieux c'est d'avoir des questions simples et claires sur des problèmes qui ne sont ni expliqués dans les faq ni dans les tutos

[mihaispr]

Salut pol!

je trouve que tu poses pas mal de questions, avec à chaque fois un pavé que personne n'a envie de lire

J'ai donne des details et la source pour etre plus clair pour les autres ce que je veux faire.

Il y a des utilisateurs qui ne font pas ca donc je crois que ce n'est pas mon cas.

Si tu n'as pas envie de lire je ne suis pas coupable de ca.



J'ai donne des details et poster ma source. Donc je crois que je donne plus des details que d'autres utilisateurs.

Si quelqu'un sait est s'avait confronte avec cette probleme....

J'ai lu des tutos avant de faire ca : http://aspic.developpez.com/cours/dotnet/

,simplement ca me pose des problemes le code que j'ai mentionne.

Je peux vous lister exactement le code qui me pose probleme si c'est ca mon erreur.

Si tu fais reference a ca j'ai aussi regarde la section faq (ado.net) le probleme est que je ne sais adapter a la situation de moi.

http://faqvbnet.developpez.com/

Amicalment,

Michel

[Pol63]

si ce que tu cherches c'est comment faire INSERT INTO c'est expliqué des centaines de fois sur le net ...
il faut un sqlconnection, un sqlcommand (qui contient la requête) et faire executenonquery

[mihaispr]

Ok. Donc j'ai perdu du temps en postant le message.

Ok. Probablement c'est ma faute donc je vous donne le code je ne me rends pas compte ou est mon probleme

Alors quelle est le probleme dans mon code?

'Boutton inserer les 2 valeurs des 2 textboxes dans table Noms cree en sql server.

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
 
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
 
        'Public Class account
        'myconnection=conexiune
        'comandasql=mycommand
        'dr- citestedate
        '
 
     Imports System.Data
     Imports System.Data.SqlClient
 
        Dim conexiune As SqlConnection
        Dim comandasql As SqlCommand
        Dim citestedate As SqlDataReader
        Dim ra As Integer 'pt.un rand nou introdus
 
        conexiune = New SqlConnection("server=HOME-D16ABD96A8\PRIMAVERA;uid=mihaispr;pwd=mihai;database=ParcAuto")
        conexiune.Open()
        comandasql = New SqlCommand("insert into Noms([Id],[Nom]) values (' " & Textbox1.Text & "','" & Textbox2.Text & " ')", conexiune)
        comandasql.ExecuteNonQuery()
        MessageBox.Show("New Row Inserted" & ra)
        conexiune.Close()
    End Sub

La base des donnes s'appelle Test table Noms.

Code :

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

1
2
3
4
5
6
7
8
9
 
CREATE DATABASE Test
 
CREATE TABLE Noms
(Id int PRIMARY KEY NOT NULL,
Nom varchar(255)
)
 
SELECT * FROM Noms

[Pol63]

c'est bien gentil de nous donner le code en disant qu'il y a un problème, mais il vaudrait mieux préciser quel est le problème, s'il y a un message d'erreur autant le donner avec la ligne qui passe en erreur, on est pas devin !


à première vue ce que je vois c'est que tu précises dans ton insert que tu vas définir 3 champs et dans le values tu n'en donne que 2


c'est bien gentil de donner un zip avec ton code source, mais je ne pense pas que quelqu'un va l'ouvrir, autant donner les quelques lignes de code avec le soucis, et plus sur demande

j'ajouterais (et les tutos doivent en parler) qu'il ne faut pas concaténer une requête avec des valeurs de textbox, ca peut bugger facilement et c'est même dangereux
il faut utiliser des sqlparameters

et enfin, on mets des try catch le plus possible, surtout sur un accès à une base de données, qui a pas mal d'erreurs possibles !

[StormimOn]

Le problème c'est à priori que tu copies du code bêtement sans essayer de comprendre le principe.

Tu fais un INSERT INTO sur 3 champs de ta table mais tu n'indiques que 2 valeurs. Enlève le champ Id dans la requête INSERT INTO et modifie ce champ pour qu'il soit en numérotation automatique dans la base (IDENTITY(1,1) je crois).

Ensuite merci d'utiliser des requêtes paramétrées, la concaténation de chaîne ...

Les tutoriaux sur ADO.Net, SQL, ... ce n'est pas ce qui manque pourtant

[mihaispr]

Le problème c'est à priori que tu copies du code bêtement sans essayer de comprendre le principe.

Tu fais un INSERT INTO sur 3 champs de ta table mais tu n'indiques que 2 valeurs. Enlève le champ Id dans la requête INSERT INTO et modifie ce champ pour qu'il soit en numérotation automatique dans la base (IDENTITY(1,1) je crois).

Ensuite merci d'utiliser des requêtes paramétrées, la concaténation de chaîne ...

J'ai modifie j'ai poste bizarrement.

J'ai vu quand on faisait du post que j'ai 3 parametres.

Enfin quand je fais un select * Noms je ne vois pas ce que j'ai precise dans les textbox.

Pouviez-vous m'aider ?

Le champ id il n'est pas IDENTITY: lol

Code :

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

1
2
3
4
5
 
CREATE TABLE Noms
(Id int PRIMARY KEY NOT NULL,
Nom varchar(255)
)

Il peut etre un champ aleatoire je sais qu'on ne fait pas insert into dans identity

J'ai l'impression que vous ne desirez pas m'aider .



Le DDL exprime clair que Id n'est pas IDENTITY.

Mon probleme ce n'est pas dans les parametres..... ca c'est clair c'est seulement un petit example.

En lieu d'Id on peut avoir n'importe quel champ c'est clair. Le probleme est autre et vous saviez ca j'en suis sur.

Je veux comprendre le principe c'est pour cela que j'ai ouvert la discussion donc j'attends une reponse de votre part.

Je veux comprendre le principe pas copier le code....


J'ai modifie le message c'etait une manque d'attention je suis tres presse de resoudre cette probleme et j'ai des moments quand je suis un peu distre

Merci pour comprehension,

[Pol63]

je comprends pas trop ton(tes) message(s)

mais si tu nous postes des codes qui ne sont pas ceux que tu utilises on ne peut pas t'aider

si en plus tu ne nous donne pas de message d'erreur avec la ligne, ca va pas etre simple

rajouté à celà le fait que tu ne veux pas suivre les tutos qui sont pour certains plus que complet dans leurs domaines, et/ou les bonnes pratiques

et encore que tes questions ET tes réponses sont loins d'etres claires, voir même s'éloignant légèrement de la langue française ici et là ...

moi je peux rien de plus, désolé, et pourtant j'essaye d'aider sur ce forum ...

[mihaispr]

Ok. Je posterais dans quelques instants le probleme que j'ai.

Voila l'interface:



Si ce n'etais pas bien clair exprime ce que je veux c'est introduire ligne1 quand je complete pour la premiere fois les 2 textboxes et j'appuie le boutton insert into table.

Table Noms est deja cree en sql server (la structure des colonnes seulement):

Code :

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

1
2
3
4
5
6
7
8
 
 
CREATE DATABASE Test
 
CREATE TABLE Noms
(Nom varchar(255),
Prenom varchar(255)
)

Est voila le code qui me pose problemes: boutton insert into (Button3_Click).

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
 
 Imports System.Data
     Imports System.Data.SqlClient
 
    Dim conexiune As SqlConnection
    Dim comandasql As SqlCommand
    Dim citestedate As SqlDataReader
    Dim ra As Integer 'pt.un rand nou introdus
 
    conexiune = New SqlConnection("server=HOME-D16ABD96A8\PRIMAVERA;uid=mihaispr;pwd=mihai;database=Test")
    conexiune.Open()
    comandasql = New SqlCommand("insert into Noms([Nom],[Prenom] values ('" & TextBox1.Text & "','" & TextBox2.Text & "')", conexiune)
    comandasql.ExecuteNonQuery()
    MessageBox.Show("Noul rand introdus" & ra)
    conexiune.Close()
End Sub

Pourtant j'ai 3 erreurs qui dependent de (delete textbox et quitter):

Erreurs sont attache dans les pieces jointes:

Donc les 3 erreurs sont a ces 3 lignes:

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
 
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Les 3 erreurs a ces 3 lignes au-dessus sont:

Error 1 Statement is not valid in a namespace. C:\Documents and Settings\MIHAI\Desktop\Introduire lignes dans tableau sql server\Introduire lignes dans tableau sql server\Form1.vb 4 5 Introduire lignes dans tableau sql server

J'ai essaye d'inclure tous mon code entre:

Code :

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

1
2
3
4
 
Namespace Application
tous mon code des 3 bouttons
End Namespace

Je vous donne tous le code inclus entre namespace.

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
 
Namespace Application
    'boutton quitter
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()
    End Sub
 
    ' boutton pour eclairer le contenu des 2 textbox
 
    Public Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim textboxuri As Control
        For Each textboxuri In Me.Controls
            If TypeOf textboxuri Is TextBox Then textboxuri.Text = ""
        Next
    End Sub
 
    'boutton pour faire insert into dans table Noms de sql server
 
    ' on introduit ce qu'il se trouve dans 2 textboxes a chaque appui il
    ' introduit ce qu'on as dans le textbox
 
    'ici c'est mon probleme
 
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
 
        'Public Class account
        'myconnection=conexiune
        'comandasql=mycommand
        'dr- citestedate
        '
 
     Imports System.Data
     Imports System.Data.SqlClient
 
        Dim conexiune As SqlConnection
        Dim comandasql As SqlCommand
        Dim citestedate As SqlDataReader
        Dim ra As Integer 'pt.un rand nou introdus
 
        conexiune = New SqlConnection("server=HOME-D16ABD96A8\PRIMAVERA;uid=mihaispr;pwd=mihai;database=Test")
        conexiune.Open()
        comandasql = New SqlCommand("insert into Noms([Id],[Nom] values ('" & TextBox1.Text & "','" & TextBox2.Text & "')", conexiune)
        comandasql.ExecuteNonQuery()
        MessageBox.Show("Noul rand introdus" & ra)
        conexiune.Close()
    End Sub
    'End Class
End Namespace

Mais les 3 erreurs apparaisent toujours!

Ce que je desire:

Etape1: Completer les 2 textbox



Output desire dans tableau Noms:

Code :

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

1
2
3
4
 
Nom Prenom
 
Test1 Test2

Mais rien ne s'ajoute quand je fais en sql server:

Code :

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

SELECT * FROM Noms

Effet:

[Pol63]

il en faut du temps pour avoir les erreurs !
et elles sont assez explicites, il est interdit de mettre des sub dans un namespace, il faut qu'elles soient dans un classe

[mihaispr]

Toujours des erreurs:

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
 
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
 
        Namespace Application
    Imports System.Data
         Imports System.Data.SqlClient
    Public Class account
        'myconnection = conexiune
        'comandasql = mycommand
        'dr(-citestedate)
 
 
 
 
        Dim conexiune As SqlConnection
        Dim comandasql As SqlCommand
        Dim citestedate As SqlDataReader
        Dim ra As Integer 'pt.un rand nou introdus
 
    conexiune = New SqlConnection("server=HOME-D16ABD96A8\PRIMAVERA;uid=mihaispr;pwd=mihai;database=Test")
    conexiune.Open()
    comandasql = New SqlCommand("insert into Noms([Id],[Nom] values ('" & TextBox1.Text & "','" & TextBox2.Text & "')", conexiune)
    comandasql.ExecuteNonQuery()
    MessageBox.Show("Noul rand introdus" & ra)
    conexiune.Close()
End Sub
    End Class
End Namespace

[Pol63]

soit tu prends des cours, soit tu laisses tomber le développement, mais tâtonner en écrivant des non-sens ca ne mène à rien ...

[mihaispr]

Je reviens ....

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
 
Public Shared Function InsertNewRecord(ByVal item1 As String, ByVal item2 As String) As Boolean
 
 
    Dim cnInsert As New OleDbConnection(GetConnectionString("YourConnName"))
    Dim cmdInsert As New OleDbCommand
    Dim query As String = "INSERT INTO Noms (Nom,Prenom) VALUES(@item1,@item2)"
 
Dim iSqlStatus As Integer
 
 
    cmdInsert.Parameters.Clear()
 
Try
 
       With cmdInsert
 
          .Parameters.AddWithValue("Nom", item1)
          .Parameters.AddWithValue("Prenom", item2)
 
          'etablir la connection avec l'objet object
          .Connection = cnInsert
      End With
 
 
      HandleConnection(cnInsert)
 
 'iSqlStatus 0=Failed 1-Done
 
      iSqlStatus = cmdInsert.ExecuteNonQuery
 
      'on verifie l'etat de la connexion
      If Not iSqlStatus = 0 Then
          ShowMessage('Cannot connect to database')
          Return False
      Else
          ShowMessage("Connected to database")
          Return True
      End If
    Catch ex As Exception
       MsgBox(ex.Message, "Error")
    Finally
       'on quitte la conexion
        HandleConnection(cnInsert)
    End Try
End Function

Dans mon boutton j'ai appeler la fonction:

Code :

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

1
2
3
4
 
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
InsertNewRecord(item1,item2)
End Sub

J'introduis michel (textbox1) et sardou(textbox2). J'appuie mon boutton qui se trouve sur la forme (sql server est

Pourtant il ne m'affiche rien dans mes 2 colonnes du tableau

[Pol63]

vraiment désolé, on sent qu'il y a de la volonté, mais y a encore des trucs qui ne vont pas et des trucs pas expliqués

genre ce HandleConnection

si c'est un copier coller d'un code trouvé quelque part, ca explique qu'il y ait du mieux et du encore pas terrible, auquel cas il faut comprendre le code et non faire du copier coller

[mihaispr]

Code :

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

auquel cas il faut comprendre le code et non faire du copier coller

Desole tu commences a devenir ridicule. J'en ai marre de toi...

Je desirais poster la solution pour aider les autres qui se confrontent avec le meme probleme mais quand je vois de l'egoisme dans ce qui m'entoure.... ("Knowledge is power...power corrupts!")

Ne dis moi que je n'ai pas du respect parce que tu m'avais attaque dans chaque poste il est plus facile de ne pas poster. Donc merci de ne pas poster!


Je marque la discussion resolue est a bientot!

Code :

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

1
2
 
on sent qu'il y a de la volonte

Tu veux m'aider ou non ? Car ce que tu fais est de poster avec l'ironie....


Ok je suis fou, sot mais si un homme a de la volonte (car il est deboutant est il ne peux savoir tout) tu peux l'aider si tu sais ou si tu veux. Je galere de 5 jours pour trouver une solution a cette probleme...c'est facile pour ceux qui s'avait confronte avec le meme probleme.

Tu sais beacoup mais c'est =0 si tu nu veux pas aider!



Tout est explique en clair du premier poste....on sent que tu ne veux pas m'aider...j'ai compris le code mais c'est une autre probleme ca

Tu ne me connais je suis perfectioniste (meme si j'ai compris je veux qu'il marche ok au final , j'aime les choses claires dans tout)

Tu veux seulement rigoler de moi j'ai suivi tes messages dans autres discussions et ce sont les memes....

En tous cas si ca ne marche dans quelques jours je marquerais comme resolu et j'abandonnerais le probleme .

Reste avec tes connaissances pendant toute ta vie! (meme si j'ai donne tous les details :source attache, code en balises , j'ai perdu le temps de commenter le code, prinscreens tout ca en vain pour quelqu'un qui fait rigoler des utilisateurs.


A bientot,

Michel