PowerBuilder un dia a la vez

Ejecutar Consulta desde Servidor Vinculado

2013-07-19T11:02:00.002-05:00

Registramos el servidor vinculado:

EXECUTE sp_addlinkedserver

@server=N'MISERVER', -- Servidor

@srvproduct=N'', -- vacio

@provider=N'SQLNCLI', -- Driver

@datasrc=N'MISERVER', -- Servidor\instancia

@catalog='base_datos';

En caso requiera contraseña:

EXEC sp_addlinkedsrvlogin 'MISERVER','FALSE', NULL,'sa', '123456';

Ejecutamos la consulta:

SELECT * FROM OPENQUERY(MISERVER,'SELECT * FROM tabla');

Corregir vinculo de usuarios SQL Server

2011-12-09T18:51:00.000-05:00

En ocasiones cuando reinstalamos el servidor SQL Server y restauramos la Base de Datos, los datos de la tabla sysusers de la Base de Datos restaurada no esta vinculada correctamente con los datos de la tabla syslogins de la Base de Datos master, para esto debemos de corregir dichos vínculos.

Ejecutamos el siguiente comando:

EXEC sp_change_users_login 'Auto_Fix' , 'usuario' , NULL, 'contraseña'

usuario, es el nombre de usuario a vincular
contraseña, es la contraseña del usuario a vincular

Saber si trigger esta activo o inactivo - SQL Server

2011-09-01T12:13:00.001-05:00

Use mi_basedatos

select cast (name as char(60)) as [Trigger], case when (status & 0x800)= 2048 then 'Inactivo' else 'Activo' end as status

from sysobjects

where type='TR'

Buscar texto en columna de DataWindow

2011-07-25T11:35:00.002-05:00

Para buscar texto en columnas de un DataWindow se utiliza el método Find.

Sintaxis:

long dwcontrol.Find(string expresion,long fila_inicio,long fila_fin)

El método Find retorna los siguientes valores:

• El numero de fila que contiene el texto buscado, caso contrario retorna 0
• En caso de error retorna:

   -1 (Error General),
   -5 (Error al pasar los argumentos)
   NULL (Si uno de los argumentos tiene valor NULL).

Nota: La búsqueda es case sensitive.

Búsqueda en columna tipo texto:

búsqueda en una columna:

long ll_fila
ll_fila=dw_1.find("nom_empleado='Miguel'",1,dw_1.rowcount( ))

búsqueda en dos columnas:

long ll_fila
ll_fila=dw_1.find("nom_empleado='Miguel' and telef_emp='5236521'",1,dw_1.rowcount( ))

Nota: en una columna tipo texto, la expresión a buscar debe ir entre comillas simples.

Búsqueda en columna tipo numérico:

long ll_fila
ll_fila=dw_1.find("sueldo_empleado=1500",1,dw_1.rowcount( ))

búsqueda por rango de valores:

long ll_fila
ll_fila=dw_1.find("sueldo_empleado>=1500 and sueldo_empleado<=2500",1,dw_1.rowcount( ))

Nota: en una columna tipo numérico, la expresión a buscar NO debe ir entre comillas.

Búsqueda en columna tipo fecha:

long ll_fila
ll_fila=dw_1.find("fec_date=datetime('02/04/2011')",1,dw_1.rowcount( ))

Tipos de datos PowerBuilder

2011-07-15T15:26:00.001-05:00

PowerBuilder tiene los siguientes tipos de datos

Tipos de datos estándar

Tipo Dato	Descripción
Blob	Almacena cantidades ilimitadas de datos, por ejemplo, binario genérico, imagen, archivo, etc.
Boolean	Tipo de dato lógico, puede contener dos valores, verdadero o falso.
Char or character	Contiene un carácter ASCII, por ejemplo: char c c=’T’
Date	Contiene datos de fecha, Incluye del año 1000 al 3000. Por ejemplo. 25-12-2010
DateTime	Contiene datos de fecha y hora, por ejemplo. 25-12-2010 10:05:00 PowerBuilder soporta microsegundos.
Decimal or Dec	Numero decimal con un máximo de 18 dígitos, puede colocar el punto decimal dentro de los 18 dígitos. Por ejemplo. 9.25632541254745214 123456789.365987452
Double	Numero con punto flotante, con 15 dígitos de precisión y un rango de 2.2250738585073E-308 a 1.79769313486231E+308
Integer or Int	Entero de 16 bit con signo, con rango de -32768 a +32767
Long	Entero de 32 bit con signo, con rango de -2147483648 a +2147483647
LongLong	Entero de 64 bit con signo, con rango de -9223372036854775808 a 9223372036854775807
Real	Signo con punto flotante con seis dígitos de precisión y un rango de 3.402822E-38 a 3.402822E+38
String	Cadena de caracteres con longitud de 0 a 2147483647
Time	La hora en formato de 24 Horas, horas de 00 a 23, minutos de 00 a 59, segundos de 00 a 59, y la fracción de segundos hasta 6 dígitos, por ejemplo.
UnsignedInteger, UnsignedInt, or UInt	Entero de 16 bit sin signo, con rango de 0 a 65535
UnsignedLong or ULong	Entero de 32 bit sin signo, con rango de 0 a 4294967295

Tipo de Dato Any

El tipo de dato Any puede contener cualquier tipo de valor, incluyendo los tipos de datos estándar, objetos, estructuras y arrays. A este tipo de dato Any se le llama tipo de dato camaleón, porque toma el tipo de dato del valor asignado.

El tipo de dato Any se declare de la misma forma que los tipos de datos estándar.

Cambiar contraseña de inicio de sesión SQL Server

2011-06-27T14:47:00.002-05:00

Para cambiar la contraseña de un inicio de sesión de SQL Server ejecutamos el siguiente procedimiento almacenado sp_password.

