FiveTech Software tech support forums

by **Antonio Linares** » Thu Sep 11, 2008 1:29 pm

Nueva versión que modifica el campo sql_recno como NOT NULL, AUTO_INCREMENTAL y UNIQUE. Tambien algunos cambios en sql_deleted NOT NULL. Código más limpio y probado con Harbour y xHarbour:

www.fivetechsoft.com/files/sqlwin.zip

by **MOISES** » Fri Sep 12, 2008 2:44 pm

Antonio:

Creo que debería llamarse FiveSQL o FivewinSQL, dado que para Harbour hay varias librerias y se crea bastante confusión, y así se diferencia tu RDD de otros.

by **Alfredo Arteaga** » Fri Sep 12, 2008 3:29 pm

Voto por FiveSQL o FWHSQL, algo que lo relacione con FiveWin me parece mejor idea.

Ayer intenté compilarlo y si compila pero lo único que obtengo es un GPF.

Habrá alguna alma caritativa que me apoye en como iniciar?, me gradaría apoyar en lo posible.

Gracias.

by **sysctrl2** » Fri Sep 12, 2008 5:14 pm

yo ya pude compilar con xharbour

que les parece FwhxSql

saludos...

by **Antonio Linares** » Fri Sep 12, 2008 5:35 pm

Alfredo,

Vuelve a descargarlo y a probarlo. Ya está probado con Harbour y xHarbour.

Respecto al nombre, es lo de menos, lo importante es que consigamos entre todos que funcione bien :-)

by **Antonio Linares** » Fri Sep 12, 2008 10:19 pm

Una nueva versión que implementa FieldPut() (asignación de campos):

www.fivetechsoft.com/files/sqlwin.zip

by **Antonio Linares** » Sat Sep 13, 2008 12:31 am

Nueva versión que implementa DbAppend()

www.fivetechsoft.com/files/sqlwin.zip

Donde estan los colaboradores ? :-)

by **sysctrl2** » Sat Sep 13, 2008 12:48 am

Antonio,

disculpa, mis bajos conocimientos, no alcanzan para desarrollar como

ustedes los gurues,

pero he hecho las pruebas desde el primer ejemplo que posteastes,

si en alguna cosa mas puedo ser util, soy materia dispuesta.

saludos.... desde la cd. de mexico.

Cesar C.C.

by **Antonio Linares** » Sat Sep 13, 2008 8:23 am

Cesar,

Gracias por tu respuesta :-)

Lo importante es tener algún tipo de información por parte de quienes lo estan probando. Si tienen preguntas, dudas, comentarios, lo que sea :-)

by **Ruben D. Fernandez** » Sat Sep 13, 2008 5:06 pm

Antonio:

Deseo colaborar en este proyecto de la manera que pueda ser util.
Conocimientos menos que mas.
Quizás haciendo un archivo .chm o .hlp con ejemplos y todo.
Lo que necesito es el contenido que desean incluirle si estan de acuerdo.

Saludos y gracias.

Ruben Fernandez.

Nota. Vamos Adolfo, tengo fe en tus aportes.

by **Alfredo Arteaga** » Sun Sep 14, 2008 2:54 am

Como usuario de SQLRDD les comento que hay una opción para ver las sentencias SQL que se generan durante la operación, he aquí el LOG de un pequeño programa de prueba que crea una tabla, la indexa, agrega y borra registros.

Esto por si es de ayuda para el avance de SQLWIN.

