TDolphin for [x]Harbour

Procedimientos Almacenados / stored Procedures

2011-05-02T19:38:00.000-07:00

Creamos el procedimiento almacenado desde el cliente mysql de nuestra preferencia

DELIMITER $
DROP PROCEDURE IF EXISTS born_in_year;
CREATE PROCEDURE born_in_year( year_of_birth INT )
BEGIN
SELECT first_name, last_name, birth, death from president where year( birth ) = year_of_birth;
END $
DELIMITER ;

para ejecutarlo simplemento lo hacenmos pro medio de un query

cText = "CALL born_in_year( 1908 )"
oQry := oServer:Query( cText )

el siguiente llamdo es importante para "terminar" el proceso
oServer:NextResult()

veammos el ejemplo completo

#include "tdolphin.ch"

#define CRLF Chr( 13 ) + Chr( 10 )

PROCEDURE Main()

LOCAL cText := ""
LOCAL oQry, oServer

SET CENTURY ON
SET DATE FORMAT "dd/mm/yyyy"

D_SetCaseSensitive( .T. )

IF ( oServer := ConnectTo() ) == NIL
RETURN NIL
ENDIF
cls

cText = "CALL born_in_year( 1908 )"

oQry := oServer:Query( cText )

DolphinBrw( oQry, "Test" )

oServer:NextResult()

oQry:End()

cText = "CALL born_in_year( 1913 )"

oQry := oServer:Query( cText )

DolphinBrw( oQry, "Test" )

oServer:NextResult()

oQry:End()

cText = "call count_born_in_year( 1913, @count )"

oQry := oServer:Execute( cText )

oServer:NextResult()

oQry := oServer:Query( "select @count as count" )

? "count is:"
?? oQry:count

oQry:End()

RETURN

esto verifica que no exista otro query con resultado (por motivos de posibles multiples sentencias en los precedimeintos) y cierra el ciclo de existir otro query con resultado deberiamos hacer lo siguiente

oQry:LoadNextQuery( )

asi cargamnos automaticamente el proximo resultado de un query para multi sentencias

ejemplo de multiples sentencias

#include "tdolphin.ch"

FUNCTION Main()

LOCAL oServer, oQry

D_SetCaseSensitive( .T. )
Set_MyLang( "esp" )

IF ( oServer := ConnectTo() ) == NIL
RETURN NIL
ENDIF

oQry = oServer:Query( "select * from president; select * from student" )

DolphinBrw( oQry, "President" )

oQry:LoadNextQuery( )

DolphinBrw( oQry, "Student" )

oQry = NIL

oServer:End()

RETURN NIL

#include "connto.prg"
#include "brw.prg"

Integracion

2011-05-02T16:07:00.000-07:00

Dolphin se ha integrado al proyecto GTXBase, Herraminetas Libres para Gente Libre

Con la iniciativa de Rafa Carmona (thefull), Riztan Gutierrez y Daniel Garcia-Gil (yo), el fuerte del proyecto es T-GTK, excelente GUI multiplataforma basado en GTK

http://www.gtxbase.org/forums/index.php

podran ver el codigo fuente enteramente en http://www.gtxbase.org/devel/

Dolphin tiene su espacio en el foro donde podran hacer sus preguntas y sugerencias

http://www.gtxbase.org/forums/viewforum.php?f=7

Dolphin was integrated to GTXBase project, FREE Tools to FREE Peoples.

With the initial idea from Rafa Carmona (thefull), Riztan Gutierrez and Daniel Garcia-Gil (me), the "hard" point in the project is T-GTK, excelent Multiplataform GUI based in GTK libraries

http://www.gtxbase.org/forums/index.php

all source code is available in http://www.gtxbase.org/devel/

Dolphin has your space in http://www.gtxbase.org/forums/viewforum.php?f=7

Aprendamos MYSQL

2011-03-16T06:08:00.000-07:00

No les hablare de historia o antecedentes sobre la evolucion de MySQL, ire directo al grano al asunto que nos importa... Aprender MySQL

En el mundo de bases de datos, MySQL se califica como un sistema de gestión de bases de datos relacional (SGBDR), adentrando un poco más en estas siglas tenemos que MySQL es el sofware que nos perimte utilizar los datos de la Base, insertado, modificando, recuperando y eliminando, haciendolo de forma relacional, es decir, encontrando coincidencias de información almacenada en una tabla en otras, por medio de elementos comunes en cada una de ellas. La potencia de lo relacional, radica en su capacidad de extraer datos de estas tablas de forma apropiada y unir la información de las tablas relacionadas para producir respuestas a preguntas que no podrían responderse mediante una tabla individual.

Para comunicarnos con MySQL utilizamos un lenguaje llamado SQL ( lenguaje estructurado de consulta, en ingles Structured Query Language ), el cual intentaré explicar sus sentencias en futuros post en el blog.

Al usar MySQL estamos usando en realidad dos programas, qye que MySQL opera utilizando un arquitectura de tipo cliente/servidor:

El programa servidor, se ejecuta en la computadora donse se almacenan las bases de datos, está a la espera de las peticiones de los clientes a través ed la red para acceder al contenido de las tablas.
El programa cliente, se conecta con el servidor de la base de datos y genera consultas (Query) para generar la acción requerida