Argumentos:
@old : Es la contraseña antigua.
@new: Es la nueva contraseña.
@loginame: Es el nombre de inicio de sesión.

Observaciones:

La contraseña puede contener de 1 a 128 caracteres.
La contraseña se almacena de forma cifrada en el campo password de la tabla sysxlogins de la Base Datos master.

sp_password @old = '123456', @new = 'elmer84', @loginame ='sa'

Si no se especifica el parámetro @loginame se cambia el nombre de sesión con el cual estamos logueado.

Pasar datos de una ventana a otra usando objeto estructura

2011-05-27T17:55:00.001-05:00

Pasar datos de una ventana a otra, se puede realizar de muchas maneras, una de ellas es usando estructura de datos.

Para el ejemplo pasaremos datos de un trabajador de la Ventana 1 a la Ventana 2.

Para ello creamos previamente la estructura a utilizar.

La estructura a crear es st_trabajador, el cual tendrá código, nombre y sueldo mensuales recibidos por el trabajador, el cual se almacenara en el array sueldos_anno.

Objeto Estructura

Ventana 1

Creamos la Ventana 1 y agregamos los siguientes objetos:

sle_codigo
sle_nombre
sle_enero
sle_febrero
sle_marzo
cb_pasar_datos

El diseño quedaría de la siguiente manera:

Ventana 1

En el evento clicked del botón cb_pasar_datos ingresamos el siguiente código:

//Instanciamos estructura st_trabajador

st_trabajador st_trabajador_parametro

//cargamos los datos para las variables de la estructura

st_trabajador_parametro.codigo=sle_codigo.text

st_trabajador_parametro.nombre=sle_nombre.text

//Carga variable array

st_trabajador_parametro.sueldos_anno[1]=dec(sle_enero.text)//Enero

st_trabajador_parametro.sueldos_anno[2]=dec(sle_febrero.text)//Febrero

st_trabajador_parametro.sueldos_anno[3]=dec(sle_marzo.text)//Marzo

//Abrimos Ventana 2 enviando como parametro la estructura

OpenWithParm(w_ventana2,st_trabajador_parametro)

Evento Clicked - cb_pasar_datos

Ventana 2

Creamos la Ventana 2 y agregamos los siguientes objetos:

sle_codigo
sle_nombre
sle_suma_sueldos

Ventana 2

En el evento open de la Ventana 2 ingresamos el siguiente código:

//Instanciamos estructura st_trabajador

st_trabajador lst_trabajador_parametro

/*message.powerobjectparm => almacena la referencia del objeto pasado como parametro.

Usamos message.powerobjectparm porque el parametro pasado es un objeto.*/

//Cargamos el paramatro a la instancia lst_trabajador_parametro

lst_trabajador_parametro=message.powerobjectparm

//Obtenemos los datos

sle_codigo.text=lst_trabajador_parametro.codigo

sle_nombre.text=lst_trabajador_parametro.nombre

//Obtenemos los datos del array

sle_suma_sueldos.text=string lst_trabajador_parametro.sueldos_anno[1] & + lst_trabajador_parametro.sueldos_anno[2] & + lst_trabajador_parametro.sueldos_anno[3],"###,##0.00")

Evento open Ventana 2

Objeto Application

En el evento open del objeto application ingresamos el siguiente código

open(w_ventana1)

Ejecución

Ejecutamos la aplicación.

Ventana 1

Ventana 2

Tutorial PowerBuilder Fundation Class - Parte 3

2011-05-18T17:32:00.001-05:00

Nuestra Primera aplicación en PowerBuilder PFC.

En las siguientes partes de este tutorial de PowerBuilder Fundation Class veremos los pasos para configurar, ejecutar y crear una aplicación usando PFC.

Para poder seguir el tutorial y usar ejemplos prácticos, se desarrollara un pequeño sistema de ventas de artículos, el cual contara con mantenimiento de tablas maestras, cliente, artículos; Generación de comprobante de venta, Boleta o Factura y creación de reportes de ventas. Para ello haremos uso intensivo de los servicios que nos brinda PFC.

Primeros Pasos:

Creamos nuestro Workspace y nuestro objeto Application.
Para efectos del tutorial se creara el Workspace y el objeto Application con el nombre demoventas.
Añadimos las librerías PFC a nuestro target:

PFCAPSRV.PBL

PFCDWSRV.PBL

PFCMAIN.PBL

PFCUTIL.PBL

PFCWNSRV.PBL

PFEAPSRV.PBL

PFEDWSRV.PBL

PFEMAIN.PBL

PFEUTIL.PBL

Objeto de usuario n_cst_appmanager

n_cst_appmanager es el gestor de la aplicación y funciona como sustituto del objeto Application. Este objeto contiene muchas funciones útiles así como referencia a variables para los servicios de aplicación.

n_cst_appmanager entre otras cosas nos permite conectarnos a la Base de Datos y definir los servicios que tendrá nuestra aplicación. Este objeto lo encontramos en la librería PFEAPSRV.PBL, la cual contiene los servicios de Aplicación.

n_cst_appmanager

La clase ancestro de n_cst_appmanager es pfc_ncst_app_manager, en la siguiente imagen se puede apreciar la jerarquía de herencia para la clase n_cst_appmanager.

Instanciando n_cst_appmanager

La mejor manera de hacer uso de la clase n_cst_appmanager es creando un objeto descendiente del mismo, en el cual se agregara el código para personalizar nuestra aplicación.

Para efectos del tutorial usaremos y modificaremos directamente la clase n_cst_appmanager, pero ¡cuidado!, no modificar la clase ancestro pfc_n_cst_appmanager.

Definimos una variable global llamada gnv_app, que se lee Global No Visual Application, esta variable será del tipo n_cst_appmanager.

n_cst_appmanager gnv_app
En el evento Open de nuestro objeto Application instanciamos la clase n_cst_appmanager e invocamos al evento pfc_Open.

