Mise à jour fichier fermé

[Pierre31]

Bonjour à toutes et tous,

A partir de ADO et d'une requête SQL je met à jour 2 champs d'un fichier fermé de la façon suivante:

strSQL = "UPDATE [" & Feuille & "$] SET " & _
"NumCde = '" & NumeroCde & "' WHERE Numéro = '" & Num & "'" 'Txt

Cn.Execute strSQL


strSQL = "UPDATE [" & Feuille & "$] SET " & _
"Montant_DA = " & Montant & " WHERE Numéro = '" & Num & "'" 'Num

Cn.Execute strSQL
Cn.Close

J'aurais souhaité mettre à jour les 2 champs en écrivant une seule requête SQL (voir dessous) mais je n'arrive pas à concatener les 2 requêtes, chaque fois j'ai un message d'erreur de fin de requête.

strSQL = "UPDATE [" & Feuille & "$] SET " & _
"NumCde = '" & NumeroCde & "' & "Montant_DA = " & Montant & " WHERE Numéro = '" & Num & "'"

Comment écrire correctement cette requête ?

D'avance merci pour vos réponses.

Cordialement

Pierre

 

[Pierre31]

bonjour,

Je me répond mais celà peut servir à d'autres, voici la réponse

strSQL = "UPDATE [" & Feuille & "$] SET " & _
"NumCde = '" & NumeroCde & "', Montant_DA = '" & Montant & "' WHERE Numéro = '" & Num & "'"


Cn.Execute strSQL

Bon après-midi
Cordialement
Pierre

 

[Guest]

Re : Mise à jour fichier fermé

Bonjour,

Cela doit être quelque chose comme ceci:

"UPDATE [" & Feuille & "$] SET NumCde=" & NumeroCde & ","Montant_DA=" & Montant & "WHERE Numéro = " & Num & ";"

Pas utile de mettre des ' devant et derrières les valeurs numeriques, mais c'est toujours mieux d'indiquer la fin de la requête par un ';'

Sinon tu peux préparer ta requête comme ceci:

sql ="SELECT [FeuilX$] SET NumCde=Valeur1, Montant_DA=Valeur2 WHERE Numéro=Valeur3;"
 
Sql=replace(sql,"FeuilX",Feuille)
sql=replace(sql,"Valeur1",NumeroCde)
sql=replace(sql,"Valeur2",Montant)
sql=replace(sql,"Valeur3",Num)

A+

[Edition] J'ai oublié: les valeurs décimales sont à transmettre avec un point '.' comme séparateur décimal