MUDEI DE LADO . . .

Resolvi ficar ao lado de Lula ...
Que me desculpem meus amigos, e por favor não me critiquem, mas após esfriar a cabeça e analisar melhor a situação atual, considerei melhor... e mudei..... de agora em diante, ficarei ao lado do Lula !

Se eu ficar atrás... Ele me caga.
Se eu ficar na frente... Ele me fode!
Como não há alternativa, resolvi ficar ao lado dele...

ENTÃO, PENSANDO BEM, CONCLUI QUE QUANDO TUDO VOLTAR AO NORMAL...

Será o dia em que:

- GENUÍNO será algo verdadeiro;
- GENRO apenas o marido da filha;
- SEVERINO apenas o porteiro do prédio;
- FREUD voltará a ser o só criador da Psicanálise;
- LORENZETTI será só uma marca de chuveiro;
- GREENGALGH voltará a ser um almirante que participou de nossa história;
- Dirceu, Palloci, Delúbio, Silvio Pereira, Berzoini,Gedimar,Valdebran, Bargas, Expedito Veloso, Gushiken, etc, serão simples.... presidiários.
- E LULA APENAS UM FRUTO DO MAR.

Agora, quando olho meu titulo de eleitor, entendo o verdadeiro significado do nome  'ZONA ELEITORAL' !

<asp:ScriptReference Path="~/jQuery/jquery-1.3.2.js" />

Agora podemos ir para a parte de criação da aplicação que irá fazer a busca no banco de dados para trazer os dados do banco e disponibilizá-los para o componente onde queremos implementar a função de autocomplete, que no nosso caso será um TextBox. Não iremos utilizar um webservice, pois com o uso do jQuery podemos criar esta funcionalidade com uma simples página aspx, bastando para isto criar a função no evento page_load, como mostrado abaixo.

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Response.Expires = -1
        Response.ContentType = "text/plain"
        Dim txtResposta As New Text.StringBuilder
        Dim Dr As Npgsql.NpgsqlDataReader
        Dim conPgsql As New NpgsqlConnection(PgConexao.ToString)
        Dim comPgsql As New NpgsqlCommand
        Dim usuarioLogado As Integer = Request.Cookies("UserID").Value
        Try
            comPgsql.Connection = conPgsql
            conPgsql.Open()
            With comPgsql
                .CommandType = Data.CommandType.Text
                .CommandText = "SELECT CAST(proc.numero AS TEXT) FROM advogaweb.processo proc INNER JOIN advogaweb.advogado_processo advpr ON proc.idprocesso = advpr.fkprocesso WHERE proc.situacao=0 AND advpr.fkadvogado = CAST(:s1 AS Integer)"
                .Parameters.Add(New NpgsqlParameter("s1", NpgsqlDbType.Text))
                .Parameters(0).Value = usuarioLogado
                Dr = .ExecuteReader()
            End With
            If Dr.HasRows Then
                While Dr.Read
                    txtResposta.Append(Dr(0).ToString)
                    txtResposta.Append(" ")
                End While
                txtResposta.Remove(txtResposta.Length - 1, 1)
            End If
        Catch exPgsql As NpgsqlException
            conPgsql.Close()
        Catch ex As Exception
            conPgsql.Close()
        Finally
            conPgsql.Close()
        End Try
        Response.Write(txtResposta.ToString())
        Response.End()
    End Sub

  A função é auto explicativa, bastando prestar atenção em alguns detalhes, como o tipo do retorno que deve ser uma string e tem que ser retornada pelo response.write. Outro ponto que devemos ter atenção é nas primeiras linhas.

        Response.Expires = -1
        Response.ContentType = "text/plain"

Estas configurações são necessárias para funcionar da maneira correta, lembrando que você pode adotar uma outra abordagem. Agora podemos partir para a configuração do evento jQuery a ser executado.

Neste caso foi criada uma função para poder aproveitar o máximo a reusabilidade.