Code: Select all Expand view: 09/13/08 21:36:37: SELECT * FROM `clientes_dbf` WHERE 0 = 2 09/13/08 21:36:37: COMMIT 09/13/08 21:36:37: COMMIT 09/13/08 21:36:37: DROP TABLE `clientes_dbf` /* create table */ 09/13/08 21:36:37: COMMIT 09/13/08 21:36:37: DELETE FROM SR_MGMNTINDEXES WHERE TABLE_ = 'CLIENTES_DBF' /* Wipe index info */ 09/13/08 21:36:37: COMMIT 09/13/08 21:36:37: DELETE FROM SR_MGMNTTABLES WHERE TABLE_ = 'CLIENTES_DBF' /* Wipe table info */ 09/13/08 21:36:37: COMMIT 09/13/08 21:36:37: DELETE FROM SR_MGMNTLANG WHERE TABLE_ = 'CLIENTES_DBF' /* Wipe table info */ 09/13/08 21:36:37: COMMIT 09/13/08 21:36:37: DELETE FROM SR_MGMNTCONSTRAINTS WHERE TABLE_ = 'CLIENTES_DBF' /* Wipe table info */ 09/13/08 21:36:37: COMMIT 09/13/08 21:36:37: DELETE FROM SR_MGMNTCONSTRAINTS WHERE SOURCETABLE_ = 'CLIENTES_DBF' /* Wipe table info */ 09/13/08 21:36:37: COMMIT 09/13/08 21:36:37: DELETE FROM SR_MGMNTCONSTRTGTCOLS WHERE SOURCETABLE_ = 'CLIENTES_DBF' /* Wipe table info */ 09/13/08 21:36:37: COMMIT 09/13/08 21:36:37: DELETE FROM SR_MGMNTCONSTRSRCCOLS WHERE SOURCETABLE_ = 'CLIENTES_DBF' /* Wipe table info */ 09/13/08 21:36:37: COMMIT 09/13/08 21:36:37: SELECT * FROM `clientes_dbf` /* check dropped table */ 09/13/08 21:36:37: COMMIT 09/13/08 21:36:37: COMMIT 09/13/08 21:36:37: CREATE TABLE `clientes_dbf` ( `nombre` CHAR (40) , `direccion` CHAR (40) , `telefono` CHAR (12) , `logico` TINYINT, `date` DATE, `edad` REAL (5,2) , `sr_recno` BIGINT (15) NOT NULL UNIQUE AUTO_INCREMENT , `sr_deleted` CHAR (1) NOT NULL ) Type=InnoDb 09/13/08 21:36:37: COMMIT 09/13/08 21:36:37: DELETE FROM SR_MGMNTTABLES WHERE TABLE_ = 'CLIENTES_DBF' 09/13/08 21:36:37: COMMIT 09/13/08 21:36:37: INSERT INTO SR_MGMNTTABLES ( TABLE_ , SIGNATURE_, CREATED_, TYPE_, REGINFO_ ) VALUES ( 'CLIENTES_DBF','MGMNT 1.72', '2008091321:36:37','TABLE',' ' ) 09/13/08 21:36:37: COMMIT 09/13/08 21:36:37: SELECT MAX( `sr_recno` ) FROM `clientes_dbf` /* Counting Records */ 09/13/08 21:36:37: SELECT A.* FROM `clientes_dbf` A WHERE 1 = 0 /* Open Workarea */ 09/13/08 21:36:37: COMMIT 09/13/08 21:36:37: SELECT TABLE_,SIGNATURE_,IDXNAME_,IDXKEY_,IDXFOR_,IDXCOL_,TAG_,TAGNUM_ FROM SR_MGMNTINDEXES WHERE TABLE_ = 'CLIENTES_DBF' ORDER BY IDXNAME_, TAGNUM_ 09/13/08 21:36:37: SELECT A.* FROM `clientes_dbf` A ORDER BY A.`sr_recno` LIMIT 12 /* GoTop */ 09/13/08 21:36:37: COMMIT 09/13/08 21:36:37: SELECT MAX( `sr_recno` ) FROM `clientes_dbf` /* Counting Records */ 09/13/08 21:36:37: SELECT A.* FROM `clientes_dbf` A ORDER BY A.`sr_recno` LIMIT 12 /* GoTop */ 09/13/08 21:36:37: SELECT TABLE_,SIGNATURE_,IDXNAME_,IDXKEY_,IDXFOR_,IDXCOL_,TAG_,TAGNUM_,PHIS_NAME_ FROM SR_MGMNTINDEXES WHERE TABLE_ = 'CLIENTES_DBF' AND IDXNAME_ = 'CLIENTES_DBF' AND TAG_ = 'xNombre' ORDER BY IDXNAME_, TAGNUM_ 09/13/08 21:36:37: DELETE FROM SR_MGMNTINDEXES WHERE TABLE_ = 'CLIENTES_DBF' AND IDXNAME_ = 'CLIENTES_DBF' AND TAG_ = 'xNombre' /* Wipe index info 01 */ 09/13/08 21:36:37: COMMIT 09/13/08 21:36:37: SELECT TABLE_,SIGNATURE_,IDXNAME_,IDXKEY_,IDXFOR_,IDXCOL_,TAG_,TAGNUM_ FROM SR_MGMNTINDEXES WHERE TABLE_ = 'CLIENTES_DBF' ORDER BY IDXNAME_, TAGNUM_ 09/13/08 21:36:37: COMMIT 09/13/08 21:36:37: COMMIT 09/13/08 21:36:37: DROP INDEX CLIENTES_DBF_xNombre ON `clientes_dbf` /* Create Index */ 09/13/08 21:36:37: COMMIT 09/13/08 21:36:38: CREATE INDEX CLIENTES_DBF_xNombre ON `clientes_dbf` (`nombre`,`sr_recno`) /* Create regular Index */ 09/13/08 21:36:38: COMMIT 09/13/08 21:36:38: INSERT INTO SR_MGMNTINDEXES (TABLE_,SIGNATURE_,IDXNAME_,PHIS_NAME_,IDXKEY_,IDXFOR_,IDXCOL_,TAG_,TAGNUM_) VALUES ( 'CLIENTES_DBF','20080913 21:36:38 A','CLIENTES_DBF','CLIENTES_DBF_xNombre','\"NOMBRE\",\"SR_RECNO\"','',NULL,'xNombre','000001' ) 09/13/08 21:36:38: COMMIT 09/13/08 21:36:38: COMMIT 09/13/08 21:36:38: SELECT TABLE_,SIGNATURE_,IDXNAME_,IDXKEY_,IDXFOR_,IDXCOL_,TAG_,TAGNUM_ FROM SR_MGMNTINDEXES WHERE TABLE_ = 'CLIENTES_DBF' ORDER BY IDXNAME_, TAGNUM_ 09/13/08 21:36:38: SELECT A.* FROM `clientes_dbf` A ORDER BY A.`nombre`, A.`sr_recno` LIMIT 12 /* GoTop */ 09/13/08 21:36:48: SELECT A.`nombre`, A.`direccion`, A.`telefono`, A.`edad`, A.`sr_recno`, A.`sr_deleted` FROM `clientes_dbf` A WHERE A.`sr_recno` = 1 /* GoTo */ 09/13/08 21:36:48: SELECT A.`nombre`, A.`direccion`, A.`telefono`, A.`edad`, A.`sr_recno`, A.`sr_deleted` FROM `clientes_dbf` A ORDER BY A.`nombre`, A.`sr_recno` LIMIT 12 /* GoTop */ 09/13/08 21:37:11: COMMIT 09/13/08 21:37:11: INSERT INTO `clientes_dbf` ( `nombre`, `direccion`, `telefono`, `logico`, `date`, `edad`, `sr_deleted` ) VALUES ( 'ALFREDO ARTEAGALICONA', 'MI DOMICILIO', '112223333333', 0, NULL, 50.00, ' ' ) 09/13/08 21:37:11: SELECT LAST_INSERT_ID() 09/13/08 21:37:11: COMMIT 09/13/08 21:37:11: SELECT A.`nombre`, A.`direccion`, A.`telefono`, A.`edad`, A.`sr_recno`, A.`sr_deleted` FROM `clientes_dbf` A WHERE ( ( ( A.`nombre` <= 'ALFREDO ARTEAGALICONA' OR A.`nombre` IS NULL ) AND A.`sr_recno` <= 1) OR ( ( A.`nombre` < 'ALFREDO ARTEAGALICONA' OR A.`nombre` IS NULL ) ) ) ORDER BY A.`nombre` DESC, A.`sr_recno` DESC LIMIT 32 /* Skip BWD */ 09/13/08 21:37:11: SELECT A.`nombre`, A.`direccion`, A.`telefono`, A.`edad`, A.`sr_recno`, A.`sr_deleted` FROM `clientes_dbf` A WHERE ( ( A.`nombre` >= 'ALFREDO ARTEAGALICONA' AND A.`sr_recno` >= 1) OR ( A.`nombre` > 'ALFREDO ARTEAGALICONA' ) ) ORDER BY A.`nombre`, A.`sr_recno` LIMIT 32 /* Skip FWD */ 09/13/08 21:37:23: COMMIT 09/13/08 21:37:23: UPDATE `clientes_dbf` SET `sr_deleted` = 'T' WHERE `sr_recno` = 1 09/13/08 21:37:23: COMMIT 09/13/08 21:37:23: SELECT A.`nombre`, A.`direccion`, A.`telefono`, A.`edad`, A.`sr_recno`, A.`sr_deleted` FROM `clientes_dbf` A WHERE ( ( 1 = 1 AND A.`sr_recno` >= 0) OR ( A.`nombre` IS NOT NULL ) ) ORDER BY A.`nombre`, A.`sr_recno` LIMIT 32 /* Skip FWD */ 09/13/08 21:37:23: SELECT A.`nombre`, A.`direccion`, A.`telefono`, A.`edad`, A.`sr_recno`, A.`sr_deleted` FROM `clientes_dbf` A WHERE ( ( A.`nombre` >= 'ALFREDO ARTEAGALICONA' AND A.`sr_recno` >= 1) OR ( A.`nombre` > 'ALFREDO ARTEAGALICONA' ) ) ORDER BY A.`nombre`, A.`sr_recno` LIMIT 32 /* Skip FWD */ 09/13/08 21:37:26: SELECT A.`nombre`, A.`direccion`, A.`telefono`, A.`edad`, A.`sr_recno`, A.`sr_deleted` FROM `clientes_dbf` A WHERE ( ( 1 = 1 AND A.`sr_recno` >= 0) OR ( A.`nombre` IS NOT NULL ) ) ORDER BY A.`nombre`, A.`sr_recno` LIMIT 32 /* Skip FWD */ 09/13/08 21:37:26: SELECT A.`nombre`, A.`direccion`, A.`telefono`, A.`edad`, A.`sr_recno`, A.`sr_deleted` FROM `clientes_dbf` A WHERE ( ( A.`nombre` >= 'ALFREDO ARTEAGALICONA' AND A.`sr_recno` >= 1) OR ( A.`nombre` > 'ALFREDO ARTEAGALICONA' ) ) ORDER BY A.`nombre`, A.`sr_recno` LIMIT 32 /* Skip FWD */ 09/13/08 21:37:27: COMMIT