gnv_app = CREATE n_cst_appmanager
gnv_app.Event pfc_Open(commandline)
En nuestro objeto Application, en la pestaña General, abrimos la ventana de preferencias Additional Properties y modificamos el valor de SQLCA, por n_tr, y el de Message, por n_msg.

Configurando nuestra aplicación.

Ahora codificamos el objeto n_cst_ appmanager para que se ajuste a nuestro propósito, para ello haremos uso de las variables de instancia e inicializaremos algunos servicios.

En el evento constructor de n_cst_appmanager agregamos el siguiente código.

/*El objeto ContextInformation, provee de informacion referente a la aplicacion que esta ejecutandose

como Numero de Versión, Nombre de la Compania, Nombre del Ejecutable, etc.*/

ContextInformation lcx_Aplicacion

int li_version_mayor,li_version_menor

date ld_ahora

ld_ahora = Today()

/*Obtiene la version*/

GetContextService ( 'ContextInformation', lcx_Aplicacion )

lcx_Aplicacion.GetMajorVersion(li_version_mayor)

lcx_Aplicacion.GetMinorVersion(li_version_menor)

/*Establece el nombre de la aplicación*/

iapp_object.displayname = 'Demo Sistema Ventas - Tutorial PFC'

/*Activa el servicio Microhelp*/

of_SetMicroHelp ( True )

/* Establece el nombre del archivo de ayuda. Poner esto solo si se dispone de la ayuda correspondiente.*/

of_SetHelpFile ( 'ayuda.hlp' )

/* Establece la versión de la aplicacion*/

of_SetVersion ( 'Version ' + String ( li_version_mayor ) + '.' + String ( li_version_menor ) + '.00' )

/* Establece el logo de la aplicacion*/

of_SetLogo ( 'DemoVentas.bmp' )

/* Establece el mensaje de copyright*/

/*Activa el servicio de preferencia de la aplicacion*/

of_SetAppPreference ( True )

If IsValid ( inv_apppref ) Then

inv_apppref.of_SetRestoreApp ( False )

inv_apppref.of_SetRestoreUser ( True )

inv_apppref.of_SetUserKey ( of_GetUserKey ( ) )

End If

/*Establece el nombre del archivo INI*/

of_SetAppIniFile('conexion.ini')

Creamos la ventana principal, el cual será heredado del objeto w_frame, que se encuentra en la librería PFEMAIN.PBL. A esta nueva ventana la llamaremos w_principal_ventas.

Codificamos el evento pfc_open del objeto n_cst_appmanager. En este evento mostraremos una venta splash, y activaremos los servicios de registro de transacciones y de mensajes de error. Seguidamente abriremos la ventana principal de nuestra aplicación.

//Muestra el la ventana Splash

of_Splash(1)

/*Este servicio es util cuando se utiliza más de un objeto de transaccion, al usar el servicio se consigue que al cerrar la aplicacion todos los objetos transaction se cierren y

destruyan*/

of_SetTrRegistration(TRUE)

//Inicia el servicio de mensajes de error.

of_SetError(TRUE)

//Abrimos la ventana principal

Open(w_principal_ventas)

Al invocar la ventana w_principal_ventas, en el evento open invocaremos la función gnv_app.of_logondlg() , la cual mostrara la ventana de Login para ingresar el usuario y contraseña, para conectarnos a la Base de Datos.

En el evento open de la ventana w_principal_ventas ingresamos el siguiente código.

integer li_return

//Invocamos la ventana de Login para la validacion de Ingreso

li_return= gnv_app.of_logondlg()

If li_return=1 Then

SetMicroHelp("Validación de Ingreso Correcta")

Else

messagebox(gnv_app.iapp_object.DisplayName,"Validación de Ingreso Incorrecta", StopSign!)

Close(This)

Return

End If

El código invoca la ventana de Login para el ingreso de las credenciales de conexión, seguidamente al hacer clic en aceptar invoca al evento pfc_logon del objeto n_cst_appmanager.

En el evento pfc_logon del objeto n_cst_appmanager ingresamos el siguiente código.

String ls_inifile

//Recupera el nombre del archivo INI

ls_inifile = gnv_app.of_GetAppIniFile()

//SQLCA.of_Init, inicia los valores registrados en el archivo INI, como el DBMS, SERVERNAME, DATABASE,

If SQLCA.of_Init(ls_inifile, "Login") = -1 Then

This.inv_error.of_message(gnv_app.iapp_object.DisplayName, + &

"Error iniciando los valores de conexión, .INI no encontrado.")

Return -1

Else

//Setea los datos del usuario y contraseña ingresados

SQLCA.of_setlogidandpassword(as_userid,as_password)

If SQLCA.of_Connect() = -1 Then

This.inv_error.of_message(gnv_app.iapp_object.DisplayName, + &

"Error conectando a la Base Datos.", StopSign!, OK!)

Return -1

Else

Return 1

End If

El código obtiene los datos de conexión del archivo INI, y seguidamente realiza la conexión usando las credenciales ingresadas en la ventana de Login.

Llegado a este punto, tenemos nuestra aplicación con su respectiva ventana Login y su ventana principal.

Como se puede observar las librerías PFC nos ahorran mucho trabajo de codificación para construir herramientas de calidad.

Si desea puede descargar las fuentes de la aplicación con lo avanzado hasta el presente tutorial.

Función para encriptar y desencriptar cadena de texto

2011-05-05T18:38:00.000-05:00

Dejo el código para encriptar y desencriptar una cadena de texto.

Para esto creamos dos funciones, una que encripta y otra que desencripta el texto.

Función 1: f_encripta(as_origen)

String vls_char, vls_result

String vls_str1, vls_str2

int j

vls_str1 = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZabcdefghijklmnñopqrstuvwxyz1234567890/"

