Muestra las diferencias entre dos versiones de la página.
Ambos lados, revisión anterior Revisión previa | Última revisión Ambos lados, revisión siguiente | ||
utilidades:nfl_sqlconnect [21/11/2020 00:08] pedro |
utilidades:nfl_sqlconnect [21/11/2020 19:07] pedro |
||
---|---|---|---|
Línea 7: | Línea 7: | ||
Si se realiza correctamente la conexión esta función nos retornara un objeto [[componentes:wAdoConnect]] que nos permitirá interactuar con la Base de datos, en caso de no poder realizar la conexión retornara Nil. | Si se realiza correctamente la conexión esta función nos retornara un objeto [[componentes:wAdoConnect]] que nos permitirá interactuar con la Base de datos, en caso de no poder realizar la conexión retornara Nil. | ||
+ | |||
+ | <Code:xailer linenums:1> | ||
+ | LOCAL oSQL | ||
+ | LOCAL aConsulta | ||
+ | |||
+ | WITH OBJECT oSQL := nfl_SqlConnect("configdb", xc_SQLite, oCGI:cMainFunction) AS wADOConnect | ||
+ | IF oSQL<>Nil | ||
+ | // Hacemos una consulta SQL | ||
+ | aConsulta := :QueryArrayHash("SELECT BIC, NOMBRE, Codigo FROM bancos") | ||
+ | :Disconnect() | ||
+ | ELSE | ||
+ | Return | ||
+ | ENDIF | ||
+ | END WITH | ||
+ | </Code> | ||
| | ||
===== Parámetros ===== | ===== Parámetros ===== |