Requête SQLRésolu

Question

Bonjour,
Je souhaiterai savoir si on peut récupérer le nom d'une colonne et non pas sa valeur
Voici une partie de mon code pour que vous compreniez mieux

Set RS1 =  DB1.OpenRecordset("SELECT * FROM tb_transfert_depotage") 'Permet d'utiliser les enregistrements de tb_Resultat_1
Set RS2 = DB1.OpenRecordset("SELECT * FROM tb_Sauvegarde_NumOperation_Transfert") 'Permet d'obtenir le n° Opération Transfert
  
  RS1.MoveFirst   'tb_transfert_depotage
  RS2.MoveFirst   'tb_Sauvegarde_NumOperation_Transfert
  
  Do Until RS1.EOF
      If Trim(RS1.Fields("NumOperation")) <> Trim(RS2.Fields("NumOperationTransfert")) Then
            If Trim(RS1.Fields("recoup_used")) = "a" Then
                  
                  SQL = "UPDATE tb_transfert_depotage " & _
                        "SET recoup_used = 'non' " & _
                        "WHERE (" &  NumOperation  & " =" & Trim(RS1.Fields("NumOperation")) & ")"


  
                  DoCmd.SetWarnings False
                  MsgBox SQL
                  DoCmd.RunSQL SQL
  
                  
            End If
.......

Je souhaiterai remplacer NumOperation par le nom de sa colonne avec un RS1.Quelque chose

Merci d'avance

cs_monaco63 · Accepted Answer

J'ai trouvé je donne ma réponse on ne sait jamais

Set RS1 =  DB1.OpenRecordset("SELECT * FROM tb_transfert_depotage") 'Permet d'utiliser les enregistrements de tb_Resultat_1
Set RS2 = DB1.OpenRecordset("SELECT * FROM tb_Sauvegarde_NumOperation_Transfert") 'Permet d'obtenir le n° Opération Transfert
  
  RS1.MoveFirst   'tb_transfert_depotage
  RS2.MoveFirst   'tb_Sauvegarde_NumOperation_Transfert
  
  Do Until RS1.EOF
      If Trim(RS1.Fields("NumOperation")) <> Trim(RS2.Fields("NumOperationTransfert")) Then
            If Trim(RS1.Fields("recoup_used")) = "a" Then
                  
                  SQL = "UPDATE tb_transfert_depotage " & _
                        "SET recoup_used = 'non' " & _
                        "WHERE (" &  RS1.Fields("NumOperation").Name & " =" & Trim(RS1.Fields("NumOperation")) & ")"

                  DoCmd.SetWarnings False
                  MsgBox SQL
                  DoCmd.RunSQL SQL
  
                  
            End If
.......

Renfield · Answer

pas compris...

                  SQL = "UPDATE tb_transfert_depotage " & _
                        "SET recoup_used = 'non' " & _
                        "WHERE (NumOperation=" & Trim(RS1.Fields("NumOperation")) & ")"

et voilà ^^

Renfield · Answer

je ne comprend pas ce que tu cherches !!!

RS1.Fields("NumOperation").Name  => "NumOperation"

pas besoin de demander au field son nom, puisque tu l'indexe par son nom, que tu connais d'ores et deja, donc ...

cs_Nicko11 · Answer

Il me semble que je t'avais deja repondu sur cette question dans un autre sujet.

en effet, il ne sert a rien de faire appel au recordset pour cela :

WHERE NumOperation='" & Trim(RS1.Fields("NumOperation").Value) & "'"

cs_Nicko11 · Answer

Pourquoi tu n'as pas pris la peine de nous repondre ici:

http://www.vbfrance.com/infomsg_REQUETE-UPDATE_985704.aspx#9

Pourquoi avoir créer un second post alors que Reinfield et moi t'avions deja repondu.

cs_Nicko11 · Answer

A oui Reinfield, les quotes, mauvais reflexe.

Il parailt plus probable de ne pas les mettre puisque ca semble etre un numérique (NumOperation)

DSL

Requête SQL

6 réponses

Votre réponse

Discussions similaires