Insertion données contenues dans des variables dans une BDD

**gangsterus** · 09/01/2008, 18h47

Bonjour,

Dans mon code, je souhaite insérer dans une BDD SQL qui est créée la valeur contenue dans des variables.
J'ai essayé plusieurs choses:

Code :

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

1
2
3
Dim command As New SqlClient.SqlCommand(
    "INSERT INTO TabChrono(PriseCont,...,NumTypCrédit) values(&vPriseCont&,...,&vTypCrédit&);", connection)
command.ExecuteNonQuery()

Ce code m'indique un débogage au niveau de la ligne "command.ExecuteNonQuery en indiquant que la syntaxe est incorrecte vers '&'

et le code suivant:

Code :

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

1
2
3
4
connection.Open()
Dim command As New SqlClient.SqlCommand(
    "INSERT INTO TabChrono(PriseCont,...,NumTypCrédit) values('&vPriseCont&',...,'&vTypCrédit&');", connection)
command.ExecuteNonQuery()

m'indique que

Nom de colonne non valide : 'PriseCont'.
Nom de colonne non valide : 'Infos'.
Nom de colonne non valide : 'Devis'.
Nom de colonne non valide : 'Preac'.
Nom de colonne non valide : 'Offre'.
Nom de colonne non valide : 'DosLoc'.
Nom de colonne non valide : 'Reporting'.
Nom de colonne non valide : 'MisesousPli'.
Nom de colonne non valide : 'NumTypCrédit'.

Merci d'avance à celui qui pourra m'aider

**_skip** · 09/01/2008, 19h52

&vPriseCont&,&vInfos&,&vDevis&,&vPreac&,&vOff&,&vDosLoc&,&vReporting&,&vMisesouspli&,&vTypCrédit&

Ce ne sont pas des variables mais des constantes ça.... Ta requête est envoyée telle quelle au SGBD, ce n'est rien de plus qu'une chaine de caractère et aucun traitement de remplacement n'est effectué.

**JPelli** · 10/01/2008, 09h27

bonjour,
une solution serait :

Code :

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

Dim command As New SqlClient.SqlCommand("INSERT INTO TabChrono(" & PriseCont & "," .... & ") ", connection)