Para continuar deberemos tener instalado:

Sofware de MySQL : http://www.mysql.com/downloads/mysql/
Una cuenta MySQL que le permitra conectar con el servidor
Una Base de datos para trabajar... http://www.sitasoft.net/dolphin/files/sampdb.zip

Seguridad en MySql / Security in MySql

2011-02-06T02:54:00.000-08:00

Existen 2 tipos de riesgos que debemos tener en consideracion en Mysql
1- Riesgos procedentes de otros usuarios con cuenta de acceso al host del servidor y llamaremos seguridad interna

2- Riesgos procedentes de clientes que conectan al servidor a travez de la red y llamaremos seguridad externa.

SEGURIDAD INTERNA:
Independientemente del sistema operativo en que este instalado el servidor donde montemos el host MySql, los archivos copiados despues de la instalacion deberan estar protegidos.
No debemos permitir acceso a las carpetas locales creadas por la instalacion de MySql y algunas de estas deberan estar bien protegidas, por ejemplo los archivos binarios y mas aun los archivos de registro, ya que contienen el texto de las sentencias que envian los clientes al servidor, esto tiene relacion con cualquiera que tenga acceso a los archivos de registro podra monitorizar los cambios en el contenido de la base de datos. Un aspecto mas especifico relacionado con los archivos de registro es las sentencias tales como GRANT y SET PASSWORD, tambien quedan registradas

SEGURIDAD EXTERNA:
El sistema de seguridad de MySql es bastante flexible. Nos permite configurar los privilegios de acceso de los usuarios de varias formas diferentes. Normalmente lo haremos utilizando las sentencias GRANT y REVOKE, las cuales modifican las tablas de autorizaciones que controlan el acceso de los clientes.
Las sentencias GRANT y REVOKE proporcionan un metodo adecuado para configurar cuentas de usuario en MySql y asociarles privilegios, pero son solo un ainterfaz. Todas las acciones reales tienen lugar en las tablas de autorizaciones de Mysql.
Para mas detalle sobre las tablas de autorizacion pueden consultar http://dev.mysql.com/doc/refman/5.0/en/grant-table-structure.html

Feliz Navidad / Merry Christmas

2010-12-24T15:41:00.000-08:00

Quiero agradecer a todos los seguidores inscritos (y los que no) la confianza brindada, espero que el proximo año les depare los mejores momentos

I want to thank all followers attached (and those who have not) i hope the next year will send you the best moment

Actuazalicion / Update

2010-12-13T08:46:00.000-08:00

Agregado metodo GetServerInfo.

Retorna Una cadena de caracteres que representa el número de versión del servidor

Agregado metodo GetClientInfo

Una cadena de caracteres que representa la versión de la biblioteca de cliente MySQL

Added Method GetServerInfo()

Returns a string that represents the server version number

Added Method GetClientInfo

Return a string that represents the MySQL client library version

Dentro de GUI / Inside GUI

2010-12-11T14:06:00.000-08:00

TDolphin ha ido subiendo escalones poco a poco, se ha aceptado en 2 GUIs diferentes, Fivewin y T-GTK
TDolphin steps has been rising gradually, has been accepted into 2 different GUIs, Fivewin and T-GTK

Fivewin: http://forums.fivetechsupport.com/viewtopic.php?f=16&t=19450&p=102455&hilit=tdolphin#p102455
* New: Support for TDolphin classes to manager Mysql, review samples/testdol.prg

T-GTK:
Para quienes desarrollan bajo Windows, ya disponible nuevo instalador estilo suite que contiene: MinGW, Harbour 2.1, GTK+, Glade, gEdit, t-gtk y TDolphin!!!

Gracias por el apoyo / Thanks for support

Construir LIB-Ejemplos / Build LIB - Samples

2010-11-15T04:13:00.000-08:00

Saludos

He debido haber escrito este post desde hace un tiempo atras, existe una nueva forma de construir la LIB y los ejemplos
I should write this post long time ago, exist new way to build LIB and samples

LIB
hay que configurar configurar las variables del entorno de trabajo
config the enviroment...

PRG_COMPILER=HARBOUR
PRG_COMP_PATH=\harbour
PRG_COMP_BIN_PATH=%PRG_COMP_PATH%\bin
PRG_COMP_LIB_PATH=%PRG_COMP_PATH%\lib\win\bcc
PRG_COMP_INC_PATH=%PRG_COMP_PATH%\include
C_COMPILER=BCC
C_COMP_PATH=c:\bcc582
C_COMP_BIN_PATH=%C_COMP_PATH%\bin
C_COMP_LIB_PATH=%C_COMP_PATH%\lib;%C_COMP_PATH%\lib\psdk
C_COMP_INC_PATH=%C_COMP_PATH%\include
DOLPHIN_INC=.\include

PRG_COMPILER
nombre del compilador PRG
PRG compiler name
Valores / Values

HARBOUR
XHARBOUR

PRG_COMP_PATH

Ruta principal de acceso al compilador PRG

Root path PRG compiler

