TDolphin Clase para manejar MySql

Re: TDolphin Clase para manejar MySql

Postby Ruben Fernandez » Tue Jul 13, 2010 10:48 pm

Gracias Daniel...

Al fin pude conectarme a una bases de datos MySql.

Gracias...y como todo...mas ejemplos.

Gracias de nuevo.
Gracias y Saludos
Ruben Fernandez - Uruguay
FWH 11.06, Harbour, Borland 5.82
Ruben Fernandez
 
Posts: 366
Joined: Wed Aug 30, 2006 5:25 pm
Location: Uruguay

Re: TDolphin Clase para manejar MySql

Postby Daniel Garcia-Gil » Wed Jul 14, 2010 3:49 pm

Saludos

Ya he dejado un ejemplo para configurar xbrowse el uso de busqueda incremental y el ordenamiento de columnas
User avatar
Daniel Garcia-Gil
 
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 pm
Location: Isla de Margarita

Re: TDolphin Clase para manejar MySql

Postby Marcelo Via Giglio » Wed Jul 14, 2010 3:57 pm

Daniel,

3 cosas

1.- Gracias por tu trabajo
2.- Hay algun ejemplo de como construir una aplicacion con MySQL incrustado?
3.- Pensaste en definir un capa de abstraccion de manera de poder tener diferentes DBMS y utilizarlos con
la misma logica

Gracias

Marcelo
Marcelo Via Giglio
 
Posts: 1064
Joined: Fri Oct 07, 2005 3:33 pm
Location: Cochabamba - Bolivia

Re: TDolphin Clase para manejar MySql

Postby Daniel Garcia-Gil » Wed Jul 14, 2010 5:10 pm

Marcelo

Aun no he hecho el ejemplo para el Uso de MySql embebido, espero pronto hacerlo
User avatar
Daniel Garcia-Gil
 
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 pm
Location: Isla de Margarita

Re: TDolphin Clase para manejar MySql

Postby Daniel Garcia-Gil » Sat Aug 21, 2010 10:41 pm

Dolphin ahora disponible para MSVC 32 y 64 bits

http://tdolphin.blogspot.com/
User avatar
Daniel Garcia-Gil
 
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 pm
Location: Isla de Margarita

Re: TDolphin Clase para manejar MySql

Postby jose_murugosa » Sun Aug 22, 2010 2:35 am

Daniel Garcia-Gil wrote:Dolphin ahora disponible para MSVC 32 y 64 bits

http://tdolphin.blogspot.com/


Gracias por tan interesante contribución, La semana pasada estuvimos hablando de ella con unos amigos, estoy por iniciar un pequeño proyecto nuevo, y pienso probarla en él.
Saludos/Regards,
José Murugosa
"Los errores en programación, siempre están entre la silla y el teclado y la IA!!"
User avatar
jose_murugosa
 
Posts: 1174
Joined: Mon Feb 06, 2006 4:28 pm
Location: Uruguay

Re: TDolphin Clase para manejar MySql

Postby AIDA » Sun Aug 22, 2010 9:20 pm

Prometo que cuando termine mi programita me pondre a estudiar y hacer mi tarea en TDolphin :mrgreen:

Saluditos :wink:
Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
User avatar
AIDA
 
Posts: 879
Joined: Fri Jan 12, 2007 8:35 pm

Re: TDolphin Clase para manejar MySql

Postby Daniel Garcia-Gil » Sun Aug 22, 2010 11:08 pm

Aida, Jose

estoy a la orden
User avatar
Daniel Garcia-Gil
 
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 pm
Location: Isla de Margarita

Re: TDolphin Clase para manejar MySql

Postby sysctrl2 » Wed Sep 22, 2010 10:00 pm

Alguien me puede explicar las diferencias de los siguientes metodos?

Code: Select all  Expand view
METHOD Seek()
METHOD Locate()
METHOD Find()


saludos.
Cesar Cortes Cruz
SysCtrl Software
Mexico

' Sin +- FWH es mejor "
User avatar
sysctrl2
 
Posts: 1015
Joined: Mon Feb 05, 2007 7:15 pm

Re: TDolphin Clase para manejar MySql

Postby Daniel Garcia-Gil » Thu Sep 23, 2010 12:21 am

Todas las busquedas en Dolphin se hacen a bajo nivel

METHOD Seek( uSeek, cnField, nStart, nEnd, lSoft, lRefresh )
Hace una busqueda usando un algoritmo llamado en computacion "arbol binario" (usado comunmente en los diccionarios),
por lo general lo que hace es que va directo al medio de la consulta, y si no encuentra la palabra entonces salta a la
otra mitad (la primera mitad o la segunda mitad de la busqueda) dependiendo de si la palabra encontrada
es mayor o menor que la que se busca, y así sucesivamente hasta encontrarla. (algoritmo sugerido por willi Quintana, gracias)
uSeek es el valor buscado
cnField Nombre/Numero del campo a buscar
nStart Registro de inicio para la busqueda
nEnd Registro final de la busqueda
lSoft Valor logico que determinara en estado .T. la busqueda "suave" del dato a buscar, .F. el dato exacto
lRefresh Carga el registro en contrado en el buffer (aRow/hRow)
el valor de retorno es el numero del registro encontrado o devuelve 0 de no encontarse

