Requete SQL a partir VBA excel

Bonjour,

Je cherche a updater/completer une table access a partir d'un fichier excel.
Pour cela je fais une recherche SQL pour voir si la clef primaire que je veux toucher existe deja dans base :
si oui -> je veux updater un champ date de ma table
si non -> je veux l'inserer dans ma table (via une requete SQL INSERT).
La requete INSERT fonctionne bien, mais la requete SELECT pour voir si la clef existe deja retourne toujours un recordset vide..
pourtant en prenant la string de la requete SQL et en l'executant directement dans Access elle fonctionne! ..

Code:

---

1 2 3 4 5 6 7 8 9 10 11

sqlFindEntry = "SELECT Name,Date,time FROM table1 WHERE Name = '" & var_name & "' AND Date = '" & var_date & "' ;" Set Recordset = Connection.Execute(sqlFindEntry) 'update time if entry exists If Recordset.RecordCount > 0 Then Recordset("time") = var_time 'insert if doesnt exist Else sqlInsert = "INSERT INTO table1 VALUES (' " & var_name & " ',' " & var_date & " ', ' " & var_time & " ', ' " & var_frequency & " ')" Set Recordset = Connection.Execute(sqlInsert) End If

---

Merci par avance pour vos idees!

Bonjour,

Plutôt que de retourner la ligne de l'enregistrement et de tester si le retour est vide ou non, utilises un agrégat count et test si le retour est à 0 ou 1.

Hello jfontaine,

Je comprend pas bien ta proposition : j'ai besoin de recuperer la ligne de l'enregistrement pour pouvoir modifier le champ time de cette ligne !
(sachant que si il existe un enregistrement il est unique puisque la clef primaire de ma table c'est Name * Date).

Merci!

Si tu souhaites modifier directement l'enregistrement, essais comme cela

On test la position du curseur dans le recordset

Code:

---

1 2 3 4 5 6 7 8 9

If Recordset.EOF = False Then 'modif     Else 'Insert     End If

---

Ok en faite j'ai du mal m'exprimer.
Mon probleme est que ma requete ne fonctionne pas le recordset retourne est toujours vide alors meme que la meme requete lancee directement dans acces a un enregistrement retour! Du coup un count sur recordset ou un test RecordSet.EOF ne resoud pas mon probleme -> je rentre jamais dans ce If alors meme que l'enregistrement existe dans la base et que du coup la macro essayant de creer un nouveau champ avec cette clef plante pour cause de clef deja existante!

En effet, j'ai vraiment mal compris.

Pas sur que ce soit cela, mais utilises des crochets quand un nom de champ existe aussi en instruction VBA

Code:

---

sqlFindEntry = "SELECT Name, [Date],[time] FROM table1 WHERE Name = '" & var_name & "' AND [Date] = '" & var_date & "' ;"

---

Nope j'avais deja essaye mais ca ne resoud pas mon pb :(
Je continue a chercher mais je vois vraiment pas pourquoi ma requete ne me retourne pas l'enregistrement alors que la meme string de requete dans access fonctionne...

D'autres idees? :?

Bonjour,

Et avec quelque chose dans ce genre ?

Code:

---

1 2 3 4 5 6 7

If dCount("*","Table1","Name = '" & var_name & "' AND Date = '" & var_date & "'") then docmd.runsql "Update table1 Set time ='" & var_time & "' where Name = '" & var_name & "' AND Date = '" & var_date & "'" else docmd.runsql "INSERT INTO table1 VALUES (' " & var_name & " ',' " & var_date & " ', ' " & var_time & " ', ' " & var_frequency & " ')" endif

---