PRG_COMP_BIN_PATH

Ruta de harbour.exe

Path of harbour.exe

PRG_COMP_LIB_PATH

Ruta de las librerias del compilador PRG

Path of PRG compiler Libraries

PRG_COMP_INC_PATH

Ruta de los archivos de cabecera del compilador PRG

Path of PRG compiler header files

C_COMPILER

nombre del compilador de C

C compiler name

Valores / Values

BCC for borland
MINGW32 for mingw
MSVC32 for Microsoft 32 bit
MSVC64 for Microsoft 64 bit

C_COMP_PATH

Ruta principal de acceso al compilador C

Root path C compiler

C_COMP_BIN_PATH

Ruta de compiler_executable

Path of compiler_executable

C_COMP_LIB_PATH

Ruta de las librerias del compilador C

Path of C compiler Libraries

C_COMP_INC_PATH

Ruta de los archivos de cabecera del compilador C

Path of C compiler header files

Existen varios script (.bat) para facilitar la configuracion del entorno
There are some batch file to make easy the enviroment config

setenvh.bat, Harbour/Borland
setenvhg.bat, Harbour/MiniGW
setenvhm.bat, Harbour/Microsoft 32
setenv64.bat, Harbour/Microsft 64
setenvx.bat, xHarbour/Borland
setenvxg.bat, xHarbour/MiniGW
setenvxm.bat, xHarbour/Microsoft 32

despues de configurar el entorno ejecutar win-make.exe
after config the enviroment run win-make.exe

remark:
los script ejecutan automaticamente win-make.exe
the bath file run automatically win-make.exe

SAMPLES
Dentro de la carpeta Samples existen 2 scrip principales para construir los ejemplos
Inside samples folder there are 2 batch file to build samples

bldcon.bat
Construye los ejemplos en modo consola
Build samples in console mode

Parametros / Parameters

bldcon prgfile [yes/[no]]
prgfile nombre del archivo prg sin la extencion PRG
[yes/[no]] uso del modo embebido, por omision es no

prgfile prg name without PRG ext

[yes/[no]] activate embedded, default values is no

bldfw.bat

Construye los ejemplos en modo grafico usando Fivewin

Build samples in console mode with Fivewin

Parametros / Parameters

bldfw prgfile [yes/[no]]

prgfile nombre del archivo prg sin la extencion PRG

[yes/[no]] uso del modo embebido, por omision es no

prgfile prg name without PRG ext

[yes/[no]] activate embedded, default values is no

BLOB-TEXT

2010-09-30T13:55:00.000-07:00

Un BLOB es un objeto binario que puede tratar una cantidad de datos variables. Los cuatro tipos BLOB sonTINYBLOB, BLOB, MEDIUMBLOB, y LONGBLOB. Difieren sólo en la longitud máxima de los valores que pueden tratar.

Los cuatro tipos TEXT son TINYTEXT, TEXT, MEDIUMTEXT, y LONGTEXT. Se corresponden a los cuatro tipos BLOB y tienen las mismas longitudes y requerimientos de almacenamiento, segun se muestra en la siguiente tabla

Tipo de columna	Almacenamiento requerido
`CHAR(M)`	`M` bytes, 0 `<= M <=` 255
`VARCHAR(M)`	`L`+1 bytes, donde `L <= M` y 0 `<= M <=` 255
`BINARY(M)`	`M` bytes, 0 `<= M <=` 255
`VARBINARY(M)`	`L`+1 bytes, donde `L <= M` y 0 `<= M <=` 255
`TINYBLOB`, `TINYTEXT`	`L`+1 byte, donde `L` < 2^8
`BLOB`, `TEXT`	`L`+2 bytes, donde `L` < 2^16
`MEDIUMBLOB`, `MEDIUMTEXT`	`L`+3 bytes, donde `L` < 2^24
`LONGBLOB`, `LONGTEXT`	`L`+4 bytes, donde `L` < 2^32

Los tipos VARCHAR y BLOB y TEXT son de longitud variable. Para cada uno, los requerimientos de almacenamiento depende de la longitud de los valores de la (representados por L en la tabla precedente), en lugar que el tamaño máximo del tipo. Por ejemplo, una columna VARCHAR(10) puede tratar una cadena con una lengitud máxima de 10. El almacenamiento requerido real es la longitud de la cadena (L), más 1 byte para registrar la longitud de la cadena. Para la cadena 'abcd', L es 4 y el requerimiento de almacenamiento son 5 bytes.

Para los tipos CHAR, VARCHAR, y TEXT, los valores L y M en la tabla precedente debe interpretarse como números de caracteres en MySQL 5.0, y las longitudes para estos tipos en las especificaciones de la colmna indican el número de caracteres. Por ejemplo, para almacenar un valor TINYTEXT necesita L caracteres + 1 byte.

El motor NDBCLUSTER soporta sólo columnas de longitud fija. Esto significa que una columnaVARCHAR de una tabla en MySQL Cluster se comportará casi como si fuera de tipo CHAR (excepto que cada registro todavía tiene un byte extra). Por ejemplo, en una tabla Cluster, cada registro en una columna declarada como VARCHAR(100) necesitará 101 bytes para almacenamiento, sin tener en cuenta la longitud de la columna almacenada en cualquier registro.