vls_str2 = "zaq1xsw2cde3vfr4bgt5nhy6mju7ki8lo9ñp0ZAQXSWCDEVFRBGTNHYMJUKILOÑP&"

vls_result = ""

FOR j=1 TO len(a_origen)

vls_char = mid(a_origen,j,1)

vls_result += mid(vls_str2, pos(vls_str1, vls_char), 1)

RETURN vls_result

f_encripta

Función 2: f_des_encripta(a_origen)

String vls_char, vls_result

String vls_str1, vls_str2

int j

vls_str2 = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZabcdefghijklmnñopqrstuvwxyz1234567890/"

vls_str1 = "zaq1xsw2cde3vfr4bgt5nhy6mju7ki8lo9ñp0ZAQXSWCDEVFRBGTNHYMJUKILOÑP&"

vls_result = ""

FOR j=1 TO len(a_origen)

vls_char = mid(a_origen,j,1)

vls_result += mid(vls_str2, pos(vls_str1, vls_char), 1)

RETURN vls_result

f_desencripta

Obtener el espacio usado por tablas, vistas e indices en base de datos SQL Server

2011-04-18T17:08:00.003-05:00

Para visualizar el espacio usado por las tablas,indices y vistas, hacemos uso del procedimiento almacenado sp_spaceused, el cual muestra la cantidad de filas, la cantidad de espacio reservado en KB, el tamaño de datos en KB, el espacio usado por los indices de la tabla en KB y el espacio no utilizado en KB.

Para visualizar el espacio utilizado por la tabla clientes.

EXEC sp_spaceused 'clientes'

Si se omite el parámetro, el procedimiento almacenado muestra el espacio utilizado por la base de datos actual.

EXEC sp_spaceused

Para optimizar el proceso dejo el procedimiento almacenado que lista todas las tablas y vistas.

CREATE PROCEDURE USP_OBTENER_ESTADISTICA_TABLAS

BEGIN

/*===============================*/

/* Estadistica Tablas */

/*===============================*/

DECLARE @SQL AS VARCHAR(255)

DECLARE @TOTAL DECIMAL(18,0)

--Cursor que contiene todos los objetos que ocupan espacio

DECLARE objects_cursor CURSOR LOCAL FAST_FORWARD READ_ONLY FOR

SELECT NAME FROM sysobjects o

WHERE o.xtype = 'U' or

o.xtype = 'V'

--Tabla temporal para albergar los resultados

CREATE TABLE #results

( Nombre SYSNAME,

Filas CHAR(11),

Reservado VARCHAR(18),

Datos VARCHAR(18),

Tamano_Indice VARCHAR(18),

Libre VARCHAR(18)

)

--Recorremos el cursor obteniendo la información de espacio ocupado

DECLARE @object_name AS SYSNAME

OPEN objects_cursor

FETCH NEXT FROM objects_cursor INTO @object_name;

WHILE @@FETCH_STATUS = 0

BEGIN

INSERT INTO #results (Nombre,Filas,Reservado,Datos,Tamano_Indice,Libre)

EXEC sp_spaceused @object_name

FETCH NEXT FROM objects_cursor INTO @object_name;

END

CLOSE objects_cursor;

DEALLOCATE objects_cursor;

-- Quitamos "KB" para poder ordenar

UPDATE #results

SET Reservado = LEFT(Reservado,LEN(Reservado)-3),

Datos = LEFT(Datos,LEN(Datos)-3),

Tamano_Indice = LEFT(Tamano_Indice,LEN(Tamano_Indice)-3),

Libre = LEFT(Libre,LEN(Libre)-3)

--Ordenamos la información por el tamaño ocupado

SELECT

Nombre,

Reservado AS [Tamaño en Disco (KB)],

Datos AS [Datos (KB)],

Tamano_Indice AS [Indices (KB)],

Filas AS Filas_Total

FROM #results

ORDER BY CONVERT(bigint, Reservado) DESC

--Eliminar la tabla temporal

DROP TABLE #results

END

Monitor de procesos SQL Server 2000

2011-03-24T15:08:00.002-05:00

Estuve buscando en la red un Monitor de procesos de SQL Server para poder monitorear los procesos que se ejecutan en mi servidor SQL Server 2000, encontré un software llamado Embarcadero Artisan, el cual tenia la funcionalidad que buscaba, pero desafortunadamente el software era de prueba, así que seguí buscando otra solución pero ninguna satisfacía mis expectativas. Así que decidí crear mi propio Monitor de procesos para mi Base de Datos.

El monitor es bastante simple, tiene las siguientes funcionalidades.

Permite ver todas las conexiones en el servidor de Base de Datos.
Permite visualizar el estado de la conexión; si esta en espera, ejecutando alguna consulta, procedimiento almacenado, etc.
Permite ver los procesos que están generando bloqueos, así como la instrucción SQL que esta ejecutando, y los recursos que bloquea, como, tablas, indice, pagina, etc.
Permite ver los procesos que están en modo espera a que un recurso se libere para continuar con su ejecución.
Permite eliminar un proceso mediante un KILL.
Para aquellos que deseen descargar las fuentes, aquí les dejo el enlace y espero me dejen sus comentarios para ver puntos a mejorar.

Descargar Fuente Monitor SQL Server

Monitor SQL - Lista Procesos

Monitor SQL - Lista Bloqueo

Las fuentes están desarrolladas en PowerBuilder 9.0, y el monitor solo es compatible con SQL Server 2000.

Tutorial PowerBuilder Fundation Class - Parte 2

2011-03-23T11:43:00.007-05:00

Programación orientada a objetos

La programación orientada a objetos se basa en tres principios fundamentales:

Herencia

La herencia hace posible que se pueda crear objetos que deriven de objetos existentes, con acceso a sus componentes visuales, data y código. La herencia mejora la codificación, maximiza la reutilización de código y mejora la consistencia.

Encapsulación

