Discussion :

[peofofo]

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 :

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

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

[JackOuYA]

Bonjour,


si tes champs sont des chaines de caractéres il faut les encadrer de quotes : '

Code :

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

1
2
 
   Text_SQL = "INSERT INTO essai_table VALUES (null," & id_tournoi & " ,'" & champ_1 & "', '" & champ_2 & "')"

Jacques.

[peofofo]

Merci JackOuYA, le script fonctionne

Mais est ce que j'utilise la bonne méthode pour insérer des données avec recordset ?