by **Alfredo Arteaga** » Sun Sep 14, 2008 3:04 am

Ruben, es una buena idea hacer un documento de SQLWIN. Empecemos por explicar como funciona, no entiendo (soy medio burro).

by **Arvisnet** » Sun Sep 14, 2008 4:34 am

Saludos a todos, es una excelente idea el hacer SQLwin o como se llame, solo una peque duda, como se usa?
para probarlo que hay que hacer?... ir probando las funciones que menciona antonio?.. con tablas SQL o con dbfs?.. perdon pero no entiendo.
:oops:

habra a la par un ejemplo sencillo para ir siguiendo el paso como por ejemplo:

miprograma.prg
funcion main()

InstanciarObetoConeccion (o como sea abrir la base de datos)
AbrirlasTblas
usar algun query para traer la info o realizar algun requierimiento de datos a la tabla
hacerles un APPEND,DELETE,ETC

Cerrarlaconeccion.
Return nil

y asi vamos probando las nuevas funciones, la velocidad del acceso alos datos etc.

sorry, pero baje el prg y luego lo compilo y...

Saludos AVS

by **Antonio Linares** » Sun Sep 14, 2008 6:18 pm

Descarga sqlwin.prg y construye un EXE con él:

buildx.bat sqlwin

by **Francisco Horta** » Mon Sep 15, 2008 3:21 pm

Probando y obtengo estos errores

Unresolved external '_HB_FUN_USRRDD_RDDDATA'
Unresolved external '_HB_FUN_USRRDD_AREADATA'
Unresolved external '_HB_FUN_UR_SUPER_ERROR'
Unresolved external '_HB_FUN_UR_SUPER_SETFIELDEXTENT'
Unresolved external '_HB_FUN_UR_SUPER_ADDFIELD'
Unresolved external '_HB_FUN_UR_SUPER_OPEN'
Unresolved external '_HB_FUN_UR_SUPER_CLOSE'
Unresolved external '_HB_FUN_USRRDD_GETFUNCTABLE'

salu2
paco

FiveTech Software tech support forums

SQLWIN - RDD libre para SQL

duda

Who is online