La commande INSERT INTO dans VBA
Bonjour à tous,
J'ai réussi à utiliser la commande SELECT dans VBA, mais dès que j'essai d'utiliser une commande d'insertion il me met une erreur que le champ n'existe pas "Unknown column 'valeur du champ_1' in 'field list'.
Le problème est qu'il prend les données que je souhaite mettre par des noms de champs. Si je met uniquement des chiffres ma requete fonctionne?
Pourquoi?
Comment y remédier ?
Voici mon code :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
Dim cnn As New ADODB.Connection, rst As New ADODB.Recordset
Dim Text_SQL As String
Dim id_tournoi As integer
Dim champ_1 As String
Dim champ_2 As String
cnn.Open "ODBC;DATABASE=peofofo;DSN=peofofo;UID=root"
champ_1 = ThisWorkbook.Sheets("Résultats").Cells(9, 1).Value
champ_2 = ThisWorkbook.Sheets("Résultats").Cells(12, 1).Value
Text_SQL = "INSERT INTO essai_table VALUES (null," & id_tournoi & " ," & champ_1 & ", " & champ_2 & ")"
' Exécution de la requête
rst.Open Text_SQL, cnn
cnn.Close 'Fermeture de la connection à la base de donnée |
