ya me salio
Publicado por ronny (12 intervenciones) el 27/06/2002 17:53:31
string ls_error, ls_newsyntax
CHOOSE CASE ddlb_tablas.text
CASE "proveedores"
ls_newsyntax = SQLCA.syntaxFromSQL("Select Suppliers.SupplierID, Suppliers.CompanyName, Suppliers.ContactName, Suppliers.ContactTitle FROM Suppliers","style(type="+ddlb_tipo.text+")",ls_error)
dw_1.create(ls_newsyntax, ls_error)
dw_1.settransobject(SQLCA)
dw_1.retrieve()
CASE "empleados"
gb_empleados.visible = true
cbx_codemple.visible = true
cbx_nomemple.visible = true
cbx_suplierid.visible = true
cbx_categoryid.visible = true
ls_newsyntax = SQLCA.syntaxFromSQL("SELECT Employees.EmployeeID, Employees.Title, Employees.FirstName, Employees.LastName FROM Employees","style(type="+ddlb_tipo.text+")",ls_error)
dw_1.create(ls_newsyntax, ls_error)
dw_1.settransobject(SQLCA)
dw_1.retrieve()
CASE "productos"
ls_newsyntax = SQLCA.syntaxFromSQL("SELECT Products.ProductID, Products.ProductName, Products.SupplierID, Products.CategoryID FROM Products","style(type="+ddlb_tipo.text+")",ls_error)
dw_1.create(ls_newsyntax, ls_error)
dw_1.settransobject(SQLCA)
dw_1.retrieve()
END CHOOSE
aca escogo la tabla y elt tipo de data window
grid
tabular
freeform
CHOOSE CASE ddlb_tablas.text
CASE "proveedores"
ls_newsyntax = SQLCA.syntaxFromSQL("Select Suppliers.SupplierID, Suppliers.CompanyName, Suppliers.ContactName, Suppliers.ContactTitle FROM Suppliers","style(type="+ddlb_tipo.text+")",ls_error)
dw_1.create(ls_newsyntax, ls_error)
dw_1.settransobject(SQLCA)
dw_1.retrieve()
CASE "empleados"
gb_empleados.visible = true
cbx_codemple.visible = true
cbx_nomemple.visible = true
cbx_suplierid.visible = true
cbx_categoryid.visible = true
ls_newsyntax = SQLCA.syntaxFromSQL("SELECT Employees.EmployeeID, Employees.Title, Employees.FirstName, Employees.LastName FROM Employees","style(type="+ddlb_tipo.text+")",ls_error)
dw_1.create(ls_newsyntax, ls_error)
dw_1.settransobject(SQLCA)
dw_1.retrieve()
CASE "productos"
ls_newsyntax = SQLCA.syntaxFromSQL("SELECT Products.ProductID, Products.ProductName, Products.SupplierID, Products.CategoryID FROM Products","style(type="+ddlb_tipo.text+")",ls_error)
dw_1.create(ls_newsyntax, ls_error)
dw_1.settransobject(SQLCA)
dw_1.retrieve()
END CHOOSE
aca escogo la tabla y elt tipo de data window
grid
tabular
freeform
Valora esta pregunta
0