Los tipos BLOB y TEXT requieren 1, 2, 3, o 4 bytes para almacenar la longitud de la columna, dependiendo de la longitud máxima posible del tipo.

Las columnas TEXT y BLOB se implementan de forma distinta en el motor de almacenamiento NDBCLUSTER , donde cada registro en una columna TEXT se compone de dos partes separadas. Una de estas es de longitud fija (256 bytes), y se almacena realmente en la tabla original. La otra consiste de cualquier dato de más de 256 bytes, que se almacena en una tabla oculta. Los registros en esta segunda tabla siempre tienen una longitud de 2,000 bytes . Esto significa que el tamaño de una columna TEXT es 256 si size <= 256 (donde size representa el tamaño del registro); de otro modo, el tamaño es 256 + size + (2000 - (size - 256) % 2000).

Las columnas BLOB se tratan como cadenas de caracteres binarias (de bytes). Las columnas TEXT se tratan como cadenas de caracteres no binarias (de carácateres). Las columnas BLOB no tienen conjunto de caracteres, y la ordenación y la comparación se basan en los valores numéricos de los bytes. Las columnas TEXT tienen un conjunto de caracteres y se ordenan y comparan en base de la colación del conjunto de caracteres asignada a la columna

No hay conversión de mayúsculas/minúsculas para columnas TEXT o BLOB durante el almacenamiento o la recuperación.

Si asiguna un valor a una columna BLOB o TEXT que exceda la longitud máxima del tipo de la columna, el valor se trunca. Si los caracteres truncados no son espacios, aparece una advertencia. Puede hacer que aparezca un error en lugar de una advertencia usando el modo SQL estricto.

En la mayoría de aspectos, puede tratar una columna BLOB como VARBINARY que puede ser tan grande como desee. Similarmente, puede tratar columnas TEXT como VARCHAR. BLOB y TEXT difieren de VARBINARY y VARCHARen los siguientes aspectos::

No se eliminan espacios al final para columnas BLOB y TEXT cuando los valores se almacenan o recuperan.

Tenga en cuenta que TEXT realiza comparación espacial extendida para coincidir con el objeto comparado, exactamente como CHAR y VARCHAR.

Para índices en columnas BLOB y TEXT, debe especificar una longitud de prefijo para el índice. Para CHAR yVARCHAR, la longitud de prefijo es opciona.

BLOB y TEXT no pueden tener valores DEFAULT .

Obtener informacion de los indices de la tabla / Get index information from table

2010-09-23T10:29:00.000-07:00

Para obtener la informacuion detallada de los indices de una tabla, puedes ejecutar el siguiente "query"
For detailed information indexes created on table, you can execute following Query:

SHOW INDEX FROM table_name;

Descripcion de los campos ( Tomados del sitio oficial de MySql)

Description of fields (help taken from Mysql website):

http://dev.mysql.com/doc/refman/5.0/es/show-index.html

se veria algo asi/Look some like that

Table
Nombre de la Tabla

The name of the table.

Non_unique
0 si el índice no puede contener duplicados, 1 si puede. /

0 if the index cannot contain duplicates, 1 if it can.

Key_name
Nombre del Indice

The name of the index.

Seq_in_index
Número de secuencia de columna en el índice, comenzando con 1. /

The column sequence number in the index, starting with 1.

Column_name
Nombre de columna /

The column name.

Collation
Cómo se ordena la columna en el índice. En MySQL, puede tener valores 'A' (Ascendente) o NULL (No ordenado). /

How the column is sorted in the index. In MySQL, this can have values “A” (Ascending) or NULL (Not sorted).

Cardinality
Número de valores únicos en el índice. Se actualiza ejecutando ANALYZE TABLE o myisamchk -a. Cardinalityse cuenta basándose en las estadísticas almacenadas como enteros, así que no es necesariamente precisa para tablas pequeñas. Mientras más grande sea, más grande es la probabilidad que MySQL use el índice al hacer joins.

An estimate of the number of unique values in the index. This is updated by running ANALYZE TABLE or myisamchk -a. Cardinality is counted based on statistics stored as integers, so the value is not necessarily exact even for small tables. The higher the cardinality, the greater the chance that MySQL uses the index when doing joins.
Sub_part
Número de caracteres indexados si la columna sólo está indexada parcialmente. NULL si la columna entera está indexada/

The number of indexed characters if the column is only partly indexed, NULL if the entire column is indexed.

Packed
Indica cómo está empaquetada la clave. NULL si no lo está.

Indicates how the key is packed. NULL if it is not.

Null

Contiene YES si la columna puede contener NULL. Si no, la columna contiene NO/
Contains YES if the column may contain NULL values and ” if not.

Index_type
Método de índice usado (BTREE, FULLTEXT, HASH, RTREE).

The index method used (BTREE, FULLTEXT, HASH, RTREE).

Comment.

Comentarios Varios

Various remarks.

Servidor incrustado / Embedded Server

2010-09-23T08:13:00.000-07:00

