Lier vb.net de sql server

Version imprimable

1 pièce(s) jointe(s)

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:

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:

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:

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:

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

14/11/2009, 16h38
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
14/11/2009, 18h25
mihaispr

Salut pol!

Citation:

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.:oops:

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
14/11/2009, 18h40
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

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:roll:

Alors quelle est le probleme dans mon code?

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

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

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

14/11/2009, 19h01
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 !
14/11/2009, 19h03
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 :)
14/11/2009, 19h07
mihaispr
Citation:

Envoyé par 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 ...

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:

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 :cry:

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 8O 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 :roll: donc j'attends une reponse de votre part.

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

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

Merci pour comprehension,

:zoubi:
15/11/2009, 00h35
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 ...

1 pièce(s) jointe(s)

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

Voila l'interface:

http://img689.imageshack.us/img689/7857/forme.jpg

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:

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:

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:

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:

Citation:

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:

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

Je vous donne tous le code inclus entre namespace.

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

http://img43.imageshack.us/img43/7277/guie.jpg

Output desire dans tableau Noms:

Code:

1
2
3
4
 
Nom Prenom
 
Test1 Test2

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

Code:

SELECT * FROM Noms

Effet:

http://img10.imageshack.us/img10/438/insertb.jpg

15/11/2009, 12h14
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

Toujours des erreurs: :aie:

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

15/11/2009, 13h19
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 ...

Je reviens .... :oops:

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

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:aie:

15/11/2009, 22h45
Pol63

:lol:
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
17/11/2009, 10h04
mihaispr
Code:

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! :aie:

Je marque la discussion resolue est a bientot!
Code:

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 :roll:

Tu ne me connais je suis perfectioniste:ccool: (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! :mouarf: (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