TDolphin Clase para manejar MySql

[Ruben Fernandez]

Gracias Daniel...

Al fin pude conectarme a una bases de datos MySql.

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

Gracias de nuevo.

[Daniel Garcia-Gil]

Saludos

Ya he dejado un ejemplo para configurar xbrowse el uso de busqueda incremental y el ordenamiento de columnas

[Marcelo Via Giglio]

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

[Daniel Garcia-Gil]

Marcelo

Aun no he hecho el ejemplo para el Uso de MySql embebido, espero pronto hacerlo

[Daniel Garcia-Gil]

Dolphin ahora disponible para MSVC 32 y 64 bits

http://tdolphin.blogspot.com/

[jose_murugosa]

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.

[AIDA]

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

Saluditos

[Daniel Garcia-Gil]

Aida, Jose

estoy a la orden

[sysctrl2]

Alguien me puede explicar las diferencias de los siguientes metodos?

Code: Select all  Expand view  RUN

METHOD Seek()
METHOD Locate()
METHOD Find()

saludos.

[Daniel Garcia-Gil]

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

[sysctrl2]

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.

[sysctrl2]

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  RUN

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.

[Daniel Garcia-Gil]

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  RUN

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)

[sysctrl2]

Gracias Daniel,
voy a seguir probando.
saludos..

[devtuxtla]

Hola Daniel.

Existe un LINK directo para bajar la clase?

Saludos