SQL UPDATE mit Hostvariablen (Wie geht das?)

[BenderD]

Hallo,

auch das geht, aber meist geht das durchaus ohne, wie sieht denn deine where Klausel aus?

mfg

Dieter Bender

Hallo,

ich werde vorerst die von B.Hauser beschriebene Variante implementieren, allerdings würde mir die direkte Nutzung der Hostvariablen auch besser gefallen.

Kann man dies über das Einbinden der SQLDA ev. lösen?
Wo gibt es dazu gut beschriebene Beispiele?

Danke!

Joe

[CrazyJoe]

Hallo,

nachfolgende SR erzeugt mir jetzt das UPDATE-Statement mit der Where-Klausel.

MfG,

Joe

       begsr crt_updstmt;

          // --- SQL-statement löschen -----------------------------------------------------------
          reset sqlstmt;
          // Update-Statement übernehmen
          sqlstmt = 'UPDATE Datei set Wert1 = ' + %char(Hostvar1) + ', ' +
                    'Wert2 = ' + %char(Hostvar2) + ', Wert3 = ' + c_HC +  
                    Hostvar3 + c_HC + ', ' + 'Wert4 = ' + %char(Hostvar4);

          §where = *off;

          // Where-Bedingung an Update  anfügen
          if where1 <> ' ' and
             where1 <> '***';
            if §where = *off;
              sqlstmt = %trim(sqlstmt) + ' ' + c_where +
                        ' where1 = ' + c_HC + Hostvar5 + c_HC;
              §where = *on;
            else;
              sqlstmt = %trim(sqlstmt) + ' ' + c_and +
                          ' where1 = ' + c_HC + Hostvar5 + c_HC;
            endif;
          endif;

          if where2 <> 0;
            if §where = *off;
              sqlstmt = %trim(sqlstmt) + ' ' + c_where +
                        ' where2 = ' + c_HC + %char(Hostvar6) + c_HC;
              §where = *on;
            else;
              sqlstmt = %trim(sqlstmt) + ' ' + c_and +
                          ' where2 = ' + c_HC + %char(Hostvar6) + c_HC;
            endif;
          endif;

          //usw,...
      
       endsr; 

[BenderD]

Hallo,

wenn das bei dem usw. strukturell genauso weiter geht, dann lässt sich das mit:

update mytable
set myColumn = :myColumn
where
column1 between :low1 and :high1
and column2 between :low2 and :high2

sogar als statisches SQL lösen.
wenn dann eine Bedingung für columnX ausfallen soll, dann besetzt man lowX mit loval und highX mit highval

mfg

Dieter Bender

udate

Hallo,

nachfolgende SR erzeugt mir jetzt das UPDATE-Statement mit der Where-Klausel.

MfG,

Joe

       begsr crt_updstmt;

          // --- SQL-statement löschen -----------------------------------------------------------
          reset sqlstmt;
          // Update-Statement übernehmen
          sqlstmt = 'UPDATE Datei set Wert1 = ' + %char(Hostvar1) + ', ' +
                    'Wert2 = ' + %char(Hostvar2) + ', Wert3 = ' + c_HC +  
                    Hostvar3 + c_HC + ', ' + 'Wert4 = ' + %char(Hostvar4);

          §where = *off;

          // Where-Bedingung an Update  anfügen
          if where1 <> ' ' and
             where1 <> '***';
            if §where = *off;
              sqlstmt = %trim(sqlstmt) + ' ' + c_where +
                        ' where1 = ' + c_HC + Hostvar5 + c_HC;
              §where = *on;
            else;
              sqlstmt = %trim(sqlstmt) + ' ' + c_and +
                          ' where1 = ' + c_HC + Hostvar5 + c_HC;
            endif;
          endif;

          if where2 <> 0;
            if §where = *off;
              sqlstmt = %trim(sqlstmt) + ' ' + c_where +
                        ' where2 = ' + c_HC + %char(Hostvar6) + c_HC;
              §where = *on;
            else;
              sqlstmt = %trim(sqlstmt) + ' ' + c_and +
                          ' where2 = ' + c_HC + %char(Hostvar6) + c_HC;
            endif;
          endif;

          //usw,...
      
       endsr; 

[CrazyJoe]

Hallo,

ich werde den von Hr. Bender angesprochenen Lösungsansatz auch ausprobieren.

Danke für eure Hilfe!

Joe