Mes: diciembre 2020

A partir de la versión 22 tienes una opción en las propiedades de compilación del Proyecto que permite poner el nombre de las variables dentro de una cadena. Esto es muy util pues clarifica la programación.

Lo configuras en:

Y compara el código antes de la versión 22:

SQLData is Data Source
lcCadena is string

lcCadena = [

   Select SEMANA, [%1] from fechas….

]

IF NOT HExecuteSQLQuery ( SQLData, MiConexion, hQueryWithoutCorrection, StringBuild(lcCadena, year1)) Then
     Error (HErrorInfo())
END

Después de la versión 22:

lcCadena = [

        Select SEMANA, [%year1%] from fechas….
]

IF NOT HExecuteSQLQuery ( SQLData, Miconexion, hQueryWithoutCorrection) Then
    Error (HErrorInfo())
END

Puedes hacerlo con el Driver que te vende Windev o con OLE DB. Aquí te muestro la forma de hacerlo por OLE DB

MiConexion is Connection

// Completa valores generales de la conexión
MiConexion..Server = "MiPC\SQLEXPRESS"
MiConexion..Database = "BasedeDatos1"
MiConexion..Access = hOReadWrite
MiConexion..Provider = hOledbSQLServer
MiConexion..CursorOptions = hClientCursor + hStaticCursor + hReadOnlyCursor

// Conexión con USR y PASS
IF True THEN
       MiConexion..User        = "sa"
       MiConexion..Password    = "xxxxx"
       MiConexion..ExtendedInfo = ""

// Conexión Windows Authentication
ELSE 
       MiConexion..User        = ""
       MiConexion..Password    = ""
       MiConexion..ExtendedInfo = "Trusted_Connection=YES"
END

IF NOT HOpenConnection(MiConexion) THEN
      Error(HErrorInfo())
      EndProgram()
END