tengo la siguiente uregencia, quiero saber si se puede hacer una busqueda como lo hacia con dbf, cuando este tecleando las letras se posesione en el registo correspondiente, eso se puede hacer con ado, uso sql server
gracias
oBrw := TXBrowse():New(oWnd)
oBrw:SetAdo(oRs)
oBrw:CreateFromCode()
oWnd:oClient := oBrw
oBrw:bSeek := { | c | Busca(c,oRs) }
oBrw:oSeek := oSay
//---------------------------------
STATIC FUNCTION Busca(cBuscar,oRs)
LOCAL nLen:=Len(cBuscar)
STATIC nLenAnt
DEFAULT nLenAnt:=0
IF Len(cBuscar)>1
IF(nLenAnt>nLen,oRs:MoveFirst(),)
oRs:Find( "Nombre LIKE '"+cBuscar+"*'",,1)
ELSE
oRs:MoveFirst()
IF !Empty(cBuscar)
oRs:Find( "Nombre LIKE '"+cBuscar+"*'",,1)
ENDIF
ENDIF
nLenAnt:=nLen
RETURN !(oRs:Eof.OR.oRs:Bof)
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 70 guests