[Cascavel-pm] Re:Conectar o SQL Server

Solli Moreira Honorio shonorio em terra.com.br
Terça Fevereiro 15 11:40:36 PST 2005


Rafael,

Pelo jeito você deve estar utilizando Linux, se for o caso peço desculpa porque sugeri uma solução sem perguntar em qual plataforma você está trabalhando.

A solução que eu enviei é apenas para Windows, e se você for o caso, dê uma olhada no ActivePerl (http://www.activestate.com), é o melhor Perl para Windows, e já tem o módulo Win32::OLE.

Solli M. Honorio
Perl's Hobby


De:cascavel-pm-bounces em pm.org

Para:cascavel-pm em pm.org

Cópia:

Data:Tue, 15 Feb 2005 10:48:00 -0300

Assunto:[Cascavel-pm] Re:Conectar o SQL Server

  

> Muito obrigado pela ajuda de vocês, Luis Campos de Carvalho e Solli Moreira
> Honorio.
> 
> Tenho uma outra dúvida. Solli, para usar o seu código preciso instalar o
> módulo Win32::OLE, certo?
> 
> Pois é, tentei instalar, mas não consegui.
> 
> O modo que eu utilizo para instalar módulos é o seguinte:
> 
> - Entro com o comando cpan
> 
> - Depois digito o comando install Win32::ADO
> 
> Seguindo esses dois comandos era para instalar, não é? Ou estou errado? Ou
> falta alguma coisa?
> 
> Abraços,
> 
> Rafael Szarblewski
> Perl Developer
> 
> 
> ----- Original Message ----- 
> From: 
> To: 
> Sent: Tuesday, February 15, 2005 2:35 AM
> Subject: Digest Cascavel-pm, volume 82, assunto 1
> 
> 
> enviar inscrições da lista de discussão Send Cascavel-pm para
> cascavel-pm em pm.org
> 
> Para se cadastrar ou descadastrar via WWW, visite o endereço
> http://mail.pm.org/mailman/listinfo/cascavel-pm
> ou, via email, envie uma mensagem com a palavra 'help' no assunto ou
> corpo da mensagem para
> cascavel-pm-request em pm.org
> 
> Você poderá entrar em contato com a pessoa que gerencia a lista pelo
> endereço
> cascavel-pm-owner em pm.org
> 
> Quando responder, por favor edite sua linha Assunto assim ela será
> mais específica que "Re: Contents of Cascavel-pm digest..."
> 
> 
> Tópicos de Hoje:
> 
> 1. Re: Duvida sobre o GD::Image (Daniel Ruoso)
> 2. Re: YAPC::Brasil::2005 / 2º Encontro Nacional
> (Luis Campos de Carvalho)
> 3. Re: Duvida sobre o GD::Image (Luis Campos de Carvalho)
> 4. Re: YAPC::Brasil::2005 / 2º Encontro Nacional
> (Luis Campos de Carvalho)
> 5. Conectar o SQL Server (Rafael Szarblewski)
> 6. Win32::GUI notify icon (tray) (Donato Azevedo)
> 7. Re: Conectar o SQL Server (Luis Campos de Carvalho)
> 8. YAPC::Brasil::2005 / 2º Encontro Nacional (João Gabriel)
> 9. Re:Conectar o SQL Server (Solli Moreira Honorio)
> 
> 
> ----------------------------------------------------------------------
> 
> Message: 1
> Date: Sat, 12 Feb 2005 08:40:10 -0300
> From: Daniel Ruoso 
> Subject: Re: [Cascavel-pm] Duvida sobre o GD::Image
> To: Cascavel Perl Mongers 
> Message-ID: <1108208410.1395.3.camel em cedro>
> Content-Type: text/plain; charset=ISO-8859-1
> 
> Mas porque salvar em arquivo?
> 
> é só fazer a chamada da imagem direto para o cgi que cospe a imagem...
> tipo
> 
> 
> Em Sex, 2005-02-11 às 19:29, Alceu R. de Freitas Jr. escreveu:
> > Douglas, vc pode usar uma função em javascript para
> > fazer uma outra chamada para o CGI apagar a figura
> > assim que o usuário abandonar a página.
> >
> > Bem é só uma idéia. :-)
> >
> > []'s
> > Alceu
> >
> > --- Douglas de Souza 
> > escreveu:
> > > Usei outra solução,
> > >
> > > fiz com que o cgi gravasse a imagem em um arquivo
> > > .png
> > >
> > > portanto para nao ficar milhares de arquivo e como
> > > nao podia ser o mesmo
> > > nome para todos
> > >
> > > coloquei assim ano mes dia hora minuto segundo.png
> > > (sem o espaço)
> > >
> > > e fiz ele executar no final do cgi uma funcao que
> > > verifica todoas as imagens
> > > só deixa
> > >
> > > na pasta as imagens de 1 minutos a menos
> > >
> > > ex: 2005 02 11 18 27 50.png (sem o espaco)
> > >
> > > coloquei um if p/ comparar se for < que $data-100
> > >
> > > ele deleta o arquivo...
> > >
> > > assim nao preciso passar por get o comando
> > >
> > > Achei mais seguro...
> > >
> > > []'s Douglas
> > >
> > >
> > > ----- Original Message ----- 
> > > From: "Luis Campos de Carvalho"
> > > 
> > > To: "Cascavel Perl Mongers" 
> > > Sent: Friday, February 11, 2005 9:23 AM
> > > Subject: Re: [Cascavel-pm] Duvida sobre o GD::Image
> > >
> > >
> > > Douglas de Souza wrote:
> > > > Ola,
> > > > fiz um cgi/perl usando o modulo GD::Image
> > > > portanto neste cgi ele só imprime a imagem
> > > > como faço p/ colocar HTML junto???
> > > > coloquei assim
> > > >
> > > > #!/usr/bin/perl
> > > > use GD;
> > > > $im = newFromPng GD::Image(PNG);
> > > > print "Content-type:text/html\n\n";
> > > > print "Teste de CGI, testando bahhhhhhhhh";
> > > > print "Olha a imagem que eu fizzzzzzzz";
> > > > print "Content-type:image/png\n\n";
> > > > binmode STDOUT;
> > > > print $im->png;
> > > >
> > > > só que dai sai um monte de código:
> > > >
> > > > Content-type:image/png ?PNG  IHDRJn
> > > >
> > > > como faço p/ imprimir os dois no mesmo CGI ?
> > >
> > > Oies, Douglas.
> > > Para isso, você precisa respeitar o protocolo
> > > HTTP, que diz que cada
> > > Content-Type requisitado deve ser enviado
> > > separadamente do restante.
> > >
> > > Desta forma, para que o browser possa requisitar
> > > a imagem (componente
> > > do HTML) ele deve primeiro requisitar o HTML.
> > >
> > > Para fucnionar:
> > > 1. Construa um script CGI (ou página HTML) que
> > > envie sua página HTML
> > > (com referência para o script que gera sua imagem).
> > > 2. Publique a página
> > > 3. Requisite a página HTML. Automaticamente o seu
> > > browser requisitará
> > > a imagem (proveniente do script).
> > >
> > > Espero que isso te ajude.
> > > Se ficou confuso, por favor pergunte mais, eu
> > > estou à disposição para
> > > ajudar.
> > >
> > > Putamplexos!
> > > -- 
> > > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
> > > Luis Campos de Carvalho is BSc in Comp Science,
> > > PerlMonk [SiteDocClan], Sao Paulo PM Leader,
> > > Unix Sys Admin && Certified Oracle DBA
> > > http://br.geocities.com/monsieur_champs/
> > > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
> > >
> > > _______________________________________________
> > > Cascavel-pm mailing list
> > > Cascavel-pm em pm.org
> > > http://mail.pm.org/mailman/listinfo/cascavel-pm
> > >
> > >
> > >
> > >
> > > _______________________________________________
> > > Cascavel-pm mailing list
> > > Cascavel-pm em pm.org
> > > http://mail.pm.org/mailman/listinfo/cascavel-pm
> > >
> >
> >
> >
> >
> >
> > _______________________________________________________
> > Yahoo! Acesso Grátis - Instale o discador do Yahoo! agora.
> http://br.acesso.yahoo.com/ - Internet rápida e grátis
> > _______________________________________________
> > Cascavel-pm mailing list
> > Cascavel-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/cascavel-pm
> 
> 
> 
> ------------------------------
> 
> Message: 2
> Date: Mon, 14 Feb 2005 00:57:47 -0300
> From: Luis Campos de Carvalho 
> Subject: Re: [Cascavel-pm] YAPC::Brasil::2005 / 2º Encontro Nacional
> To: Cascavel Perl Mongers 
> Message-ID: <421021BB.1010009 em yahoo.com.br>
> Content-Type: text/plain; charset=ISO-8859-1; format=flowed
> 
> João Gabriel wrote:
> > Realmente não sei se vale a pena eu "matar" uma semana de aula e pegar
> > 4 dias de ônibus (2 pra ir e 2 pra voltar) para ver palestras na qual
> > eu (e outros creio eu) não tivemos mais noticias e fotos do evento.
> >
> > Realmente acho que ficou "vaga" de certa forma a divulgação do evento
> > para quem ainda não conheçe-o.
> >
> > (outro dia me chamaram de louco por falar da minha possivel idéia de
> > ir ao evento [ja que poucos sabem os beneficios do encontro])
> >
> > Fica ai a minha idéia de divulgar mais e melhor o evento.
> >
> 
> Olha, vai chover canivete aberto, mas desta vez eu vou fazer minhas
> as palavras do JG... :-o
> 
> -- 
> =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
> Luis Campos de Carvalho is BSc in Comp Science,
> PerlMonk [SiteDocClan], Sao Paulo PM Leader,
> Unix Sys Admin && Certified Oracle DBA
> http://br.geocities.com/monsieur_champs/
> =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
> 
> 
> 
> ------------------------------
> 
> Message: 3
> Date: Mon, 14 Feb 2005 02:09:15 -0300
> From: Luis Campos de Carvalho 
> Subject: Re: [Cascavel-pm] Duvida sobre o GD::Image
> To: Cascavel Perl Mongers 
> Message-ID: <4210327B.5040301 em yahoo.com.br>
> Content-Type: text/plain; charset=ISO-8859-1; format=flowed
> 
> Daniel Ruoso wrote:
> > Mas porque salvar em arquivo?
> >
> > é só fazer a chamada da imagem direto para o cgi que cospe a imagem...
> > tipo
> > 
> 
> Claro, este script deve utilizar algumas técnicas de caching ou você
> vai precisar de muito processador para atender a todas as requisições de
> imagens...
> 
> Eu recomendo também implementar algum limite sobre quantas
> requisições um usuário (IP único) pode fazer por minuto, para evitar
> ataques DoS.
> 
> Putamplexos!
> -- 
> =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
> Luis Campos de Carvalho is BSc in Comp Science,
> PerlMonk [SiteDocClan], Sao Paulo PM Leader,
> Unix Sys Admin && Certified Oracle DBA
> http://br.geocities.com/monsieur_champs/
> =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
> 
> 
> 
> ------------------------------
> 
> Message: 4
> Date: Mon, 14 Feb 2005 02:16:43 -0300
> From: Luis Campos de Carvalho 
> Subject: Re: [Cascavel-pm] YAPC::Brasil::2005 / 2º Encontro Nacional
> To: Cascavel Perl Mongers 
> Message-ID: <4210343B.2070807 em yahoo.com.br>
> Content-Type: text/plain; charset=ISO-8859-1; format=flowed
> 
> Luis Campos de Carvalho wrote:
> > João Gabriel wrote:
> >
> >> Realmente não sei se vale a pena eu "matar" uma semana de aula e pegar
> >> 4 dias de ônibus (2 pra ir e 2 pra voltar) para ver palestras na qual
> >> eu (e outros creio eu) não tivemos mais noticias e fotos do evento.
> >>
> >> Realmente acho que ficou "vaga" de certa forma a divulgação do evento
> >> para quem ainda não conheçe-o.
> >>
> >> (outro dia me chamaram de louco por falar da minha possivel idéia de
> >> ir ao evento [ja que poucos sabem os beneficios do encontro])
> >>
> >> Fica ai a minha idéia de divulgar mais e melhor o evento.
> >>
> >
> > Olha, vai chover canivete aberto, mas desta vez eu vou fazer minhas as
> > palavras do JG... :-o
> >
> 
> Impressionante... eu fui procurar na lista, e acho que esta é a
> primeira vez que eu concordo com alguma coisa que o JG posta (nada
> pessoal, JG!)... vai MESMO chover canivete aberto...
> 
> Deve ser o sono, eu vou dormir...
> Putamplexos para todos!
> -- 
> =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
> Luis Campos de Carvalho is BSc in Comp Science,
> PerlMonk [SiteDocClan], Sao Paulo PM Leader,
> Unix Sys Admin && Certified Oracle DBA
> http://br.geocities.com/monsieur_champs/
> =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
> 
> 
> 
> ------------------------------
> 
> Message: 5
> Date: Mon, 14 Feb 2005 12:04:46 -0300
> From: "Rafael Szarblewski" 
> Subject: [Cascavel-pm] Conectar o SQL Server
> To: 
> Message-ID: <01cb01c512a6$86658b40$24c8a8c0 em sistemica>
> Content-Type: text/plain; charset="iso-8859-1"
> 
> Olá Monges,
> 
> Alguém sabe me dizer se existe algum módulo para conectar ao SQL Server?
> 
> Desde já agradeço.
> 
> Um abraço,
> 
> ----------------------------------------------------------------------------
> ----
> Rafael Szarblewski - Sistêmica Computadores
> Desenvolvedor Web
> rafael em sistemica.info
> Fone: (51)3328-11-22
> -------------- Próxima Parte ----------
> Um anexo em HTML foi limpo...
> URL:
> http://mail.pm.org/pipermail/cascavel-pm/attachments/20050214/6a56f6e2/attachment-0001.htm
> 
> ------------------------------
> 
> Message: 6
> Date: Mon, 14 Feb 2005 11:03:12 -0300
> From: Donato Azevedo 
> Subject: [Cascavel-pm] Win32::GUI notify icon (tray)
> To: Cascavel Perl Mongers 
> Message-ID: <1746e3e30502140603501adbc7 em mail.gmail.com>
> Content-Type: text/plain; charset=ISO-8859-1
> 
> Olá pessoal,
> 
> eu estava tentando fazer um script para mandar uma janela qualquer da
> barra de tarefas para a tray bar. (criar um icone na tray para uma
> janela qualquer cujo nome é especificado em runtime)
> com uma janela recem criada é simples:
> new Win32::GUI::NotifyIcon(PARENT, %OPTIONS)
> porem para uma janela para a qual eu peguei o handle usando FindWindow
> eu nao consigo. Eu sei que para handles obtidos sem construção nao se
> tem aceso aos metodos de maneira normal (sao overloaded) mas nao sei
> se existe alguma restricao quanto a metodos construtores...
> alguem pode ajudar um GUI::Newbie??
> -- 
> *******************************************
> Donato Azevedo
> Engenharia de Controle e Automação
> UFMG
> *******************************************
> 
> 
> ------------------------------
> 
> Message: 7
> Date: Mon, 14 Feb 2005 13:07:10 -0300
> From: Luis Campos de Carvalho 
> Subject: Re: [Cascavel-pm] Conectar o SQL Server
> To: Cascavel Perl Mongers 
> Message-ID: <4210CCAE.30306 em yahoo.com.br>
> Content-Type: text/plain; charset=ISO-8859-1; format=flowed
> 
> Rafael Szarblewski wrote:
> > Olá Monges,
> >
> > Alguém sabe me dizer se existe algum módulo para conectar ao SQL Server?
> >
> > Desde já agradeço.
> 
> DBD específico, acho que não.
> Mas certamente o SQL Server é compatível com padrão ODBC, e você pode
> usar o DBI+DBD::ODBC, certamente.
> 
> Existem referências sobre isso nos arquivos desta lista.
> Acho que você poderia tentar dar uma espiada.
> Se precisar de mais ajuda que isso, ainda esta semana eu orientei o
> João Gabriel sobre a forma correta de usar a interface com banco de
> dados através da interface em duas camadas DBI + DBD. Acho que você pode
> se aproveitar da leitura, também...
> 
> No mais, acho que uma boa hora de leitura de manuais será suficiente
> para fazer com que você consiga usar corretamente os drivers e interfaces.
> 
> 
> Se precisar de alguma ajuda específica, ou algum truque especial,
> conte conosco. Os monges do Perl sempre têm um mantra extra na manga... ;-)
> 
> Paz e Glória!
> Putamplexos!
> -- 
> =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
> Luis Campos de Carvalho is BSc in Comp Science,
> PerlMonk [SiteDocClan], Sao Paulo PM Leader,
> Unix Sys Admin && Certified Oracle DBA
> http://br.geocities.com/monsieur_champs/
> =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
> 
> 
> 
> ------------------------------
> 
> Message: 8
> Date: Mon, 14 Feb 2005 19:18:12 -0300
> From: João Gabriel 
> Subject: [Cascavel-pm] YAPC::Brasil::2005 / 2º Encontro Nacional
> To: cascavel-pm em mail.pm.org
> Message-ID: <8ff2963a05021414181308e166 em mail.gmail.com>
> Content-Type: text/plain; charset=ISO-8859-1
> 
> Luis Campos...
> > Impressionante... eu fui procurar na lista, e acho que esta é a
> >primeira vez que eu concordo com alguma coisa que o JG posta (nada
> >pessoal, JG!)... vai MESMO chover canivete aberto...
> >
> > Deve ser o sono, eu vou dormir...
> 
> Tú deveria está com muito sono na hora que postou isso... rsrs
> 
> mas não sei pq não concordou com minhas outras idéias... (vai ver é
> porque eu só perguntei ou vc tem alguma marra comigo).
> 
> Quando estiver com sono e sem nada pra fazer, dá uma visitada no
> Vitoria PM, CGiClube, fórums de perl espalhados pela net afora (tem
> bastande brasileiros precisando de ajuda)... :D
> 
> Quanto ao site do YAPC Brasil 2005, quanto entra no ar??
> 
> -- 
> Um abraço,
> João Gabriel / JGCL
> 
> 
> ------------------------------
> 
> Message: 9
> Date: Tue, 15 Feb 2005 02:35:18 -0300
> From: "Solli Moreira Honorio" 
> Subject: Re:[Cascavel-pm] Conectar o SQL Server
> To: "cascavel-pm" 
> Message-ID: 
> Content-Type: text/plain; charset="iso-8859-1"
> 
> Rafael,
> 
> Estou enviando uma fração do meu código base para acessar o SQL Server, tome
> o cuidado (e faça as alterações necessárias) com as constantes que estão no
> código.
> 
> O código acessa o SQL via Ado, e está com as melhores práticas de acesso
> neste componente.
> 
> Se você tiver interessado em ver as 1001 connection strings para OLEDB, dê
> uma olhada no link
> http://www.able-consulting.com/MDAC/ADO/Connection/OLEDB_Providers.htm
> 
> Solli M. Honorio
> 
> 
> use Win32::OLE qw(in);
> use Win32::OLE::Const;
> sub ConnectDB
> {
> my $DBConn = Win32::OLE->new('ADODB.Connection');
> my $DB_CONNECTION = shift;
> 
> $DBConn->Open( $DB_CONNECTION );
> if ( Win32::OLE->LastError() )
> {
> my $Error = Win32::OLE->LastError();
> # Trate o erro aqui !!!
> return undef;
> }
> else
> {
> return $DBConn;
> }
> }
> sub DBExecute
> {
> my ($DB_CONNECTION, $String, $ToReturn, $ErrosReturn ) = @_;
> my ($DBConn, $RS, $ArgCount);
> my $Loop = 0;
> 
> return INVALID_PARAMETER if ( ref ( $String ) );
> return NULL_PARAMETER if (! $String );
> $ArgCount = ( scalar (@_) - 2 ); # Get number of
> argument
> if ( $DBConn = ConnectDB($DB_CONNECTION) ) # Try to connect on
> DB
> { # ... if ok ...
> if (! $ArgCount ) # If has just one argument, then it's mean
> { # no recordset
> $DBConn->Execute ( $String, undef, (0x00000080 + 0x0001) );
> }
> else # Otherwise mean recordset
> {
> $RS = $DBConn->Execute ( $String );
> }
> if ( Win32::OLE->LastError() )
> {
> # If any error happen, write error message on EventLog
> # and abort this class.
> my $Error = Win32::OLE->LastError();
> WriteEventLog ( $ENV{COMPUTERNAME}, # Computer name
> ERROR_DB_EXCUTE, # Event ID
> $Error, # String
> EVT_ERROR); # Event Type
> return ERROR_DB_EXCUTE;
> }
> if (! $ArgCount ) # Return ok if don't need anything more
> { $DBConn->Close(); return };
> # Clear any before data on an array ref.
> map { pop @{$ToReturn} } @{$ToReturn};
> # Save the result on array.
> while ( )
> {
> # Get all message returned by ADO connection
> foreach my $Error ( in ( $DBConn->Errors() ) )
> {
> my $Description = $Error->{Description};
> $Description =~ s/\s*$//;
> push @{$ErrosReturn}, $Description;
> }
> 
> if ( defined $RS->{EOF} )
> {
> while (! $RS->{EOF} )
> {
> my %hash = ();
> foreach my $field ( in ( $RS->Fields() ) )
> {
> $hash{$field->{Name}} = $field->{Value}
> }
> push @{$ToReturn}, \%hash;
> $RS->MoveNext;
> }
> }
> eval { $RS = $RS->NextRecordSet(); };
> last if ( $@ );
> }
> # Clean all object used by ADO connection...
> $RS->Close();
> $DBConn->Close();
> undef $RS;
> undef $DBConn;
> return;
> }
> else
> {
> return ERROR_DB_CONNECT;
> }
> }
> my $ConnectionString = "Provider=sqloledb; Data Source=Server; Initial
> Catalog=master;Integrated Security=SSPI";
> my $string = "select * from table";
> DBExecute ($ConnectionString, $string, \@Return );
> 
> 
> De:cascavel-pm-bounces em pm.org
> 
> Para:cascavel-pm em pm.org
> 
> Cópia:
> 
> Data:Mon, 14 Feb 2005 12:04:46 -0300
> 
> Assunto:[Cascavel-pm] Conectar o SQL Server
> 
> 
> 
> > Olá Monges,
> >
> > Alguém sabe me dizer se existe algum módulo para conectar ao SQL Server?
> >
> > Desde já agradeço.
> >
> > Um abraço,
> 
> 
> Rafael Szarblewski - Sistêmica Computadores
> Desenvolvedor Web
> rafael em sistemica.info
> Fone: (51)3328-11-22
> -------------- Próxima Parte ----------
> Um anexo em HTML foi limpo...
> URL:
> http://mail.pm.org/pipermail/cascavel-pm/attachments/20050215/1cc8636e/attachment.htm
> 
> ------------------------------
> 
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
> 
> Fim da Digest Cascavel-pm, volume 82, assunto 1
> ***********************************************
> 
> 
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20050215/8af64970/attachment-0001.htm


Mais detalhes sobre a lista de discussão Cascavel-pm