Actualizado SVN para el uso de servidor incrustado
Updated SVN for embedded server

se agregaron a la carpeta sample los archivos necesarios
los nuevos script para ejecutar los ejemplos con el servidor incrustado son los terminados en "_e" ejemplo bldhm_e.bat, construye el ejemplo para el servidor inscrustado usando el compilador de microsoft
(por los momentos todos en modo consola)

added to samples folder the files necessaries to run embedded server
the new script to build embedded samples are all finished with "_e", ie. bldhm_e.bat, build the embedded server sample with microsoft compiler
(for now all are in console mode)

download samples here

Harbour/xHarbour

2010-09-22T18:50:00.000-07:00

Eliminada carpetas Harbour / xHarbour del SVN, ahora seran descargadas directamente del link suministrados en el blog
Deleted folders Harbour / xHarbour from SVN, now can download from blog

Actualizado/Updated Harbour 2.1 (Rev 15490) (borland y msvc)
Actualizado/Updated xHarbour build 1.2.1 (simplex) (Rev 6733) (borland y msvc)

Idioma / Language

2010-09-20T03:40:00.000-07:00

> Willi: Hola Daniel,,, el metodo seek no ubica la letra Ñ

> Willi: Hello Daniel, the Method seek doesn't find "Ñ"

No ubica la Ñ ni otro caracter especial
Doesn't find Ñ or other especial char

Nueva funcion/New Function Set_MyLang( cLocale )

cLocale contienen información sobre cómo interpretar y llevar a cabo ciertas entradas / salidas y las operaciones de transformación, teniendo en cuenta ubicación y el idioma ajustes específicos

cLocale contain information on how to interpret and perform certain input/output and transformation operations taking into consideration location and language specific settings

El valor de cLocale dependeran por plataforma, para nuestro caso: Window

The value of cLocale will depend of plataform, for own case: Window

Language	LANGUAGE option value
Chinese, Simplified	chs
Chinese, Traditional	cht
English	ameng
French	fra
German	deu
Italian	ita
Japanese	jpn
Korean	kor
Portuguese, Brazilian	ptb
Russian	rus
Spanish	esp

fuente/source: http://publib.boulder.ibm.com/infocenter/tsminfo/v6/index.jsp?topic=/com.ibm.itsm.srv.install.doc/r_nls.html

Con esta funcion se podran accesar los caracteres espciales Ñ, ñ, Á, á, É, é, ... el unico incoveniente es que son sencibles a mayusculas y minusculas

With this function we will can access the special char Ñ, ñ, Á, á, É, é, ..., the only problem is them are case sensitive

Revisar/Check testfw2.prg

FUNCTION Main()

LOCAL oWnd

LOCAL oMenu

LOCAL oServer

MENU oMenu 2007

MENUITEM "testing" ACTION DataBrowse( oServer, oWnd )

ENDMENU

SET CENTURY ON

SET DATE FORMAT "dd/mm/yyyy"

//Activated Case sensitive

D_SetCaseSensitive( .T. )

Set_MyLang( "esp" )

IF ( oServer := ConnectTo() ) == NIL

RETURN NIL

ENDIF

DEFINE WINDOW oWnd TITLE "Testing Dolphin - Fivewin" MENU oMenu

ACTIVATE WINDOW oWnd

oServer:End()

RETURN NIL

Probar y exponer experiencias, Gracias

Test and post experiences, Thanks

xcommand ( 2 part )

2010-09-05T08:02:00.000-07:00

Explicare los commands referente al manejo de conexiones
I'll explain the command to handle connections

> CONNECT
> SELECTSERVER
> CLOSEMYSQL SERVER
> CLOSEMYSQL ALL
> SELECTDB cdb [srv: SERVER, MYSQL, OF oServer]

CONNECT [ srv: SERVER, MYSQL, OF ] oServer ;

HOST cHost ;

USER cUser ;

PASSWORD cPassword;

[ PORT nPort ];

[ FLAGS nFlags ];

[ DATABASE cDBName ];

[ ON ERROR uOnError ] ;

[ NAME cName ];

comando para hacer una conexion a un servidor, se necesitan como minimo 4 (cuatro) parametros.
command to make connection to host, is necessary (minimal) 4 parameter
1) Variable oServer (puede ser cualquier variable) contenedora del objeto TDolphinSrv
1) oServer variable (can be any variable name) owned TDolphinSrv object

2) HOST El valor de cHost puede ser un nombre de host o una dirección IP.
2) HOST The cHost value may be either a hostname or an IP address.

3) USER El valor cUser contiene el ID de usuario para la conexion del usuario a MySQL

3) USER The cUser value contains the user's MySQL login ID

4) PASSWORD El valor cPassword contiene la contraseña para cUser .

4) PASSWORD The cPassword value contains the password for cUser.

Los valores de los siguientes parametros seran determinados por defecto

The next paraneters values will be set by default
> PORT El valor nPort se utiliza como el número de puerto para la conexión TCP / IP, valor por defecto 3306

> PORT The nPort value is used as the port number for the TCP/IP connection. Default value 3306