(ajouter les ' pour les champs caractères)

ou utiliser un string.format

Mais la meilleure solution est d'utiliser une requête paramétrée
http://webman.developpez.com/article.../sqlparameter/
Bon boulot

Jean

**SaumonAgile** · 10/01/2008, 09h39

Si je puis me permettre une remarque par rapport à la réponse de JPelli, l'utilisation de paramètres SQL n'est pas la meilleure solution, c'est la seule solution. Le reste n'est que rustines.

**_skip** · 10/01/2008, 11h23

Je plussoie.
Une requete paramétrée permet de s'affranchir des problèmes de guillemets et pourcent, c'est également la solution que je préconise.

car des concaténations " " + '" "+ variable +"''" + pour moi c'est du bricolage.

**gangsterus** · 10/01/2008, 18h52

Bonsoir à tous et merci pour votre aide,

J'ai essayé d'utiliser le code du lien ci-dessus pour faire une requête paramétrée.

Ca a donné ça:

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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
 
  Private Sub TableChronoBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TableChronoBindingNavigatorSaveItem.Click
 
 
        If NumTypCréditComboBox.Text = "Crédit Emménagement" Then
 
            vTypCrédit = 1
 
        End If
 
        Me.Validate()
        Me.TableChronoBindingSource.EndEdit()
        Me.TableChronoTableAdapter.Update(Me.BDChrono2DataSet.TableChrono)
 
 
 
        Dim maConnexionSQLsrv As SqlClient.SqlConnection
        Dim myCommand As SqlClient.SqlCommand
        Dim maRequete, ConnexionSQL As String
 
        'Récupération de la chaine de connexion au serveur de base de données
        ConnexionSQL = ("Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Documents and Settings\Bureau\Chrono\Chrono\BDChrono.mdf;Integrated Security=True;User Instance=True")
        maConnexionSQLsrv = New SqlClient.SqlConnection(ConnexionSQL)
 
        'Requete mise a jour de la table client
        maRequete = "INSERT INTO [TabChrono] ( [PriseCont],[Infos],[Devis],[Preac],[Offre],[DosLoc],[Reporting],[Misesouspli],[NumTypCrédit]) VALUES (@vPriseCont,@vInfos,@vDevis,@vPreac,@vOff,@vDosLoc,@vReporting,@vMisesouspli,@vTypCrédit)"
 
        'Création de la commande SQL
        myCommand = New SqlClient.SqlCommand(maRequete, maConnexionSQLsrv)
 
        'Création et décalartion des paramètres
        With myCommand.Parameters
            .Add(New SqlClient.SqlParameter("@vPriseCont", SqlDbType.Variant, 15))
            .Add(New SqlClient.SqlParameter("@vInfos", SqlDbType.Variant, 25))
            .Add(New SqlClient.SqlParameter("@vDevis", SqlDbType.Variant, 25))
            .Add(New SqlClient.SqlParameter("@vPreac", SqlDbType.Variant, 25))
            .Add(New SqlClient.SqlParameter("@vOff", SqlDbType.Variant, 25))
            .Add(New SqlClient.SqlParameter("@vDosLoc", SqlDbType.Variant, 25))
            .Add(New SqlClient.SqlParameter("@vReporting", SqlDbType.Variant, 25))
            .Add(New SqlClient.SqlParameter("@vMisesouspli", SqlDbType.Variant, 25))
            .Add(New SqlClient.SqlParameter("@vTypCrédit", SqlDbType.Variant, 25))
 
        End With
 
        'Attribution des valeurs aux paramètres
        With myCommand
            .Parameters("@vPriseCont").Value = vPriseContLabel1.Text
            .Parameters("@vInfos").Value = vInfosLabel1.Text
            .Parameters("@vDevis").Value = vDevisLabel1.Text
            .Parameters("@vPreac").Value = vPreacLabel1.Text
            .Parameters("@vOff").Value = vOffreLabel1.Text
            .Parameters("@vDosLoc").Value = vDosLocLabel1.Text
            .Parameters("@vReporting").Value = vReportingLabel1.Text
            .Parameters("@vMisesouspli").Value = vMisesouspliLabel1.Text
            .Parameters("@vTypCrédit").Value = NumTypCréditComboBox.Text
 
 
        End With
 
 
        Try
 
            'Execution de la requête
            myCommand.Connection.Open()
            myCommand.ExecuteNonQuery()
            myCommand.Connection.Close()
 
        Catch ex As SqlClient.SqlException
 
            'Response.Write(ex.Message)
 
        End Try
 
 
    End Sub

Cette fois-ci, je n'ai aucun résultat... Quand je clique sur le bouton, rien ne se passe. Si je vais voir dans la BDD, aucune ligne n'a été ajoutée.

J'avoue ne pas trop savoir par quel bout m'y prendre...

Merci d'avance pour votre aide

**gangsterus** · 14/01/2008, 18h00

Hello!

Je fais un petit Up! car je n'ai pas réussi à avancer dans mon programme...
Merci à toutes les bonnes âmes

**SaumonAgile** · 14/01/2008, 18h49

D'un autre côté, tu ne te donnes pas les moyens de trouver la solution...
Ceci :

Code :

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

1
2
3
Catch ex As SqlClient.SqlException
    'Response.Write(ex.Message)
End Try

Ce morceau de code masque toutes les exceptions. Et si tu ne vois pas les exceptions comment veux tu arriver à trouver le problème ?

**gangsterus** · 16/01/2008, 17h49

Hello!

Merci pour toute cette aide, car ça fonctionne!!

Evidemment, j'ai trouvé une erreur dans le chemin d'accès à la base de données...
J'ai encore 2 questions avant de déployer mon application.
Je me suis rendu compte d'une chose: Si je fais mon enregistrement, je ne le vois apparaître dans la BDD que si je clique sur "Exécuter SQL". C'est grave docteur?
Je souhaite installer cette appli sur plusieurs PC mais avec 1 seule BDD. Si plusieurs utilisateurs se connectent en même temps à la BDD, celà pose-t-il problème? J'ai fait une incrémentation automatique de chaque ligne.

Encore merci pour votre aide.

Insertion données contenues dans des variables dans une BDD

VB.NET

Discussions similaires

Partager

Partager