Discussion :

[EvT Chess38]

Bonjour,

J'ai une table dans une base de donnée à laquelle je veux pouvoir ajoutter et supprimer des enregistrements. Mon soucie est que je n'arrives pas à passer des paramètres à ma requête SQL.

Voila le code qui fonctionne

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
 
 
    Dim bd As ADODB.Connection
    Dim table As ADODB.Recordset
    Dim sql As String
    Dim Source As String
    Dim test_string As String
...
        'ouverture de la base de données
        bd = New ADODB.Connection
        'connect to MySQL server using MySQL ODBC 3.51 Driver
        bd = New ADODB.Connection
        bd.ConnectionString = "DSN=STEAPSTAILOR"
        bd.Open()
        test_string = TextBox1.Text
        sql = "INSERT INTO DBO.A_Outillage(Type) values('test_string')"
        bd.Execute(sql)
        bd.Close()

Mais si par hasard je veux que Test_string soit un paramètre et nom une chaine de charactères, ca ne marche plus.

Code erroné:

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
 
 
    Dim bd As ADODB.Connection
    Dim table As ADODB.Recordset
    Dim sql As String
    Dim Source As String
    Dim test_string As String
...
        'ouverture de la base de données
        bd = New ADODB.Connection
        'connect to MySQL server using MySQL ODBC 3.51 Driver
        bd = New ADODB.Connection
        bd.ConnectionString = "DSN=STEAPSTAILOR"
        bd.Open()
        test_string = TextBox1.Text
        sql = "INSERT INTO DBO.A_Outillage(Type) values("+test_string+")"
        bd.Execute(sql)
        bd.Close()

J'ai beau fouillé sur le net, je n'arrive pas à trouver un exemple du code à appliquer.

[AlainTech]

Bonjour.

Sous quel environnement de développement travailles-tu?

[EvT Chess38]

Je suis en VB et je me connecte sur une base SQL

[Delbeke]

Essaye en ajoutant les simples quotes

Code :

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

sql = "INSERT INTO DBO.A_Outillage(Type) values('"+test_string+"') "

[EvT Chess38]

Merci, effectivement il ne me manquait que ces simples quotes

[pc75]

Bonjour,

Juste une remarque :

Ce n'est pas un peu risqué de nommer un champ d'une table avec le mot "Type" ?

[EvT Chess38]

Cette table me sert juste à alimenter une combobox. Donc je ne pense pas que ce soit très dangeureux... Après je n'ais pas une très grande expérience donc si tu dit que ca peut être risqué je te crois. J'essairai donc d'éviter ça à l'avenir

[Vld44]

Gni ?

Pour concaténer on utilise le "&" commercial pas le "+" ... Je suis surpris que cela fonctionne.

[AlainTech]

Eh, oui... C'est ça la "souplesse" de VB.

Ca marche jusqu'à ce que... ça casse.
Le jour où on essaye de concaténer des variables contenant des chiffres on obtient un magnifique "Type mismatch".

[Vld44]

Je ne savais même pas que VB Acceptait le "+"

Tant mieux d'ailleurs, car ayant appris le java en premier j'aurais été tenté.