INSERT en passant par ADODB
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:
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:
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.