> FLAGS El valor de nFlags suele ser 0, pero se puede establecer a una combinación de las siguientes opciones en circunstancias muy especiales:
> FLAGS The value of nFlags is usually 0, but can be set to a combination of the following flags in very special circumstances:

Flag Name	Flag Description
`CLIENT_COMPRESS`	Use compression protocol.
`CLIENT_FOUND_ROWS`	Return the number of found (matched) rows, not the number of affected rows.
`CLIENT_IGNORE_SPACE`	Allow spaces after function names. Makes all functions names reserved words.
`CLIENT_INTERACTIVE`	Allow `interactive_timeout` seconds (instead of `wait_timeout` seconds) of inactivity before closing the connection. The client's session`wait_timeout` variable is set to the value of the session `interactive_timeout` variable.
`CLIENT_LOCAL_FILES`	Enable `LOAD DATA LOCAL` handling.
`CLIENT_MULTI_STATEMENTS`	Tell the server that the client may send multiple statements in a single string (separated by '`;`'). If this flag is not set, multiple-statement execution is disabled. New in 4.1.
`CLIENT_MULTI_RESULTS`	Tell the server that the client can handle multiple result sets from multiple-statement executions or stored procedures. This is automatically set if`CLIENT_MULTI_STATEMENTS` is set. New in 4.1.
`CLIENT_NO_SCHEMA`	Don't allow the `db_name.tbl_name.col_name` syntax. This is for ODBC. It causes the parser to generate an error if you use that syntax, which is useful for trapping bugs in some ODBC programs.
`CLIENT_ODBC`	The client is an ODBC client. This changes mysqld to be more ODBC-friendly.
`CLIENT_SSL`	Use SSL (encrypted protocol). This option should not be set by application programs; it is set internally in the client library.

> DATABASE cDBName es el nombre de la base de datos

> DATABASE cDBName is the database name

> ON ERROR uOnError Codeblock que personaliza el manejo de errores

argumentos

Self, Objeto TDolphinSrv

nError, Codigo del error generado

lInternal, variable logica que determina si es un error interno de programacion (.T.) o devuelto por MySql (.F.)

cExtra, Cadena adicional de descripcion de determinados errores

> ON ERROR uOnError Codeblock to custom manager error message

Arguments

Self, TDolphinSrv Object

nError, Error Code

lInternal, Logical variable to check if is a internal error by programmer (.T.) or is returned by MySql (.F.)

cExtra, Aditional string to description some specifics errors

> NAME cName nombre para identificar la conexion al servidor

> NAME cName name to identify host connection

ejemplo/sample

CONNECT oServer

HOST "dolphintest.sitasoft.net";

USER "dan_dolphin" ;

PASSWORD "123456 ;

DATABASE "dolphin_man" ;

NAME "connect01";

ON GETERROR onError( Self, nErrorSrv )

/samples/connto.prg
-------------------------------------------------------------
SELECTSERVER
Comando para seleccionar y activar por defecto una conexion a un servidor

Command to select and activate by default an host connection
uParam puede conetener los siguientes valores:

Objecto TDolphinQry, Objecto TDolphinSrv, cadena con el nombre de la conexion

uParam can be next values:

Object TDolphinQry, Object TDolphinSrv, name connection string

ejemplo / sample

SELECTSERVER oServer

SELECTSERVER "connect01"

-------------------------------------------------------------
CLOSEMYSQL SERVER

Commando para cerrar una conexion a un servidoron puede conetener los siguientes valores:

Objecto TDolphinSrv, cadena con el nombre de la conexion

command to close host connectionon can be next values:

Object TDolphinSrv, name connection string

CLOSEMYSQL ALL

Comando para cerrar todas las conexiones activas

Command to close all active connections

ejemplo/sample

CLOSEMYSQL SERVER "connect01"

CLOSEMYSQL ALL

--------------------------------------------------------------

SELECTDB cdb [srv: SERVER, MYSQL, OF oServer]

Selecciona base de datos cdb en conexion actual o una conexion especifica, determinada por el objeto oServer

Select a database cdb in current connection or specific connection, defined by oServer

xcommand ( 1 part )

2010-08-31T05:42:00.000-07:00

Tratare de seguir un orden logico para hablar de los xcommand creados
i will try fallow a logic order to talk xcommand

> SET
es recomendable usarse antes de hacer conexiones al host
it's recommended to be used before making connections to host

los valores en cursiva son el status por omision
cursiva values is default status
SET CASESENSITIVE ON/OFF = > D_SetCaseSensitive( lOnOff )
http://tdolphin.blogspot.com/2010/07/lowercasetablenames.html
-------------------------------------------------------------------
SET PADRIGHT ON/OFF => D_SetPadRight( lOnOff )
MySql retorna una cadena con el contenido de un campo, que puede variar de longitud de un registro a otro, esto significa que no siempre tendra la misma logitud con el que esta creado el campo
SET PADRIGHT es usado para completar con espacios hasta la longitud del campo.
MySql returns a string with the contents of a field, which can vary in length from one record to another, this means that there will always have the same length with which the field is created
PADRIGHT SET is used to fill with spaces to the length of the field.

ej.