Encapsulación, también llamado ocultación de información. Esto significa que un objeto contiene sus propios datos, permitiendo el acceso desde el exterior, según corresponda. PFC implementa encapsulación de la siguiente manera:

PFC instancias variables como publico o protegido, dependiendo el grado de acceso desde el exterior. El acceso de lectura a estas variables se realiza mediante funciones de objetos, PFC generalmente provee estas funciones como of_GetVariableName().
Para variables de tipo Boolean, PFC provee funciones of_Isvariablename().
Para modificar variables, PFC provee funciones of_Setvariablename().
En ciertos casos, PFC define variables como públicas, en estos casos el acceso es directo.

Polimorfismo

Polimorfismo, son funciones que tienen el mismo nombre pero argumentos diferentes.

Nivel de extensión PFC y PFE

PFC implementa un nivel de extensión en todas su jerarquía de herencia, este nivel de extensión se encuentran en las librerías PFE. Cuando haya una actualización a la última versión de PFC solo se actualizara el nivel ancestro PFC.

Contenido	Nivel Ancestro (PFC)	Nivel Extensión(PFE)
Aplicación y servicios globales.	PFCAPSRV.PBL	PFEAPSRV.PBL
Servicios DataWindow	PFCDWSRV.PBL	PFEDWSRV.PBL
Objetos visuales y objetos estándar de usuario.	PFCMAIN.PBL	PFEMAIN.PBL
Servicios de utilitarios	PFCUTIL.PBL	PFEUTIL.PBL
Servicios de ventana	PFCWNSRV.PBL	PFEWNSRV.PBL

Cualquier modificación de la aplicación PFC se debe realizar en el nivel de extensión. No modifique ningún objeto del nivel ancestro.

Convención de nombres de objetos PFC

PFC usa la siguiente convención de nombres:

Nivel	Nombre
Objetos Ancestro	Usa el prefijo pfc_
Objetos Extensión	Tiene el mismo nombre como su ancestro, pero sin el prefijo pfc_

Por ejemplo, el objeto ancestro para el servicio DataWindow es pfc_n_cst_dwsrv; el objeto descendiente es n_cst_dwsrv.

Obtener la ultima sentencia ejecutada en SQL Server mediante instrucciones DBCC

2011-03-18T15:10:00.005-05:00

¿Que es una instrucción DBCC?

El lenguaje de programación Transact-SQL proporciona instrucciones DBCC que se ejecutan como comandos de consola para Microsoft SQL Server, existe una gran variedad de instrucciones DBCC que sirven para obtener información vital de SQL Server, así como corregir problemas.

DBCC INPUTBUFFER

Para obtener la ultima sentencia ejecutada en SQL Server, hacemos uso de la instrucción DBCC INPUTBUFFER, el cual presenta la ultima instrucción enviada desde un cliente hacia el Servidor SQL Server.

Parámetros

SPID, Id otorgado al cliente cuando realiza una conexión.
WITH NO_INFOMSGS, elimina los mensajes informativos.

Uso:

DBCC INPUTBUFFER(50) WITH NO_INFOMSGS

Tutorial PowerBuilder Fundation Class PFC - Parte 1

2011-03-16T15:43:00.000-05:00

Hoy empezaremos con el tutorial de PowerBuilder Fundation Class, el cual tiene el propósito de ir conociendo esta nueva arquitectura de librerías llamada PowerBuilder Fundation Class que por sus siglas se conoce como PFC.

En cada post se irá tratando temas acerca de estas librerías y sus objetos e ir avanzando gradualmente hasta poder construir aplicaciones basadas en PFC.

Antes que nada revisemos el artículo sobre ¿qué es PFC?.

Ahora que sabemos que es PFC hablemos sobre las librerías y objetos.

PFC esta liberado como una conjunto de librerías PowerBuilder (PBLs). Estas librerías contienen los objetos ancestros y descendientes que podemos usar para construir aplicaciones con PFC.

Librerias PowerBuilder

Antes de usar algún objeto PFC, debemos añadir las librerías PFC a nuestras librerías de aplicación, en nuestro PATH donde estamos trabajando.

Objetos PowerBuilder

Estos son los principales objetos que se usa con PFC:

Objetos	Propósito
Windows	La interfaz entre el usuario y la aplicación PowerBuilder.
Menus	Lista de opciones que se usara para seleccionar o abrir alguna ventana.
Objeto DataWindow	Usado para recuperar, presentar y manipular los datos.
Objetos de Usuario	Componentes reusables que se definen una sola vez y se puede usar muchas veces.

Hay dos tipos de objetos de usuario:

- Objeto de usuario visual
- Objeto de usuario de clase (no visual)

Objeto de usuario visual

Un objeto de usuario visual es un control visual reusable que contiene un comportamiento predefinido. PFC incluye dos tipos de objetos de usuario visual:

Objeto de usuario visual estándar, PFC proporciona un completo conjunto de objetos visuales estándar, estos objetos incluyen comportamientos pre definido y una completa integración con los servicios PFC. Por ejemplo el objeto de usuario visual u_dw es un objeto DataWindow el cual ofrece una extensa funcionalidad e integración con los servicios PFC.
Objeto de usuario visual Personalizado, PFC también utiliza objetos de usuario visual personalizados que contienen un grupo de controles. Estos objetos proporcionan funcionalidades avanzadas para usarlas en situaciones específicas.

Objeto de usuario de clase (no visual)

Estos objetos heredan las definiciones del PowerBuilder NonVisualObject class, estos objetos encapsulan datos y código. Este tipo de objeto de usuario le permite definir un objeto de cero.
PFC usa estos tipo de objetos para implementar muchos de sus servicios.

PowerBuilder Fundation Class - PFC

2011-03-09T15:28:00.001-05:00

