32 lines
827 B
Plaintext
32 lines
827 B
Plaintext
SCHEMA decomarmol
|
|
GLOBALS
|
|
DEFINE usuarios,clave CHAR(50)
|
|
DEFINE selec CHAR(200)
|
|
DEFINE p_companias RECORD LIKE companias.*
|
|
END GLOBALS
|
|
MAIN
|
|
DEFER INTERRUPT
|
|
CALL ARG_VAL(1) RETURNING usuarios
|
|
CALL ARG_VAL(2) RETURNING clave
|
|
{ CALL ARG_VAL(3) RETURNING impresor}
|
|
|
|
|
|
CONNECT to "decomarmol" USER usuarios USING clave
|
|
|
|
SELECT a.* INTO p_companias.* FROM companias a
|
|
CALL backup()
|
|
END MAIN
|
|
|
|
FUNCTION backup()
|
|
LET selec="BACKUP DATABASE decomarmol_old ",
|
|
" TO DISK = 'C:\\Users\\luism\\OneDrive\\Documentos\\decomarmol.bak' ",
|
|
"WITH FORMAT, ",
|
|
"MEDIANAME = 'SQLServerBackups', ",
|
|
"NAME = 'Full Backup of decomarmol_old'"
|
|
|
|
PREPARE comando FROM selec
|
|
DECLARE busca_servicios SCROLL CURSOR FOR comando
|
|
OPEN busca_servicios
|
|
|
|
DISPLAY selec
|
|
END FUNCTION |