DBBrowse con MySQL
Publicado: 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:<br>
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.<br>
<br>
Entonces tengo dos preguntas:<br>
1) Esta es la forma correcta de filtrar<br>
2) Si la respuesta de la pregunta 1 es "si" Âdonde esta el error en el
SELECT?<br>
<br>
En el evento OnCreate del DBBrowse pongo esto:<br>
<br>
<font color="#333399"><small>METHOD DBBrowseRamosCreate( oSender )
CLASS TRamos<br>
local cBuscar<br>
altd()<br>
WITH OBJECT ::oDBBrowseRamos<br>
<br>
ÂÂÂÂ WITH OBJECT TDBBrwColumn():New( ::oDBBrowseRamos )<br>
ÂÂÂÂÂÂ Â :cHeader := "Nro. Ramo"<br>
ÂÂÂÂÂÂ Â :cTooltip := "Ordenar por Nro."<br>
ÂÂÂÂÂÂ Â :cPicture := "9999"<br>
ÂÂÂÂÂÂ Â :nAlignment := taRIGHTHEADERCENTER<br>
ÂÂÂÂÂÂ Â :nWidth := 100<br>
ÂÂÂÂÂÂ Â :oDataField := "NRORAMO"<br>
ÂÂÂÂÂÂ Â :Create()<br>
ÂÂÂÂ END WITH<br>
<br>
ÂÂÂÂ WITH OBJECT TDBBrwColumn():New( ::oDBBrowseRamos )<br>
ÂÂÂÂÂÂ Â :cHeader := "Nombre"<br>
ÂÂÂÂÂÂ Â :cTooltip := "Ordenar por Nombre"<br>
ÂÂÂÂÂÂ Â :nWidth := 250<br>
ÂÂÂÂÂÂ Â :oDataField := "DETALLE"<br>
ÂÂÂÂÂÂ Â :Create()<br>
ÂÂÂÂ END WITH<br>
<br>
ÂÂÂÂ cBuscar := "SELECT nroramo detalle FROM ramos WHERE
nroempresa='&Appdata:nNroEmpresa'"<br>
ÂÂÂÂ // Appdata:nNroEmpresa es una variable donde guardo el numero de
la empresa que eligio<br>
<br>
ÂÂÂÂ Appdata:oDataSource:Execute(cBuscar)<br>
ÂÂÂÂ :oDataSet := AppData:oRamos<br>
<br>
END WITH<br>
<br>
RETURN Nil<br>
<br>
<big><font color="#000000">Desde ya gracias por la ayuda.<br>
<br>
Saludos<br>
<br>
</font></big></small></font>
</body>
</html>
<html>
<head>
</head>
<body bgcolor="#ffffff" text="#000000">
Hola foro:<br>
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.<br>
<br>
Entonces tengo dos preguntas:<br>
1) Esta es la forma correcta de filtrar<br>
2) Si la respuesta de la pregunta 1 es "si" Âdonde esta el error en el
SELECT?<br>
<br>
En el evento OnCreate del DBBrowse pongo esto:<br>
<br>
<font color="#333399"><small>METHOD DBBrowseRamosCreate( oSender )
CLASS TRamos<br>
local cBuscar<br>
altd()<br>
WITH OBJECT ::oDBBrowseRamos<br>
<br>
ÂÂÂÂ WITH OBJECT TDBBrwColumn():New( ::oDBBrowseRamos )<br>
ÂÂÂÂÂÂ Â :cHeader := "Nro. Ramo"<br>
ÂÂÂÂÂÂ Â :cTooltip := "Ordenar por Nro."<br>
ÂÂÂÂÂÂ Â :cPicture := "9999"<br>
ÂÂÂÂÂÂ Â :nAlignment := taRIGHTHEADERCENTER<br>
ÂÂÂÂÂÂ Â :nWidth := 100<br>
ÂÂÂÂÂÂ Â :oDataField := "NRORAMO"<br>
ÂÂÂÂÂÂ Â :Create()<br>
ÂÂÂÂ END WITH<br>
<br>
ÂÂÂÂ WITH OBJECT TDBBrwColumn():New( ::oDBBrowseRamos )<br>
ÂÂÂÂÂÂ Â :cHeader := "Nombre"<br>
ÂÂÂÂÂÂ Â :cTooltip := "Ordenar por Nombre"<br>
ÂÂÂÂÂÂ Â :nWidth := 250<br>
ÂÂÂÂÂÂ Â :oDataField := "DETALLE"<br>
ÂÂÂÂÂÂ Â :Create()<br>
ÂÂÂÂ END WITH<br>
<br>
ÂÂÂÂ cBuscar := "SELECT nroramo detalle FROM ramos WHERE
nroempresa='&Appdata:nNroEmpresa'"<br>
ÂÂÂÂ // Appdata:nNroEmpresa es una variable donde guardo el numero de
la empresa que eligio<br>
<br>
ÂÂÂÂ Appdata:oDataSource:Execute(cBuscar)<br>
ÂÂÂÂ :oDataSet := AppData:oRamos<br>
<br>
END WITH<br>
<br>
RETURN Nil<br>
<br>
<big><font color="#000000">Desde ya gracias por la ayuda.<br>
<br>
Saludos<br>
<br>
</font></big></small></font>
</body>
</html>