Field_1 varchar( 30 )
MySql retornara una cadena con la logitud de la misma y no la longitud del campo, a menos que PADRIGHT sea "encendido"
MySQL returns a string with string's length and not the length of the field, unless is turned ON PADRIGHT

usar D_SetPadRight() sin argumentos para retornar status actual
to use D_SetPadRight() without argument to return current status
-------------------------------------------------------------------
SET LOGICALVALUE ON/OFF => D_LogicalValue( lOnOff )
Activa o desactiva el uso de valores logicos por los valores 0 / 1 usados en MySql
Enables or disables the use of logical values for the values 0 / 1 used in MySql
usar D_LogicalValue() sin argumentos para retornar status actual
to use D_LogicalValue() without argument to return current status

Actualizacion/Update

2010-08-29T13:08:00.000-07:00

Hay muchas actualizaciones al svn las cuales ire detallando individualmente en los proximos post
Inclusion de xcommand
Control de multiples intencias de cnexion
Mejoras a los procesos de Backup / Restore
Nuevo Metodo ExecuteScript

There are several updates to the svn, i'll explain individually in the next posts
Added xcommand
Multiple connection instance control
Improved Backup / Restore Process
New Method ExecuteScript

Actuazalicion / Update

2010-08-26T08:46:00.000-07:00

Esta funcionando exportar a SQL SCRIPT

Export to SQL SCRIPT is working

oExp = oQry:Export( EXP_SQL, "client.sql" )

Download Here

Download Script

TDolphin para Microsoft 32/64 Bits

2010-08-21T14:24:00.000-07:00

Dolphin disponible para el compilador de Microsoft, para las versiones de 32 y 64 Bits, se pueden descargar los compiladores de Harbour y xHarbour en la etiqueda nombrada Harbour/xHarbour arriba-derecha del blog
Dolphin available to Microsoft compiler, 32 and 64 bits Versions, download Harbour and xHarbour comipilers from Harbour-xHarbour lables, in Top-Right of blog

Igualmente disponible la version de 64 bit de la libreria y DLL de MySql, enlace de descarga en la etiqueta LibMysql
Mysql library and DLL available too to 64 bits, Download link in Label LibMySql

Nota: xHarbour no esta disponible para 64Bits
Note: xHarbour isn't available to 64 Bits

Instrucciones para generar las librerias:
Instructions to build library

Usar make.exe de borland para ejecutar los .Mak, descargarlo desde AQUI
To use make.exe of borland to build .Mak. Download H ERE

Harbour para msvc 32 bits / Harbour to msvc 32 Bits
abrir mtdolphm.bat y cambiar las variable de acuerdo a las necesidades
Open mtdolphm.bat and change variables if you need

c:\bcc582\bin\make -ftdolpm.mak HPATH=\HARBOURM VCDIR=c:\vc2008 LIBNAME=dolphm OBJS=objm HARBOUR=

HPATH Ruta principal de harbour para msvc 32bits / Harbour to msvc main path

VCDIR Ruta principal del compilador de Microsoft / msvc compiler main path

LIBNAME Nombre de libreria / library name

ejecutar / Run mtdolphm.bat

xHarbour para msvc 32 bits / xHarbour to msvc 32 bits

abrir mtdolpxm.bat y cambiar las variable de acuerdo a las necesidades

Open mtdolphm.bat and change variables if you need

c:\bcc582\bin\make -ftdolpm.mak HPATH=\xharbm VCDIR=c:\vc2008 LIBNAME=dolpxm OBJS=objmx HARBOUR=OBJS=objm HARBOUR=

HPATH Ruta principal de xharbour para msvc 32bits / xHarbour to msvc main path

VCDIR Ruta principal del compilador de Microsoft / msvc compiler main path

LIBNAME Nombre de libreria / library name

ejecutar / Run mtdolpxm.bat

Harbour para msvc 64 bits / Harbour to msvc 64 Bits

abrir mtdh64.bat y cambiar las variable de acuerdo a las necesidades

Open mtdolphm.bat and change variables if you need

c:\bcc582\bin\make -ftdolp64.mak HPATH=\HARBOUR VCDIR=c:\vc64 LIBNAME=dolph64 OBJS=objh64 HARBOUR=

HPATH Ruta principal de harbour para msvc 64bits / Harbour 64 bits to msvc main path

VCDIR Ruta principal del compilador de Microsoft / msvc compiler main path

LIBNAME Nombre de libreria / library name

ejecutar / Run mtdh64.bat

TDolphin

2010-08-19T17:18:00.000-07:00

Debo decir que me siento muy complacido con el proyecto TDolphin, desde hace varios dias no he recibido reporte de errores, al parecer todo esta funcionando como se espera
Gracias a todos por el apoyo

I'm feeling very happy with TDolphin project, I haven't error report so many day ago, thinks all is working perfectly
Thanks all for supports

Actuazalicion / Update

2010-08-19T17:08:00.000-07:00

Esta funcionando exportar a WORD,

Export to WORD is working