Muchos de nosotros que programamos en PowerBuilder y pensamos utilizarlo para desarrollar aplicaciones empresariales, debemos conocer el conjunto de librerías que pone a disposición Sybase para que nuestro desarrollo sea más productivo y eficiente. Estas librerías son conocidas como PowerBuilder Fundation Class (PFC).

Aquel que domine el uso adecuado y eficiente de estas librerías contara con un abanico de características y utilidades para desarrollar aplicaciones de calidad, ya que estas librerías han sido creadas por expertos, usando las técnicas más avanzadas en el uso de objetos.

Pero, ¿qué es PowerBuilder Fundation Class?

El PowerBuilder Fundation Class (PFC), es un conjunto de objetos PowerBuilder que usted puede personalizar y usar para desarrollar bibliotecas de clases.

PFC está escrito en PowerBuilder y entregados como objetos de PowerBuilder con soporte de código PowerScript. Utiliza técnicas avanzadas de codificación orientado a objetos, y asegura que la aplicación utiliza la mínima cantidad de recursos de la computadora.

Las PFC están liberadas como un conjunto de librerías PowerBuilder (PBL). Estas librerías contienen los objetos ancestros (Padre) y los objetos descendientes (Hijo) que se utilizara para escribir una aplicación con PFC. Antes de usar algún objeto PFC se debe copiar las librerías PFC (PBL) a la ruta de nuestra aplicación y agregarle a nuestro Workspace.

La arquitectura interna PFC se basa en dos capas, PFC y PFE, donde cada objeto en la capa PFC tiene un descendiente en la capa PFE. La capa PFC contiene toda la funcionalidad, y la capa PFE es donde podemos escribir nuevo código para ampliar las funcionalidades de un objeto para una necesidad determinada.

A continuación las librerías PFC.

Librería	Contenido
PFCAPSRV.PBL PFEAPSRV.PBL	Administrador de Aplicación, Servicio de objetos Aplicación y otros servicios de objetos globales
PFCDWSRV.PBL PFEDWSRV.PBL	Servicios de DataWindow, objetos de usuario y utilidades de ventana.
PFCMAIN.PBL PFEMAIN.PBL	Objetos visuales estándar, Objetos visuales personalizados.
PFCUTIL.PBL PFEUTIL.PBL	Objetos de utilidades y servicios.
PFCWNSRV.PBL PFEWNSRV.PBL	Servicios de ventana, objetos de usuario y utilidades de ventana

Abrir archivos desde PowerBuilder usando la API de Windows

2011-03-01T18:35:00.006-05:00

Muestro el código usado para abrir cualquier archivo usando la API de Windows.

Para empezar declaramos la función API ShellExecuteA() que se utilizara, esta funcion se declarara en la sección Global External Functions

FUNCTION long ShellExecuteA( ulong hWnd, string Operation, string lpFile, string lpParameters, string lpDirectory, int nShowCmd ) LIBRARY "shell32.dll"

El código para invocar al API es:

Long hwnd

//w_principal viene a ser la ventana padre donde se ejecuta la función.
hwnd = handle(w_principal)