(function($) {
        $.getProcessosAutocomplete = function() {           
           $.ajax({
                url: "../admsistema/jQuery.aspx",
                async: false,
                success: function(data){                    
                    var processos = data.split(" ");
                    $('.inputProcesso').autocomplete(processos,
                        {
                            width:180, highlight: false, multiple: false, scroll: true, scrollHeight: 300, autoFill:true
                        }
                    );
                }
            });
        }
    })(jQuery);   

Neste caso estamos usando o plugin autocomplete[3] do jQuery. A função javascript acima faz requisição ajax ao webform jquery.aspx que tem a função mostrada acima. Depois de tal requisição o resultado é jogado dentro da variável data, que recebe uma string no formato "a b d e f g h i j ..." seria uma string separada por espaços em branco, entretanto o plugin autocomplete precisa de um Array, por isto eu faço o data.split(" ") jogando o resultado dentro da variável processos, que será passado como primeiro parâmetro do autocomplete.

Foi necessário configurar o async: false ou seja nosso evento será de forma sincrona, porque no meu caso eu precisei implementar a rotina no load da página, mas se desejar que seja de forma assincrona basta configurar para async: true, ou retirar tal parâmetro, porque o default é true

O segundo parâmetro serve apenas para configurar a exibição do autocomplete, e tais configurações podem ser consultadas na página do autocomplete.

[1] http://www.jquery.com
[2] http://docs.jquery.com/Downloading_jQuery
[3] http://plugins.jquery.com/project/autocompletex

Bom espero ter sido bem claro neste post, e que sirva de ajuda para quem necessitar implementar tal funcionalidade nas suas aplicações.

Nesta semana me apareceu a necessidade de ler um arquivo XML, e não poderia utilizar DataSet ou DataTable para tal, aí desenvolvi este código para realizar o trabalho, visto que tinha que acessar além dos nós do XML atributos também. O Formato do arquivo XML é algo assim, reduzi o arquivo para melhorar o entendimento:

Nesta última parte do post sobre acesso ao PostgreSQL trago as funções de adição dos parâmetros dos tipos possíveis no PostgreSQL.

    Public Function criar_parametro_text(ByVal str_chave As String, ByVal par_valor As String) As NpgsqlCommand

        Dim TipoParametro As New NpgsqlDbType

        PgParametro = New NpgsqlParameter()

        Try

            PgParametro.ParameterName = str_chave

            PgParametro.NpgsqlDbType = NpgsqlDbType.Text

            PgParametro.Value = par_valor

            PgComando.Parameters.Add(PgParametro)

        Catch ex As NpgsqlException

            Call Me.fechar_conexao()

        End Try

        Return PgComando

    End Function

    Public Function criar_parametro_decimal(ByVal str_chave As String, ByVal par_valor As Decimal) As NpgsqlCommand

        Dim TipoParametro As New NpgsqlDbType

        PgParametro = New NpgsqlParameter()

        Try

            PgParametro.ParameterName = str_chave

            PgParametro.NpgsqlDbType = NpgsqlDbType.Numeric

            PgParametro.Value = par_valor

            PgComando.Parameters.Add(PgParametro)

        Catch ex As NpgsqlException

            Call Me.fechar_conexao()

        End Try

        Return PgComando

    End Function

    Public Function criar_parametro_double(ByVal str_chave As String, ByVal par_valor As Double) As NpgsqlCommand

        Dim TipoParametro As New NpgsqlDbType

        PgParametro = New NpgsqlParameter()

        Try

            PgParametro.ParameterName = str_chave

            PgParametro.NpgsqlDbType = NpgsqlDbType.Double

            PgParametro.Value = par_valor

            PgComando.Parameters.Add(PgParametro)

        Catch ex As NpgsqlException

            Call Me.fechar_conexao()

        End Try

        Return PgComando

    End Function

    Public Function criar_parametro_datetime(ByVal str_chave As String, ByVal par_valor As DateTime) As NpgsqlCommand

        Dim TipoParametro As New NpgsqlDbType

        PgParametro = New NpgsqlParameter()

        Try

            PgParametro.ParameterName = str_chave

            PgParametro.NpgsqlDbType = NpgsqlDbType.Timestamp

            PgParametro.Value = par_valor

            PgComando.Parameters.Add(PgParametro)

        Catch ex As NpgsqlException

            Call Me.fechar_conexao()

        End Try

        Return PgComando

    End Function

    Public Function criar_parametro_bytea(ByVal str_chave As String, ByVal par_valor As Byte()) As NpgsqlCommand

        Dim TipoParametro As New NpgsqlDbType

        PgParametro = New NpgsqlParameter()

        Try

            PgParametro.ParameterName = str_chave

            PgParametro.NpgsqlDbType = NpgsqlDbType.Bytea

            PgParametro.Value = par_valor

            PgComando.Parameters.Add(PgParametro)

        Catch ex As NpgsqlException

            Call Me.fechar_conexao()

        End Try

        Return PgComando

    End Function

    Public Function criar_parametro_char(ByVal str_chave As String, ByVal par_valor As Char) As NpgsqlCommand

        Dim TipoParametro As New NpgsqlDbType

        PgParametro = New NpgsqlParameter()

        Try

            PgParametro.ParameterName = str_chave

            PgParametro.NpgsqlDbType = NpgsqlDbType.Char

            PgParametro.Value = par_valor

            PgComando.Parameters.Add(PgParametro)

        Catch ex As NpgsqlException

            Call Me.fechar_conexao()

        End Try

        Return PgComando

    End Function

    Public Function criar_parametro_booleano(ByVal str_chave As String, ByVal par_valor As Boolean) As NpgsqlCommand

        Dim TipoParametro As New NpgsqlDbType

        PgParametro = New NpgsqlParameter()

        Try

            PgParametro.ParameterName = str_chave

            PgParametro.NpgsqlDbType = NpgsqlDbType.Boolean

            PgParametro.Value = par_valor

            PgComando.Parameters.Add(PgParametro)

        Catch ex As NpgsqlException

            Call Me.fechar_conexao()

        End Try

        Return PgComando

    End Function

    Public Function criar_parametro_inteirogrande(ByVal str_chave As String, ByVal par_valor As Integer) As NpgsqlCommand

        Dim TipoParametro As New NpgsqlDbType

        PgParametro = New NpgsqlParameter()

        Try

            PgParametro.ParameterName = str_chave

            PgParametro.NpgsqlDbType = NpgsqlDbType.Bigint

            PgParametro.Value = par_valor

            PgComando.Parameters.Add(PgParametro)

        Catch ex As NpgsqlException

            Call Me.fechar_conexao()

        End Try

        Return PgComando

    End Function

    Public Function criar_parametro_inteiro(ByVal str_chave As String, ByVal par_valor As Int16) As NpgsqlCommand

        Dim TipoParametro As New NpgsqlDbType

        PgParametro = New NpgsqlParameter()

        Try

            PgParametro.ParameterName = str_chave

            PgParametro.NpgsqlDbType = NpgsqlDbType.Integer

            PgParametro.Value = par_valor

            PgComando.Parameters.Add(PgParametro)

        Catch ex As NpgsqlException

            Call Me.fechar_conexao()

        End Try

        Return PgComando

    End Function

    Public Function criar_parametro_string(ByVal str_chave As String, ByVal par_valor As String) As NpgsqlCommand

        Dim TipoParametro As New NpgsqlDbType

        PgParametro = New NpgsqlParameter()

        Try

            PgParametro.ParameterName = str_chave

            PgParametro.NpgsqlDbType = NpgsqlDbType.Varchar

            PgParametro.Value = par_valor

            PgComando.Parameters.Add(PgParametro)

        Catch ex As NpgsqlException

            Call Me.fechar_conexao()

        End Try

        Return PgComando

    End Function

    Public Function criar_parametro_ip(ByVal str_chave As String, ByVal par_valor As System.Net.IPAddress) As NpgsqlCommand

        Dim TipoParametro As New NpgsqlDbType

        PgParametro = New NpgsqlParameter()

        Try

            PgParametro.ParameterName = str_chave

            PgParametro.NpgsqlDbType = NpgsqlDbType.Inet

            PgParametro.Value = par_valor

            PgComando.Parameters.Add(PgParametro)

        Catch ex As NpgsqlException

            Call Me.fechar_conexao()

        End Try

        Return PgComando

    End Function