Observacion: La consulta debe estar ordenada por el campo a buscar

La busqueda con este algoritma es realmente rapida
ejemplo de los resultados...
http://tdolphin.blogspot.com/2010/07/rapido-fast.html
antes seek usaba una busqueda secuencial ( que ahora lo hace find )


METHOD Locate( aValues, aFields, nStart, nEnd, lRefresh )
Usa la misma tecnica de Seek pero para varios valores en varios campos

aValue Array de valores a buscar
aField Array de los nombres de campos a buscar en orden respectivo a los volores buscados


METHOD Find( aValues, aFields, nStart, nEnd, lRefresh )
Este metodo usa un algoritmo de busqueda secuencial, la consulta no necesita estar ordenada
User avatar
Daniel Garcia-Gil
 
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 pm
Location: Isla de Margarita

Re: TDolphin Clase para manejar MySql

Postby sysctrl2 » Thu Sep 23, 2010 1:12 am

La explicacion es muy clara , gracias.

ahora que diferencia hay entre una busqueda por medio de los methodos ( Locate, seek, find ), y una consulta mediante un query.

#DEFINE C_SIMPLE CHR( 39 )
#DEFINE c_simple CHR( 39 )
function Consulta()
local cVar := '1'
local nRows

oQry := ::oMain:oCon:Query( "SELECT * FROM clientes WHERE no_folio=" + C_SIMPLE + cVar + C_SIMPLE +;
' ORDER BY no_folio LIMIT 1')

nRows := oQry:nRecCount
if nRows = 0
msginfo('LO SIENTO , NO ENCONTRE NADA ...')
ELSE
? oQry:no_folio //SI ENCONTRE ALGO.
endif
return nil

perdon DANIEL por la lata, pero estoy tratando de dar el salto de DBF a SQL y estoy aprendiendo, y quiero aplicar la mejor tecnica
posible.

saludos. Cesar Cortes Cruz.
Cesar Cortes Cruz
SysCtrl Software
Mexico

' Sin +- FWH es mejor "
User avatar
sysctrl2
 
Posts: 1015
Joined: Mon Feb 05, 2007 7:15 pm

Re: TDolphin Clase para manejar MySql

Postby sysctrl2 » Thu Sep 23, 2010 1:18 am

Daniel la explicacion es muy clara y precisa, GRACIAS.

Pero me salta otra duda, que diferencia existe entre una busqueda LOCATE, FIND, SEEK y una consulta desde un query normal.

cual tecnica seria la mas idonea y mas rapida ?


Code: Select all  Expand view
FUNCTION Consulta()
     local cVar := '1'
     local nRows

    oQry := ::oMain:oCon:Query(  "SELECT * FROM clientes WHERE no_folio=" + C_SIMPLE + cVar + C_SIMPLE +;
   ' ORDER BY no_folio LIMIT 1')
   
   nRows := oQry:nRecCount

   if nRows = 0
      ? 'NO HAY NADA'
   ELSE
      ? oQry:no_folio, oQry:nombre
   endif

return nil


Perdon por la lata Daniel, pero estoy tratando de dar el salto de dbf a sql, y quiero utilizar la mejor tecnica posible.
Saludos, Cesar Cortes.
Cesar Cortes Cruz
SysCtrl Software
Mexico

' Sin +- FWH es mejor "
User avatar
sysctrl2
 
Posts: 1015
Joined: Mon Feb 05, 2007 7:15 pm

Re: TDolphin Clase para manejar MySql

Postby Daniel Garcia-Gil » Thu Sep 23, 2010 1:35 am

Cesar

LOCATE, FIND, SEEK actuan sobre el query activo no sobre la tabla

para que tengas una idea seria algo asi:

Code: Select all  Expand view

oQry := ::oMain:oCon:Query(  "SELECT * FROM clientes ORDER BY no_folio") // consulta de todos los clientes
nSeek = oQry:Seek( C_SIMPLE + cVar + C_SIMPLE, "no_folio" )
if nSeek == 0
 ? "no hay nada"
else
 ? oQry:no_folio, oQry:nombre
endif

 


como te comentaba anteriormente todo actua sobre la consulta (traduccion de query)
User avatar
Daniel Garcia-Gil
 
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 pm
Location: Isla de Margarita

Re: TDolphin Clase para manejar MySql

Postby sysctrl2 » Thu Sep 23, 2010 1:53 am

Gracias Daniel,
voy a seguir probando.
saludos..
Cesar Cortes Cruz
SysCtrl Software
Mexico

' Sin +- FWH es mejor "
User avatar
sysctrl2
 
Posts: 1015
Joined: Mon Feb 05, 2007 7:15 pm

Re: TDolphin Clase para manejar MySql

Postby devtuxtla » Fri Sep 24, 2010 6:14 pm

Hola Daniel.

Existe un LINK directo para bajar la clase?

Saludos
Visite Chiapas, el paraiso de México.
devtuxtla
 
Posts: 392
Joined: Tue Jul 29, 2008 1:55 pm

PreviousNext

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: sysctrl2 and 48 guests