SQL UPDATE possible ou pas?
Bonjour,
J'aimerais mettre à jour une table (d'un fichier excel).
Le code que j'ai testé ne fonctionne pas. Je n'ai rien trouvé de plus sur internet, j'éspère que vous pourrez m'aider.
Les requetes SELECT et INSERT fonctionnent mais pas l'UPDATE.
Voici le code :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
|
Public Cn As New ADODB.Connection
Public Rst As New ADODB.Recordset
Sub ConnexionBase()
Dim Fichier As String
'Définit le classeur fermé servant de base de données
Fichier = ThisWorkbook.Path & "\Fichier.xls"
Set Cn = New ADODB.Connection
'--- Connection ---
With Cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & Fichier & _
";Extended Properties=Excel 8.0;"
.Open (openstatic)
End With
End Sub
Sub InsMODModif()
Call ConnexionBase
strSQL = "INSERT INTO [Feuil2$] VALUES ('Test01', 'Test02')"
Cn.Execute strSQL
Cn.Close
Set Cn = Nothing
End Sub
Sub UpdateMODModif()
Call ConnexionBase
strSQL = "UPDATE [Feuil2$] SET Colonne1='Test' WHERE Colonne2='Test02'"
Cn.Execute strSQL
Cn.Close
Set Cn = Nothing
End Sub |
Pour la requete Update voici l'erreur :
ERREUR d'execution '-2147217904 (80040e10)'
Aucune valeur donnée pour un ou plusieurs des paramètres requis.
Merci de votre aide.
Cordialement,
Jojo.