Neste classe que estou desenvolvendo para acesso ao postgreSQL, estou percebendo um problema pelo Process Explorer que o processo postgres.exe aparece inúmeras vezes, tipo umas 46 vezes, mas percebo também que isto acontece quando estou usando o programa EMS PostgreSQL, de qualquer forma estou publicando este post para compartilhar o conhecimento e quem sabe melhorarmos em conjunto, com aqueles que compartilharem seus conhecimentos, e criarmos uma classe que resolva todos os processos de conexção com o PostgreSQL.

Este post é dividido em 3 por causa do tamanho. Na segunda parte estou postando as funções de execuções para retornar DataSet, DataTable, e uma Sub para gravar numa tabela no banco os erros gerados pela classe.

Imports Microsoft.VisualBasic

Imports Npgsql

Imports NpgsqlTypes

Imports System.Data

Public Class ClPgDAL

    Private PgConexao As NpgsqlConnection

    Private PgComando As NpgsqlCommand

    Private PgParametro As NpgsqlParameter

    Private PgAdaptador As NpgsqlDataAdapter

    Private PgTransacao As NpgsqlTransaction

    Private PgDataReader As NpgsqlDataReader

    Private Ds As DataSet

    Private Dt As DataTable

    Private Dtr As DataTableReader

    ''' <summary>

    ''' Fuñção interna para criar a conexão

    ''' </summary>

    ''' <param name="str_conexao">String da conexão</param>

    ''' <returns>Conexão</returns>

    ''' <remarks></remarks>

    Private Function cria_conexao(ByVal str_conexao As String) As NpgsqlConnection

        PgConexao = New NpgsqlConnection(str_conexao)

        Return PgConexao

    End Function

    ''' <summary>

    ''' Função interna para abrir a conexão no último momento

    ''' </summary>

    ''' <returns>Conexão</returns>

    ''' <remarks></remarks>

    Private Function abrir_conexao() As NpgsqlConnection

        PgConexao.Open()

        Return PgConexao

    End Function

    ''' <summary>

    ''' Função para fechar a conexão aberta

    ''' </summary>

    ''' <remarks></remarks>

    Public Sub fechar_conexao()

        If PgConexao.State = ConnectionState.Open Then

            PgConexao.Close()

        End If

    End Sub

    ''' <summary>

    ''' Função para criar o comando Sql a ser executado

    ''' </summary>

    ''' <param name="str_comando">String com o comando a ser executado</param>

    ''' <param name="str_conexao">String com a conexão</param>

    ''' <returns>Comando SQl</returns>

    ''' <remarks></remarks>

    Public Function criar_comando(ByVal str_comando As String, ByVal str_conexao As String) As NpgsqlCommand

        PgComando = New NpgsqlCommand(str_comando, cria_conexao(str_conexao))

        PgComando.CommandType = CommandType.Text

        PgComando.CommandTimeout = 60

        Return PgComando

    End Function

    ''' <summary>

    ''' Função para executar comandos de inserção, deleção, atualização

    ''' </summary>

    ''' <returns>Inteiro com a quantidade de registros afetados pela execução</returns>

    ''' <remarks></remarks>

    Public Function executar_insertupdatedelete() As Integer

        Dim i As Integer = 0

        Try

            Call Me.abrir_conexao()

            i = PgComando.ExecuteNonQuery

        Catch ex As Exception

            Call Me.sb_erro_npgsql(ex.Message, "Parametro Ip")

        Finally

            Call Me.fechar_conexao()

        End Try

        Return i

    End Function

    ''' <summary>

    ''' Função para executar comandos que retornem apenas um registro

    ''' </summary>

    ''' <returns>String com o resultado da execução do comando SQL</returns>

    ''' <remarks></remarks>

    Public Function executar_escalar() As String

        Dim str_resultado As String = ""

        Try

            Call Me.abrir_conexao()

            str_resultado = CType(PgComando.ExecuteScalar, String)

        Catch ex As Exception

            Call Me.sb_erro_npgsql(ex.Message, "Erro no execute Scalar")

        Finally

            Call Me.fechar_conexao()

        End Try

        Return str_resultado

    End Function

    ''' <summary>

    ''' Função para executar comandos que retornem objetos do tipo DataReader

    ''' </summary>

    ''' <returns>NpgsqlDataReader</returns>

    ''' <remarks></remarks>

    Public Function retornar_datareader() As NpgsqlDataReader

        Try

            Call Me.abrir_conexao()

            PgDataReader = PgComando.ExecuteReader

        Catch ex As Exception

            Call Me.sb_erro_npgsql(ex.Message, "Erro no retorno do DataReader")

        Finally

            Call Me.fechar_conexao()

        End Try

        Return PgDataReader

    End Function

End Class

Parece mais uma saga do problema do windows, mas...

Public Class MySqlClasse

Criando as instâncias dos Objetos.
  Private MeuDataReader As MySqlDataReader
  Private MeuAdaptador As MySqlDataAdapter
  Private MinhaTransacao As MySqlTransaction
  Private MeuDataTable As DataTable
  Private MeuDataSet As DataSet
  Private MeuDataTableReader As DataTableReader
  Private Conexao, ConexaoTransacao As MySqlConnection
  Private Comando, ComandoTransacao As MySqlCommand
  Private Parametro, ParametroTransacao As MySqlParameter

Função para criar a conexão, recebendo um parametro que é exatamente a string de conexão.
        Private Function CriarConexao(ByVal StrConexao As String) As MySqlConnection
            Conexao = New MySqlConnection(StrConexao)
            Return Conexao
        End Function     

  
Função para abrir a conexão existente, perceba que esta é private ou seja acessível apenas dentro da classe.
        Private Function AbrirConexao() As MySqlConnection
            Conexao.Open()
            Return Conexao
        End Function

 

Função para fechar a conexão, perceba que esta é private ou seja acessível apenas dentro da classe.
        Private Function FecharConexao() As MySqlConnection
            Conexao.Close()
            Return Conexao
        End Function

 

Função para fechar a conexão, perceba que esta é pública para que seja possível o acesso de fora da classe, recebendo como parâmetro um valor para determinar se deve ser forçado o fechamento ou não.
        Public Function FecharConexao(ByVal ForcarFechamento As Boolean) As Boolean
            If ForcarFechamento Then
                If Conexao.State = ConnectionState.Open Then
                    Try
                        Conexao.Close()
                        Return True
                    Catch ex As Exception
                        Return False
                    End Try
                Else
                    Return True
                End If
            End If
        End Function

 

Função para criar o comando Sql, recebendo como parametro o comando Sql a ser executado e a String de conexão, que vai ser repassada para a função interna CriarConexao.
        Public Function CriarComando(ByVal StrComando As String, ByVal StrConexao As String) _
            As MySqlCommand
            Comando = New MySqlCommand(StrComando)
            Comando.Connection = CriarConexao(StrConexao)
            Comando.CommandType = CommandType.Text
            Return Comando
        End Function

 

Função para chamar uma procedure, quando necessário.
        Public Function CriarProcedure(ByVal Strprocedure As String) As MySqlCommand
            Comando = New MySqlCommand(Strprocedure)
            Comando.CommandType = CommandType.StoredProcedure
            Return Comando
        End Function

Função para criar os parametros do comando ou da procedure, veja que recebe como parâmetros o nome do Parametro, o Valor, o Tipo do parâmetro e o Tamanho.
        Public Function CriarParametro(ByVal StrParametro As String, ByVal StrValor As String, _
            ByVal IntTipo As Integer, ByVal IntTamanho As Integer) As MySqlCommand
            Parametro = New MySqlParameter
            Parametro.ParameterName = StrParametro
            Select Case (IntTipo)
                Case 1
                    Parametro.MySqlDbType = MySqlDbType.String
                Case 2
                    Parametro.MySqlDbType = MySqlDbType.Int32
                Case 3
                    Parametro.MySqlDbType = MySqlDbType.Date
                Case 4
                    Parametro.MySqlDbType = MySqlDbType.Blob
                Case 5
                    Parametro.MySqlDbType = MySqlDbType.LongBlob
                Case 6
                    Parametro.MySqlDbType = MySqlDbType.Datetime
                Case 7
                    Parametro.MySqlDbType = MySqlDbType.Int64
                Case 8
                    Parametro.MySqlDbType = MySqlDbType.Timestamp
                Case 9
                    Parametro.MySqlDbType = MySqlDbType.LongText
                Case 10
                    Parametro.MySqlDbType = MySqlDbType.Double
                Case 11
                    Parametro.MySqlDbType = MySqlDbType.Decimal
                Case 12
                    Parametro.MySqlDbType = MySqlDbType.Year
                Case Else
                    Parametro.MySqlDbType = MySqlDbType.String
            End Select
            Parametro.Size = IntTamanho
            Parametro.Value = StrValor
            Comando.Parameters.Add(Parametro)
            Return Comando
        End Function

 

Função para Executar o comando SQL criado anteriormente e retornar os valores num DataReader, lembrando que não posso fechar a conexão aqui, pois o Objeto DataReader é um objeto do tipo conectado.
        Public Function RetornarDatareader() As MySqlDataReader
            Try
                AbrirConexao()
                MeuDataReader = Comando.ExecuteReader
            Catch ex As Exception
                FecharConexao()
            End Try
            Return MeuDataReader
        End Function

 

Função para executar o comando Sql criado anteriormente e retornar o resultado num objeto DataTableReader, este Objeto tem a velocidade de um DataReader e as funcionalidades de um DataTable, veja que aqui eu fecho a conexão, ou seja este objeto é desconectado.
        Public Function RetornarDataTableReader(ByVal StrNomeTabela As String) _
        As DataTableReader
            Try
                AbrirConexao()
                MeuAdaptador = New MySqlDataAdapter(Comando)
                MeuDataTable = New DataTable(StrNomeTabela)
                MeuAdaptador.Fill(MeuDataTable)
                MeuDataTableReader = MeuDataTable.CreateDataReader
            Catch ex As Exception
                FecharConexao()
            Finally
                FecharConexao()
            End Try
            Return MeuDataTableReader
        End Function

 

Função para executar o comando Sql criado anteriormente e retornar o resultado num objeto do tipo DataTable.
        Public Function RetornarDataTable(ByVal StrNomeTabela As String) As DataTable
            MeuDataTable = New DataTable(StrNomeTabela)
            Try
                AbrirConexao()
                MeuAdaptador = New MySqlDataAdapter(Comando)
                MeuAdaptador.Fill(MeuDataTable)
            Catch ex As Exception
                FecharConexao()
            Finally
                FecharConexao()
            End Try
            Return MeuDataTable
        End Function

 

Função para executar o comando Sql criado anteriormente e retornar o resultado num objeto do tipo DataSet. Por estar trabalhando com desenvolvimento OO não uso esta função na minha aplicação, desenvolvi apenas para deixar a classe completa.
        Public Function RetornarDataSet() As DataSet
            MeuDataSet = New DataSet
            Try
                AbrirConexao()
                MeuAdaptador = New MySqlDataAdapter(Comando)
                MeuAdaptador.Fill(MeuDataSet)
            Catch ex As Exception
                FecharConexao()
            Finally
                FecharConexao()
            End Try
            Return MeuDataSet
        End Function

 

Função para executar comandos que não retornam valores, o inteiro retornado é apenas indicativo da quantidade de registros afetados pelo comando Sql.
        Public Function ExecutarInsertUpdateDelete() As Integer
            Dim Qt As Integer = 0
            Try
                AbrirConexao()
                Qt = Comando.ExecuteNonQuery
            Catch ex As Exception
                FecharConexao()
            Finally
                FecharConexao()
            End Try
            Return Qt
        End Function

 

Função para executar comandos Sql que retornam apenas um registro (Agregação), como Sum, Count, retornar também a chave primária do registro. Este comando é bem performático.
        Public Function ExecutarEscalar() As String
            Dim Retorno As String = ""
            Try
                AbrirConexao()
                Retorno = CType(Comando.ExecuteScalar, String)
            Catch ex As Exception
                FecharConexao()
            Finally
                FecharConexao()
            End Try
            Return Retorno
        End Function

 

End Class