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.