Hola,

Necesito su ayuda en las consultas SQL sedning salida a las diferentes hojas de Excel.

Mi exigencia es como esta:

Consulta1: Seleccione el nombre del estado donde Tabla1 \u003d 'completo'
Query2: Seleccione el nombre del estado donde Tabla1 \u003d 'Error'
Query3: Seleccione el nombre del estado donde Tabla1 \u003d 'ignorados'

Cuando ejecutar estas preguntas, quiero salida de Consulta1 estar en Sheet1 y salida de query2 estar en Hoja2 y la producción de query3 en sheet3 de un archivo de Excel.

No está seguro si se puede lograr utilizando sqlplus.

¿Podría alguien por favor me ayude en esto.

Gracias.
Parvathi

Usted puede hacer que en perl mediante simple:: Excel

Hola dinjo_jo,

Gracias por tus aportaciones.
¿Podría decirme el procedimiento para hacer eso?
lo siento por preguntar. Yo sé perl pero no en esta medida.

Una vez más gracias.

Parvathi.

Tengo que hacerlo en sybase utilizando perl.

uso de hoja de cálculo:: WriteExcel;
uso de hoja de cálculo:: WriteExcel:: Hoja de trabajo;
uso de Sybase:Blib;

@ mis resultados;


my $ sql \u003d "select *"
my $ dbh \u003d Sybase:Blib-> new ($ user, $ passwd, $ servidor);
if (defined $ dbh)
(
@ resultados \u003d $ dbh-> nsql ($ sql, "hash");
)
algo más
(
print "No hay conexión PP encontradas $ servidor";
)

mi hoja de cálculo \u003d $ ebook:: WriteExcel-> new (archivo);
mi \u003d $ $ esheet ebook-> addworksheet ($ title);
my $ format \u003d $ ebook-> addformat ();
mi \u003d $ $ formatheader ebook-> addformat ();
mi \u003d $ $ formatcolumn ebook-> addformat ();

$ formatheader-> set_size (20);
$ formatheader-> set_font ( "Verdana");
$ formatheader-> set_color ( 'café');
$ formatheader-> set_align ( 'centro');
$ formatheader-> set_bold ();
$ formatheader-> set_merge ();


$ formatcolumn-> set_size (10);
$ formatcolumn-> set_font ( "Verdana");
$ formatcolumn-> set_color ( 'armada');
$ formatcolumn-> set_align ( 'centro');
$ formatcolumn-> set_bold ();
$ formatcolumn-> set_italic ();

$ formato-> set_color ( 'negro');
$ formato-> set_font ( "Verdana");
$ formato-> set_align ( 'centro');

$ esheet-> write_blank (0,0, $ formatheader);
$ esheet-> write_blank (0,1, $ formatheader);
$ esheet-> write_blank (0,2, $ formatheader);
$ esheet-> write_blank (0,3, $ formatheader);
$ esheet-> set_column (0, 2, 25, $ formatheader);


$ esheet-> set_column (2, 0, 25, $ formatcolumn);
$ esheet-> set_column (2, 1, 25, $ formatcolumn);
$ esheet-> set_column (2, 2, 25, $ formatcolumn);
$ esheet-> set_column (2, 3, 25, $ formatcolumn);
$ esheet-> set_column (2, 4, 25, $ formatcolumn);


my $ o \u003d 0;
foreach my $ valores (@ resultados)
(
$ esheet-> set_column (3, $ o, 25, $ formato);
$ esheet-> escribir ($ i, 0, "$ valores-> ( 'Branches_ShortName'}",$ formato);
$ esheet-> escribir ($ i, 1, "$ valores-> ( 'Portfolios_ShortName'}",$ formato);
$ esheet-> escribir ($ i, 2, "$ valores-> ( 'Portfolios_Name'}",$ formato);
$ esheet-> escribir ($ i, 3, "$ valores-> ( 'Folders_ShortName'}",$ formato);
$ esheet-> escribir ($ i, 4, "$ valores-> ( 'Folders_Name'}",$ formato);
$ i + +;
$ o + +;
)

$ ebook-> close ();

Gracias dinjo_jo.

Utilizará esta para obtener los resultados que busco.

Muchas gracias ... Usted ha sido muy útil.

Parvathi.