oExp = oQry:Export( EXP_WORD, CurDrive() + ":\" + CurDir() + "\client", , { "@!", "@!" } )

Download Here

Actuazalicion / Update

2010-08-10T15:35:00.000-07:00

Esta funcionando exportar a HTM/HTML, se debe asignar el nombre del archivo con la extencion valida (htm/html)
Export to HTM/HTML is working, we should write filename with valid extention (htm/html)

Download Here

www.sitasoft.net/dolphin/files/client.html

Actualizacion/Update

2010-08-09T16:58:00.000-07:00

Finalizado elproceso de exportacion a DBF, podemos seleccionas los campos a exportar
Finished export to DBF, we can select field to export

el ejemplo a constinuacion consta de 10.000 registros
the next sample is 10.000 record

Download Here

   oQry = oServer:Query( "SELECT * FROM clientes" )

   oExp = oQry:Export( EXP_DBF, "client.dbf" )
   oExp:bOnStart = { || QOut( "Started..."), QOut( ""), cTime := Time() }
   oExp:bOnRow = {| o, n | ShowLine( n, oQry:LastRec() ) }
   oExp:bOnEnd = { || QOut( "Elapse time: " + ElapTime( cTime, Time() ) ), QOut( "Finished...") }

Actuazalicion / Update

2010-08-02T10:13:00.000-07:00

Se inio el proceso de exportacion de Consultas a otros formatos, por ahora estan listo TEXTOS y EXCEL, la idea es exportar a HTML, WORD, SQL SCRIPT, XML y por supuesto DBF
Se pueden personalizar encabezados y finales de archivo y manipular linea a linea creada
Started queries export process to other format, for now is working TEXT and EXCEL, the idea is export to HTML, WORD, SQL SCRIPT, XML and off course DBF
We can customize Headers and Footers and handle row by row

Samples to TEXT

Download here

   oQry = oServer:Query( "SELECT first, last FROM clientes limit 100" )

   oExp = oQry:Export( EXP_TEXT, "client.txt" )

   oExp:bOnStart = {| o | FWrite( o:hFile, Replicate( "=", Len( cHead ) ) + CRLF, Len( cHead ) + 1 ),;
   FWrite( o:hFile, cHead, Len( cHead ) ),;
   FWrite( o:hFile, Replicate( "=", Len( cHead ) ) + CRLF , Len( cHead ) + 1 ) }
   oExp:bOnRow = {| o, n, cText| ShowLine( o, n, cText, oQry:LastRec() ) }

   oExp:bOnEnd = {| o | FWrite( o:hFile, Replicate( "=", Len( cEnd ) ) + CRLF, Len( cEnd ) + 1 ),;
   FWrite( o:hFile, cEnd, Len( cEnd ) ) }

Export to Excel

Download Here

   oQry = oServer:Query( "SELECT first, last, salary FROM clientes limit 20" )
   oExp = oQry:Export( EXP_EXCEL, CurDrive() + ":\" + CurDir() + "\client", , { , , "999,999.99" } )
   oExp:lMakeTotals = .T.
   oExp:bOnStart = {| o | Header( o ) }
   oExp:bOnRow = {| n, cText| ShowLine( n, cText, oQry:LastRec() ) }

Actuazalicion / Update

2010-07-31T07:25:00.000-07:00

> tdolpqry.PRG
> function.c
Nuevas funnciones y metodos para localizar registros en una consulta

New functions and Method to locate record
METHOD Find( aValues, aFields, nStart, nEnd, lRefresh )

aValues = Array de datas a buscar / data array to seek

aField = Array de campos que filtrara la busqueda / Field array to filter seek

nStart = Registro comienzo para buscar / start record to seek

nEnd = Registro final a bsucar / end record to seek

Este metodo no tiene ninguna restriccion, buscara de forma secuencial dentro de la consulta activa, devolvera el primer registro que satisfaga la condicion de busqueda

this method dont have any restriction, will seek sequentally inside active query, return the first record that, will return the first record that satisfies the search condition

METHOD Locate( aValues, aFields, nStart, nEnd, lRefresh )

igual al metodo Find, la diferencia es, este metodo es mas rapido y para obtener los resultados deseados, debera estar la consulta ordenada de igual forma a los campos a buscar

ejemplo.

si desea buscar por field1, field2 y field3 la consulta debera estar ordenada ORDER BY field1, field2, field3

same Method Find, the difference is: this method is more fast, to get better result, the query should be order same to field seek

ie.

if you want seek field1, field2 and field3 the query should be order like ORDER BY field1, field2, field3

sample:

Download Here

oQry = oServer:Query( "SELECT * FROM clientes ORDER BY first, last " )

oQry:Find( { "Vincent", "Brook" }, {"first", "last" } )

oQry:Locate( { "Vincent", "Brook" }, {"first", "last" } )

Rapido!!!! / Fast!!!!

2010-07-30T19:51:00.000-07:00

He realizado una nueva funcion SEEK para busquedas que IMPRESINANTEMENTE RAPIDA
I did a new function SEEK to seek, is INCREDIBLE FAST

el ejemplo consta de 50.000 resgistros y el resultado buscando la "Z" con la rutina actual fue:
the sample is 50.000 record and result seeking "Z", with current seek method was:

Download Test (new method)

Nuevo metodo Seek
New Seek Method