DBBrowse con MySQL

ddupre · Mensaje por **ddupre** » Sab Abr 25, 2009 10:26 pm

<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
</head>
<body bgcolor="#ffffff" text="#000000">
Hola foro: 
Necesito filtrar un DBBrowse (que muestra dos campos de una tabla) por
un campo que no se muestra, he probado ejecutar una sentencia SELECT
justo antes de asignar el DataSet al DBBrowse, pero no filtra nada. 
 
Entonces tengo dos preguntas: 
1) Esta es la forma correcta de filtrar 
2) Si la respuesta de la pregunta 1 es "si" Âdonde esta el error en el
SELECT? 
 
En el evento OnCreate del DBBrowse pongo esto: 
 
METHOD DBBrowseRamosCreate( oSender )
CLASS TRamos 
local cBuscar 
altd() 
WITH OBJECT ::oDBBrowseRamos 
 
ÂÂÂÂ WITH OBJECT TDBBrwColumn():New( ::oDBBrowseRamos ) 
ÂÂÂÂÂÂ Â :cHeader := "Nro. Ramo" 
ÂÂÂÂÂÂ Â :cTooltip := "Ordenar por Nro." 
ÂÂÂÂÂÂ Â :cPicture := "9999" 
ÂÂÂÂÂÂ Â :nAlignment := taRIGHTHEADERCENTER 
ÂÂÂÂÂÂ Â :nWidth := 100 
ÂÂÂÂÂÂ Â :oDataField := "NRORAMO" 
ÂÂÂÂÂÂ Â :Create() 
ÂÂÂÂ END WITH 
 
ÂÂÂÂ WITH OBJECT TDBBrwColumn():New( ::oDBBrowseRamos ) 
ÂÂÂÂÂÂ Â :cHeader := "Nombre" 
ÂÂÂÂÂÂ Â :cTooltip := "Ordenar por Nombre" 
ÂÂÂÂÂÂ Â :nWidth := 250 
ÂÂÂÂÂÂ Â :oDataField := "DETALLE" 
ÂÂÂÂÂÂ Â :Create() 
ÂÂÂÂ END WITH 
 
ÂÂÂÂ cBuscar := "SELECT nroramo detalle FROM ramos WHERE
nroempresa='&Appdata:nNroEmpresa'" 
ÂÂÂÂ // Appdata:nNroEmpresa es una variable donde guardo el numero de
la empresa que eligio 
 
ÂÂÂÂ Appdata:oDataSource:Execute(cBuscar) 
ÂÂÂÂ :oDataSet := AppData:oRamos 
 
END WITH 
 
RETURN Nil 
 
<big>Desde ya gracias por la ayuda. 
 
Saludos 
 
</big>
</body>
</html>