Daniel Garcia-Gil wrote:Dolphin ahora disponible para MSVC 32 y 64 bits
http://tdolphin.blogspot.com/
METHOD Seek()
METHOD Locate()
METHOD Find()
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
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
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 70 guests