ShellExecuteA(hwnd,"open","c:\archivo_abrir.doc","","c:\",1)

A modo ejemplo se abre el archivo "c:\archivo_abrir.doc"

¿Qué es un DataWindowChild?

2011-02-28T15:52:00.008-05:00

Un DataWindowChild es un DropDownDataWindow en un objeto DataWindow. Un DropDownDataWindow se comporta como un objeto Child (hijo) del DataWindow que lo contiene.

Los DataWindowChild son útiles por ejemplo para mostrar información de tablas maestras en forma de listado ó filtrar información de un campo.

¿Cómo se crea un DataWindowChild?

Veamos un ejemplo.

Se tiene un campo cod_area, el cual al seleccionar muestra un listado de todas las áreas de una empresa.

En la imagen tenemos los datos de la tabla maestra que almacena las Areas.

Listado Tabla Area

Se crea el objeto DataWindow que será vinculado como Child y mostrará el listado de Areas. Este objeto se crea según los datos de la tabla maestra Area. En este DataWindow solo debe mostrarse los campos que se desea visualizar. Guardamos el objeto con el nombre d_area.

Objeto DataWindow que se vinculara como Child

Seleccionamos el campo cod_area en el cual se creara el vinculo y nos desplazamos a la pestaña Edit de la ventana de propiedades, en la opción Style Type seleccionamos la opción DropDownDW, en la misma pestaña nos desplazamos hacia abajo y buscamos la opción DataWindow, hacemos clic y seleccionamos el DataWindow creado en el paso 2. En la opción Display Column seleccionamos el campo des_area que viene a ser el nombre, en la opción Data Column seleccionamos el campo cod_area que es el código del area seleccionada.

Objeto DataWindow que contiene el Child

El listado final del campo cod_area seria como la imagen siguiente.

Vista Final

DataWindow no visual, DataStore

2011-02-24T17:02:00.002-05:00

El DataStore es un control DataWindow no visual, las ventaja principal de usar un DataStore frente a un DataWindow es que consume menos recursos, por ende es mas eficiente en recuperar datos.

La manipulación de un DataStore es similar a un DataWindow. En el siguiente ejemplo dejo el código para declarar y recuperar datos usando un DataStore.

DataStore ds_prueba //Declara variable del tipo DataStore

ds_prueba=Create DataStore //Se Instancia la variable

ds_prueba.DataObject="dw_authors" //Se establece el objeto DataWindow

ds_prueba.SetTransObject(SQLCA) //Se conecta a la BD

ds_prueba.Retrieve() //Recupera la información

Nota: el DataObject siempre se establece antes de conectar el DataStore a la Base de Datos.

Articulos de apoyo:
Conexión a SQL Server
Conexion a SQL Server mediante OLE DB
Conexion a MySQL

¿Dudas?, ¿Comentarios?.

Crear columna de IDENTIDAD usando función IDENTITY en SQL Server

2011-02-24T14:45:00.003-05:00

En SQL Server existe una función llamada IDENTITY, la cual permite crear una columna de identidad en una nueva tabla.

Esta función se utiliza en instrucciones SELECT INTO.

Otro punto importante es que esta función es distinta a la propiedad IDENTITY que se utiliza con la sentencia CREATE TABLE y ALTER TABLE.

SELECT nombre,

apellido,

IDENTITY(INTEGER,100,1) AS Id_emp

INTO empleado_2

FROM empleado

En el código anterior se crea una nueva tabla llamada empleado_2, y se crea la columna Id_emp el cual es un campo IDENTITY el cual su indice iniciara del numero 100 y se incrementara en 1.

Nota: Esta función IDENTITY no admite pasar valores mediante variables.

Validar campos de un Datawindow usando propiedad “required”

2011-02-23T16:18:00.002-05:00

El objeto DataWindow cuenta con un método llamado FindRequired() el cual devuelve aquellas columnas que han sido marcadas como "requeridas", y contienen valores Null.

Antes, especificamos los campos que seran validados con sus respectivos mensajes, para eso entramos en modo diseño en el DataWindow.

Seleccionamos el campo a validar, luego seleccionamos la propiedad required que se encuentra en la pestaña Edit

Nos desplazamos en la lista de de columnas y escribimos el mensaje que deseamos que se muestre en el mensaje de validación.

Ahora si, estamos listos para escribir el código de validación.

long        ll_row //Almacena la fila en donde se encuentra el campo con valor null.
integer     li_columna //Almacena el numero de columna con valor null.
string      ls_colname //Almacena el nombre de la columna con valor null.
string      ls_columna //Almacena el mensaje de validación de la columna.

dw_1.AcceptText()

ll_row=1

li_columna = 0

dw_1.FindRequired(Primary!,ll_row, li_columna,ls_colname, True)

IF ll_row <> 0 THEN

dw_1.SetColumn(li_columna)

dw_1.ScrollToRow(ll_row)

//Obtenemos el mensaje de validación obtenido.

ls_columna= dw_1.describe(ls_colname+'.ValidationMsg')

//Quitamos las comillas del mensaje de validación.

ls_columna=left(ls_columna,len(ls_columna)-1)

ls_columna=mid(ls_columna,2,len(ls_columna))

dw_1.SetFocus()

//Mostramos el mensaje de validación.

messagebox("Verifique",ls_columna,Exclamation!)

END IF

¿Dudas?, ¿Comentarios?.

Filtrar datos de columna en DataWindow

2011-02-22T12:36:00.003-05:00

El DataWindow cuenta con los métodos SetFilter() y Filter() para realizar filtros según el criterio que le indiquemos.

En el ejemplo realizamos diversos tipos de filtrado:

//Filtro por rango de fecha.

dw_1.SetFilter("FechaNac>=datetime('01/01/1988') AND FechaNac<=datetime('01/01/1990')")

dw_1.Filter()

// Filtro por campo único

dw_1.SetFilter("Cod_empleado='PMA42628M'")

dw_1.Filter()

//Filtro según modelo usando caracteres comodín

dw_1.SetFilter("(Nombre like '%maria%') and (Apellido like '%rodriguez%')")

dw_1.Filter()

//Filtro por rango de número

dw_1.SetFilter("Edad >20 and Edad<=30")

dw_1.Filter()

El método SetFilter() establece los criterios de filtrado.

El método Filter() ejecuta el filtro según los criterios establecidos.

¿Dudas?, ¿Comentarios?.

Ejecutar Procedimiento Almacenado en PowerBuilder

2011-02-16T12:35:00.002-05:00

En el ejemplo mostrare como ejecutar un Procedimiento Almacenado de SQL Server desde PowerBuilder.

Mostraremos tres escenarios distintos:

1. Cuando el Procedimientos Almacenado devuelve uno o más parámetros de salida también llamado parámetro OUTPUT.

2. Cuando devuelve un conjunto de resultados producto de una sentencia select.

3. El tercero y más simple, cuando el Procedimiento Almacenado no tiene parámetro alguno.

Escenario 1: Cuando el Procedimiento Almacenado devuelve valor mediante variables OUTPUT.

Primero definimos el código del Procedimiento Almacenado, el cual su función es devolver el producto de la multiplicación del valor de parámetro1 y el valor de PI que es 3.1416.

Ojo, devemos definir el parametro de retorno como OUTPUT

CREATE PROCEDURE usp_escenario1 @parametro1 INTEGER,@parametro2 DECIMAL(18,2) OUTPUT

BEGIN

SET @parametro2=@parametro1 * 3.1416

END

En la cuadro siguiente el código de PowerBuilder usado.

Integer Valor

Decimal Resultado

Valor=10

//Considerar que las variables que se pasen deben ser del mismo tipo

//definido en el procedimiento almacenado

DECLARE sp_procedure PROCEDURE FOR usp_escenario1

@parametro1 = :Valor,

@parametro2 = :Resultado OUTPUT; //Ojo definir el parametro2 como OUTPUT.

EXECUTE sp_procedure; //Ejecutamos con el nombre del Alias

FETCH sp_procedure INTO :Resultado; //Recuperamos el resultado

CLOSE sp_procedure;

messagebox("",Resultado)

Escenario 2 y Escenario 3: Cuando devuelve un conjunto de resultados producto de una sentencia select y cuando el procedimiento no tiene parámetros, como diría mi abuela aquí matamos dos pájaros de un tiro, abordando los dos últimos escenarios restantes.

Para una mejor manipulación de los resultados devueltos por un Procedimiento Almacenado es aconsejable realizarlo mediante un DataWindow, pero eso será tema de otro artículo.

Definimos el código del Procedimiento Almacenado, el cual no pasamos ningún parámetro simplemente ejecutamos el procedimiento y recuperamos el conjunto de resultados.

CREATE PROCEDURE usp_escenario2_3

BEGIN

CREATE TABLE #cliente

(

codigo int,

nombre varchar(15)

)

INSERT INTO #cliente VALUES(1,'PEPE')

INSERT INTO #cliente VALUES(2,'JUAN')

INSERT INTO #cliente VALUES(3,'MARIA')

SELECT codigo,nombre FROM #cliente

END

En la cuadro siguiente el código de PowerBuilder usado.

Integer codigo

String nombre

//Considerar que las variables que se pasen deben ser del mismo tipo definido en

//el procedimiento almacenado

DECLARE sp_procedure PROCEDURE FOR usp_escenario2_3;

EXECUTE sp_procedure; //Ejecutamos con el nombre del Alias

FETCH sp_procedure INTO :codigo,:nombre; //Recuperamos el resultado

DO WHILE sqlca.sqlcode = 0

Messagebox("Resultado",string(codigo)+" " +nombre)

FETCH sp_procedure INTO :codigo,:nombre;

LOOP

CLOSE sp_procedure;

Articulos de apoyo:
Conexión a SQL Server
Conexion a SQL Server mediante OLE DB

¿Por qué y para qué es bueno PowerBuilder?

2011-02-12T13:33:00.000-05:00

PowerBuilder

En algún momento nos hemos hecho la misma pregunta, ¿Que es PowerBuilder?, ¿Para que sirve PowerBuilder?, o también, ¿Es bueno PowerBuilder?, pero antes de nada un poco de historia.

PowerBuilder fue desarrollado hace ya muchos años atrás, en los años 1991 bajo el mando de la compañía PowerSoft lanzando la versión 1.0, la versión 2.0 fue lanzada en 1992, en esta versión PowerBuilder incluye la herencia y encapsulación, haciendo de PowerBuilder un lenguaje netamente orientado a objetos. En 1995 PowerSoft fue adquirida por la compañía Sybase, lanzando las versiones sucesoras.

PowerBuilder es una herramienta empresarial, para arquitecturas cliente/servidor , distribuida y web, orientado completamente a objetos, adicionalmente PowerBuilder posee un objeto nativo para la gestión y manipulación de datos llamado DataWindow el cual nos permite Insertar, Actualizar, Eliminar datos, adicionalmente nos permite visualizar los datos en múltiples formatos y vistas según la necesidad.

El objeto DataWindow se ha convertido en la piedra angular de PowerBuilder, hace que el trabajo con datos sea realmente sencillo, donde el programador con pocas líneas de código pueda tener una interfaz de usuario con validación y actualización de datos en minutos, haciendo más productivo la etapa de desarrollo.

Desde mi punto de vista PowerBuilder es por excelencia el mejor Lenguaje de Programación para desarrollar herramientas y sistemas empresariales para la gestión de datos, este es quizá su punto fuerte y donde mejor se desempeña.

He leído en la página de Sybase donde indica que PowerBuilder es un lenguaje de programación de propósito general, pero a mi modo de ver no es así, PowerBuilder no es recomendable para desarrollar aplicaciones de uso general, donde PoweBuilder es experto e idóneo, y como ya lo mencione es en la Gestión de Datos, es ahí donde PowerBuilder es la mejor elección.

Mostrar cuadro de dialogo "Abrir" para seleccionar un archivo

2011-02-11T18:49:00.002-05:00

Aquí dejo un ejemplo de cómo utilizar el cuadro de dialogo Abrir para seleccionar un archivo de nuestro ordenador y guadar la ruta y el nombre del archivo en una variable.

String ls_ruta, ls_file

GetFileOpenName('Elegir Archivo',ls_ruta, ls_file,"XLS","Texto (*.txt),*.txt,Excel (*.xls),*.xls")

/*
- El primer parámetro indicamos el titulo que tendrá el cuadro de dialogo
- El segundo parámetro, si seleccionas un solo archivo guarda la ruta completa del archivo

Ejm: "C:\imagenes\miarchivo.jpg"

Si, seleccionase más de un archivo, guarda la ruta del directorio donde se encuentra el archivo seleccionado.

Ejm: "C:\imagenes"
- El tercer parámetro Almacena el nombre del archivo
- El cuarto parámetro es opcional, indicamos el tipo de archivo por defecto definidos en el filtro.
- El quinto parámetro es opcional, ahi indicamos el filtro para que se muestre determinados archivos

if ls_ruta = '' OR IsNull(ls_ruta) then return
//Valida que exista el archivo
if FileExists(ls_ruta)=false then
messagebox("Verifique","El archivo no existe")
return
end if

Conectar PowerBuilder con Base de Datos MySQL 5.x

2011-02-09T11:21:00.002-05:00

PowerBuilder puede trabajar de manera excelente con MySQL, la conexión se realiza mediante conexión ODBC usando el driver que el mismo MySQL pone a disposición y que lo pueden descargar en este enlace http://www.mysql.com/downloads/connector/odbc/ . La conexión se realizara sin necesidad de crear ningún DSN, si no de manera directa.

Para el ejemplo nos conectaremos a la base de datos mysql.

Este ejemplo considera que se tiene acceso al servidor MySQL así como a la base de datos mysql.

SQLCA.dbms="ODBC"

SQLCA.dbparm="ConnectString='DRIVER={MySQL ODBC 5.1 Driver}; SERVER=localhost;PORT=3306;DATABASE=mysql;UID=usuario;PWD=contrasena;

OPTION=135168;DisableBind=1;'"

connect using SQLCA;

Nota:

En la sección "DRIVER={}" la conexión puede variar según la versión del driver que descarguemos de la página de MySQL, para el ejemplo se descargo el driver mysql-connector-odbc-5.1.6-win32
Los parámetros usados SERVER,PORT, DATABASE,UID,PWD puede variar según la configuración actual de su servidor.