FiveTech Software tech support forums

Los COLLATION siven para cambiar la manera en que ordenamos la información. Si nos fijamos en los COLLATION presentes para UTF-8, podemos apreciar de que existen 2 que llaman la atención: utf8_spanish_ci y utf8_spanish2_ci.

La diferencia entre ambos es que la primera se ocupa para español moderno mientras que la segunda se aplica a español tradicional. De esta forma, podemos ver que ambos incorporan el uso de la “Ñ” como una letra entre la “N” y la “O”, de forma que si tenemos los siguientes registros:

Una COLLATION utf8_spanish_ci ordenará los registros de una forma mientras que utf8_spanish2_ci la ordenará de otra, debido a que el español tradicional considera “ch” como una letra entre la “C” y la “D”. Asimismo, considera el uso de la letra “LL” como una letra entre la “L” y “M”.

Además, utf8 general-ci, que, entre otras cosas, considera iguales las letras "N" y "N", y también entre mayúsculas y minúsculas (utf8 General ** - ** ci). Esto también se aplica a las tildes, no hay diferencia entre papa y papá

cmsoft wrote:Gracias Cristobal por responder. Lei eso, probé cambiar la tabla, pero igual al hacer la busqueda con xbrowse no ubica el registro que tiene el criterio escrito en cSeek. No se si hay algun seteo en xbrowse para indicar la coleccion de caracteres.

Code: Select all  Expand view

#include "fivewin.ch"
#include "tdolphin.ch"

REQUEST HB_LANG_ES
REQUEST HB_CODEPAGE_ESWIN

static oCn, oServer
static cHost := "localhost", cUser := "gnrao", cPwd := "secret", cDB := "fwh"
static cCollate   := "utf8_spanish2_ci"

//----------------------------------------------------------------------------//

function Main()

   HB_CDPSELECT("ESWIN")
   HB_LangSelect( "ES" )

   FWMYSQL_test()
   Dolphin_test()

return nil

//----------------------------------------------------------------------------//

function FWMYSQL_test()

   local oRs
   local aData := { { "CAMISA" }, { "CAÑA" },  { "CANDADO" }, { "CANILLA" }, ;
                  { "CAÑO" }, { "CANOBOTE" } }

   FWCONNECT oCn HOST cHost USER cUser PASSWORD cPwd DATABASE cDB

   if oCn:TableExists( "cana" )
      ocn:DropTable( "cana" )
   endif
   oCn:CreateTable( "cana", { { "name", 'C', 20, 0, cCollate } }, .t., cCollate )

   oCn:Insert( "cana", { "name" }, aData )

   oRs   := oCn:RowSet( "cana" )
   oRs:Sort := "name"  // Sorting at Client by RowSet
   oRs:GoTop()

   xbrowser oRs TITLE "FWH " + cCollate AUTOSORT

return nil

//----------------------------------------------------------------------------//

function Dolphin_test()

   local oQry

   CONNECT oServer HOST cHost USER cUser PASSWORD cPwd DATABASE cDB

   oQry  := oServer:Query( "select * from cana order by name" )

   XBROWSER oQry TITLE "Dolphin " + cCollate AUTOSORT

return nil

//----------------------------------------------------------------------------//
 

Code: Select all  Expand view

static cCollate   := "utf8_general_ci"
 

Code: Select all  Expand view

static FUNCTION DolphinSeek( c, oQry, oBrw )

   LOCAL nStart
   LOCAL uData, nNum
   LOCAL cSortOrder

   STATIC aLastRec := {}

   nNum = AScan( oBrw:aCols, {| o | !Empty( o:cOrder ) } )

   if nNum < 1
      RETURN .f.
   endif

   cSortOrder = oBrw:aCols[ nNum ]:cSortOrder

   IF Len( aLastRec ) < Len( c )
      IF Len( aLastRec ) == 0
         nStart = 1
      ELSE
         nStart = oQry:RecNo()
      ENDIF
      AAdd( aLastRec, nStart )
   ELSE
      ADel( aLastRec, Len( aLastRec ) )
      ASize( aLastRec, Len( aLastRec ) - 1 )
      IF Len( aLastRec ) == 0
         nStart = 1
      ELSE
         nStart = ATail( aLastRec )
      ENDIF
   ENDIF

   oQry:Seek( c, cSortOrder, nStart, oQry:LastRec(), .T., .T. )

RETURN .T.

COMMENT='Tabla de Tutores'
COLLATE='latin1_spanish_ci'
ENGINE=InnoDB