FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Mejorar este codigo...
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
Mejorar este codigo...
Posted: Fri Jan 26, 2024 10:52 AM
Hola.
Pueden ayudarme a mejorar. este codigo? es para crear un procedimiento. pero no me gusta como ha quedado.
Code (fw): Select all Collapse
  BEGIN
      SET @cCampo  =  cCampo ;
      SET @cCadena  =  cCadena ;
      SET @cSelect =
      CONCAT( "
      select
      a.id AS c1,
      a.nombre as c2,
      a.habilitado as c3,
      b.id as c4,
      b.id_cliente as c5,
      b.telefono as c6
      FROM tbclientes AS a
      Left join tbdatos as b
      ON b.id_cliente = a.id
      ORDER BY a.nombre DESC ",
      "WHERE ",
      @cCampo,
      " LIKE '%",
      @cCadena, "%'" ) ;
      PREPARE stmt FROM @cSelect ;
      execute stmt ;
      deallocate prepare stmt ;
   END
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Mejorar este codigo...
Posted: Fri Jan 26, 2024 04:52 PM

Gustavo,

Has probado a consultarlo con chatgpt ?

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
Re: Mejorar este codigo...
Posted: Fri Jan 26, 2024 08:43 PM

no, voy a hacerlo.

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
Re: Mejorar este codigo...
Posted: Sat Jan 27, 2024 07:44 AM
goosfancito wrote:no, voy a hacerlo.
Respuesta del GPT
Code (fw): Select all Collapse
BEGIN
    SET @cCampo = cCampo;
    SET @cCadena = cCadena;

    SET @cSelect = CONCAT("
        SELECT
            a.id AS c1,
            a.nombre AS c2,
            a.habilitado AS c3,
            b.id AS c4,
            b.id_cliente AS c5,
            b.telefono AS c6
        FROM tbclientes AS a
        LEFT JOIN tbdatos AS b ON b.id_cliente = a.id
        WHERE ", @cCampo, " LIKE CONCAT('%', ?, '%')
        ORDER BY a.nombre DESC
    ");

    PREPARE stmt FROM @cSelect;
    EXECUTE stmt USING @cCadena;
    DEALLOCATE PREPARE stmt;
END;
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

Continue the discussion