Leandro Paiva

Função em JavaScript para consulta de CEP com retorno em XML ou Json

2023-02-26T19:33:00.000-04:00

Para criar uma biblioteca em JavaScript que consulta um CEP e retorna os dados em XML ou JSON, podemos utilizar uma API pública que realiza essa consulta e retorna a resposta no formato desejado.

Nesse exemplo, vamos utilizar a API do ViaCEP, que permite realizar consultas de CEP e retornar os dados em JSON ou XML.

O código a seguir mostra uma implementação simples de uma função que consulta um CEP utilizando a API do ViaCEP e retorna os dados em XML ou JSON, dependendo do formato especificado:


function consultarCEP(cep, formato, callback) {
  var url = 'https://viacep.com.br/ws/' + cep + '/' + formato + '/';
  var xhr = new XMLHttpRequest();
  xhr.open('GET', url, true);
  xhr.onreadystatechange = function() {
    if (xhr.readyState == 4 && xhr.status == 200) {
      var resposta = xhr.responseText;
      if (formato == 'json') {
        callback(JSON.parse(resposta));
      } else {
        callback(resposta);
      }
    }
  };
  xhr.send();
}

Essa função recebe três parâmetros: o CEP a ser consultado, o formato desejado (XML ou JSON) e uma função de retorno (callback) que será chamada quando a resposta da API for recebida.

Para utilizar essa função, basta chamar a função consultarCEP passando o CEP desejado, o formato desejado e uma função de retorno que irá processar os dados recebidos. Por exemplo:


  consultarCEP('12345678', 'json', function(dados) {
  console.log(dados);
});

consultarCEP('12345678', 'xml', function(dados) {
  console.log(dados);
});

Esses exemplos irão realizar consultas de CEP para o CEP "12345678" e retornar os dados em JSON e XML, respectivamente. A função de retorno simplesmente imprime os dados no console, mas você pode modificá-la para fazer qualquer outra coisa que desejar.

Gerar xml em C#

2023-02-24T20:19:00.000-04:00

XML (eXtensible Markup Language) é uma linguagem de marcação amplamente utilizada em aplicações e sistemas para armazenar, transmitir e trocar dados estruturados. No universo das aplicações web, o XML é um formato popular para o intercâmbio de dados entre servidores e clientes. Neste artigo, vamos mostrar como criar um arquivo XML em C#.

Para gerar um arquivo XML em C#, vamos usar a classe XmlWriter, que permite criar um documento XML com facilidade. Primeiramente, vamos criar um método que recebe uma lista de objetos e gera um arquivo XML a partir desses objetos.


public void GerarXml(List pessoas, string caminhoArquivo)
{
    using (var writer = XmlWriter.Create(caminhoArquivo))
    {
        writer.WriteStartDocument();
        writer.WriteStartElement("pessoas");
        foreach (var pessoa in pessoas)
        {
            writer.WriteStartElement("pessoa");
            writer.WriteElementString("nome", pessoa.Nome);
            writer.WriteElementString("idade", pessoa.Idade.ToString());
            writer.WriteEndElement();
        }
        writer.WriteEndElement();
        writer.WriteEndDocument();
    }
}

O método GerarXml recebe uma lista de objetos do tipo Pessoa e um caminho para o arquivo que será gerado. O método usa um XmlWriter para escrever os dados no arquivo.

O método começa chamando XmlWriter.Create para criar uma nova instância do XmlWriter. Em seguida, chama WriteStartDocument para escrever o cabeçalho do documento XML. Depois disso, o método escreve o elemento raiz do documento chamado pessoas usando o método WriteStartElement.

A seguir, o método itera sobre a lista de pessoas e escreve cada pessoa como um elemento pessoa. Cada pessoa tem dois elementos filhos, nome e idade, que são escritos usando WriteElementString.

Por fim, o método chama WriteEndElement para fechar o elemento pessoa e pessoas. Finalmente, o método chama WriteEndDocument para finalizar o documento.

Para usar o método GerarXml, basta criar uma lista de objetos Pessoa e chamar o método passando essa lista e o caminho para o arquivo que será gerado


var pessoas = new List
{
    new Pessoa { Nome = "Alice", Idade = 30 },
    new Pessoa { Nome = "Bob", Idade = 40 },
    new Pessoa { Nome = "Charlie", Idade = 50 }
};

GerarXml(pessoas, "pessoas.xml");

Esse código cria uma lista de três objetos Pessoa e chama o método GerarXml, passando essa lista e o caminho do arquivo pessoas.xml.

O arquivo pessoas.xml gerado pelo método GerarXml terá o seguinte conteúdo:


<pessoas>
  <pessoa>
    <nome>Alice</nome>
    <idade>30</idade>
  </pessoa>
  <pessoa>
    <nome>Bob</nome>
    <idade>40</idade>
  </pessoa>
  <pessoa>
    <nome>Charlie</nome>
    <idade>50</idade>
  </pessoa>
</pessoas>

Auditoria de banco de dados em alguns segundos

2015-06-25T09:27:00.001-04:00

Segue um exemplo de como você pode percorrer todas as tabelas de uma database e criar uma auditoria para detectar ações de delete, select, edit e insert, e armazenar o log em uma tabela separada usando SQL:


-- Criação da tabela de log
CREATE TABLE Log (
    LogID INT PRIMARY KEY IDENTITY,
    Tabela NVARCHAR(128),
    Operacao NVARCHAR(10),
    DataHora DATETIME,
    Usuario NVARCHAR(128)
);

-- Variáveis para guardar o nome da tabela e o comando SQL
DECLARE @tabela NVARCHAR(128), @sql NVARCHAR(MAX);

-- Cursor para percorrer todas as tabelas da database
DECLARE cursor_tabelas CURSOR FOR
    SELECT TABLE_NAME
    FROM INFORMATION_SCHEMA.TABLES
    WHERE TABLE_TYPE = 'BASE TABLE';

-- Loop para percorrer todas as tabelas da database
OPEN cursor_tabelas;
FETCH NEXT FROM cursor_tabelas INTO @tabela;

WHILE @@FETCH_STATUS = 0
BEGIN
    -- Criação de triggers para a tabela
    SET @sql = 'CREATE TRIGGER tr_' + @tabela + '_Delete ON ' + @tabela + ' AFTER DELETE
    AS
    BEGIN
        INSERT INTO Log (Tabela, Operacao, DataHora, Usuario)
        VALUES (''' + @tabela + ''', ''DELETE'', GETDATE(), USER_NAME());
    END;';
    EXEC sp_executesql @sql;

    SET @sql = 'CREATE TRIGGER tr_' + @tabela + '_Insert ON ' + @tabela + ' AFTER INSERT
    AS
    BEGIN
        INSERT INTO Log (Tabela, Operacao, DataHora, Usuario)
        VALUES (''' + @tabela + ''', ''INSERT'', GETDATE(), USER_NAME());
    END;';
    EXEC sp_executesql @sql;

    SET @sql = 'CREATE TRIGGER tr_' + @tabela + '_Update ON ' + @tabela + ' AFTER UPDATE
    AS
    BEGIN
        INSERT INTO Log (Tabela, Operacao, DataHora, Usuario)
        VALUES (''' + @tabela + ''', ''UPDATE'', GETDATE(), USER_NAME());
    END;';
    EXEC sp_executesql @sql;

    FETCH NEXT FROM cursor_tabelas INTO @tabela;
END

-- Fechamento do cursor
CLOSE cursor_tabelas;
DEALLOCATE cursor_tabelas;

Este script criará uma tabela chamada Log para armazenar as informações do log e criará gatilhos (triggers) para cada tabela da database para detectar ações de delete, select, edit e insert. O log incluirá o nome da tabela, a operação realizada (delete, insert ou update), a data e hora da operação e o nome do usuário que realizou a operação.

Cabe lembrar que o uso de triggers em excesso pode afetar a performance do banco de dados, portanto, é importante avaliar se a criação de triggers é a melhor opção para o seu caso específico.

Exibir o nome da tabela, das colunas e descrição das colunas

2014-03-20T09:45:00.000-04:00

   1:  SELECT

   2:            SO.object_id,

   3:            SO.name AS NomeTabela,

   4:            CAST

   5:            ((SELECT TOP 1

   6:                      VALUE

   7:            FROM sys.fn_listextendedproperty('NomeTabelaTraduzido', 'schema', 'dbo', 'table', SO.name, NULL, NULL) AS fn_listextendedproperty_3)

   8:            AS varchar(MAX))

   9:            AS NomeTabelaTraduzido,

  10:            SC.column_id AS ColunaOrdem,

  11:            SC.name AS NomeColuna,

  12:            CAST

  13:            ((SELECT TOP 1

  14:                      VALUE

  15:            FROM sys.fn_listextendedproperty('MS_Description', 'schema', 'dbo', 'table', so.name, 'column', sc.name) AS fn_listextendedproperty_2)

  16:            AS varchar(MAX))

  17:            AS DescricaoColuna,

  18:            (SELECT   TOP 1

  19:                      T.name

  20:            FROM sys.foreign_key_columns AS FK

  21:            INNER JOIN sys.tables AS T

  22:                      ON FK.referenced_object_id = T.object_id

  23:            WHERE (FK.parent_object_id = SO.object_id) AND (FK.parent_column_id = SC.column_id))

  24:            AS TabelaRelacionada,

  25:            (SELECT  TOP 1

  26:                      c.name

  27:            FROM sys.foreign_key_columns AS fk

  28:            INNER JOIN sys.columns AS c

  29:                      ON c.column_id = fk.referenced_column_id AND c.object_id = fk.referenced_object_id

  30:            WHERE (fk.parent_object_id = SO.object_id) AND (fk.parent_column_id = SC.column_id))

  31:            AS CampoCondicao,

  32:            CAST

  33:            ((SELECT  TOP 1

  34:                      VALUE

  35:            FROM sys.fn_listextendedproperty('CampoRetorno', 'schema', 'dbo', 'table', so.name, 'column', sc.name) AS fn_listextendedproperty_1)

  36:            AS varchar(MAX))

  37:            AS CampoRetorno

  38:  FROM sys.objects AS SO

  39:  INNER JOIN sys.columns AS SC

  40:            ON SO.object_id = SC.object_id

  41:  WHERE (SO.type = 'U')

  42:  ORDER BY NomeTabela

Tempo em ano, mês, dia, horas entre 2 datas

2012-04-10T12:54:00.000-04:00

   1:  GO

   2:  SET QUOTED_IDENTIFIER ON

   3:  GO

   4:  -- =============================================

   5:  -- Author:        Angelo Carlotto

   6:  -- Create date: 09/04/2012

   7:  -- Description:

   8:  --    Esta função retorna um texto descrevendo o total de tempo entre duas datas

   9:  --    O usuário pode escolher dentre ano,mes,dia,hora,min e seg quais parcelas deseja que sejam exibidas

  10:  --  Caso o parametro @hasAno=0 e @hasMes=1, caso @ano=2 e @mes=1, neste caso a string retornara será: 25 mes(s)

  11:  -- =============================================

  12:  ALTER FUNCTION GetStringDescreveTotalTempoEntreDatas

  13:      (

  14:        @dataInicial DATETIME ,

  15:        @dataFinal DATETIME ,

  16:        @hasAno BIT ,

  17:        @hasMes BIT ,

  18:        @hasDia BIT ,

  19:        @hasHora BIT ,

  20:        @hasMinuto BIT ,

  21:        @hasSegundo BIT

  22:      )

  23:  RETURNS VARCHAR(MAX)

  24:  AS

  25:      BEGIN

  26:          DECLARE @ano INT ,

  27:              @dia INT ,

  28:              @mes INT ,

  29:              @hora INT ,

  30:              @minuto INT ,

  31:              @segundo INT ,

  32:              @retorno VARCHAR(MAX)

33:

34:

35:

  36:      /* Inicializa a variavel de retorno */

  37:          SET @retorno = ''

38:

  39:      /*Calcula quantos ANOS existem dentre a data inicial e afinal*/

  40:          SET @ano = DATEDIFF(YEAR, @dataInicial, @dataFinal)

  41:      /*Caso o usuário deseje que conste o total de ANOS(@hasAnos) e @ano seja maior que zero então...*/

  42:          IF ( @ano > 0

  43:               AND @hasAno = 1

  44:             )

  45:              BEGIN

  46:          /*Pega-se o total de ANOS e decrementa-se da dataFinal, gerando uma nova data, agora sem o total de ANOS */

  47:                  SET @dataFinal = DATEADD(YEAR, -1 * @ano, @dataFinal)

  48:          /*Realiza-se a concatenação do texto  contendo o total de ANOS na variavel de retorno*/

  49:                  SET @retorno = @retorno + ' ' + CAST(@ano AS VARCHAR(2))

  50:                      + ' ano(s)'

  51:              END

52:

  53:      /*Calcula quantos MESES existem dentre a data inicial e afinal*/

  54:          SET @mes = DATEDIFF(MONTH, @dataInicial, @dataFinal)

  55:      /*Caso o usuário deseje que conste o total de MESES(@hasMes) e @mes seja maior que zero então...*/

  56:          IF ( @mes > 0

  57:               AND @hasMes = 1

  58:             )

  59:              BEGIN

  60:          /*Pega-se o total de MESES e decrementa-se da dataFinal, gerando uma nova data, agora sem o total de MESES */

  61:                  SET @dataFinal = DATEADD(MONTH, -1 * @mes, @dataFinal)

  62:          /*Realiza-se a concatenação do texto contendo o total de MESES na variavel de retorno*/

  63:                  SET @retorno = @retorno + ' ' + CONVERT(VARCHAR, @mes)

  64:                      + ' mes(s)'

  65:              END

66:

  67:      /*Calcula quantos DIAS existem dentre a data inicial e afinal*/

  68:          SET @dia = DATEDIFF(DAY, @dataInicial, @dataFinal)

  69:      /*Caso o usuário deseje que conste o total de DIAS(@hasDias) e @dia seja maior que zero então...*/

  70:          IF ( @dia > 0

  71:               AND @hasDia = 1

  72:             )

  73:              BEGIN

  74:          /*Pega-se o total de DIAS e decrementa-se da dataFinal, gerando uma nova data, agora sem o total de DIAS */

  75:                  SET @dataFinal = DATEADD(DAY, -1 * @dia, @dataFinal)

  76:          /*Realiza-se a concatenação do texto contendo o total de DIAS na variavel de retorno*/

  77:                  SET @retorno = @retorno + ' ' + CONVERT(VARCHAR, @dia)

  78:                      + ' dia(s)'

  79:              END

80:

  81:      /*Calcula quantos HORAS existem dentre a data inicial e afinal*/

  82:          SET @hora = DATEDIFF(HOUR, @dataInicial, @dataFinal)

  83:      /*Caso o usuário deseje que conste o total de HORAS(@hasHoras) e @horas seja maior que zero então...*/

  84:          IF ( @hora > 0

  85:               AND @hasHora = 1

  86:             )

  87:              BEGIN

  88:          /*Pega-se o total de HORAS e decrementa-se da dataFinal, gerando uma nova data, agora sem o total de HORAS */

  89:                  SET @dataFinal = DATEADD(HOUR, -1 * @hora, @dataFinal)

  90:          /*Realiza-se a concatenação do texto contendo o total de HORAS na variavel de retorno*/

  91:                  SET @retorno = @retorno + ' ' + CONVERT(VARCHAR, @hora)

  92:                      + ' hora(s)'

  93:              END

94:

  95:      /*Calcula quantos MINUTOS existem dentre a data inicial e afinal*/

  96:          SET @minuto = DATEDIFF(MINUTE, @dataInicial, @dataFinal)

  97:      /*Caso o usuário deseje que conste o total de MINUTOS(@hasMinutos) e @minuto seja maior que zero então...*/

  98:          IF ( @minuto > 0

  99:               AND @hasMinuto = 1

 100:             )

 101:              BEGIN

 102:                  SET @dataFinal = DATEADD(MINUTE, -1 * @minuto, @dataFinal)

 103:          /*Realiza-se a concatenação do texto contendo o total de MINUTOS na variavel de retorno*/

 104:                  SET @retorno = @retorno + ' ' + CONVERT(VARCHAR, @minuto)

 105:                      + ' min(s)'

 106:              END

 107:

 108:      /*Calcula quantos SEGUNDOS existem dentre a data inicial e afinal*/

 109:          SET @segundo = DATEDIFF(SECOND, @dataInicial, @dataFinal)

 110:      /*Caso o usuário deseje que conste o total de SEGUNDOS(@hasSegundo) e @segundo seja maior que zero então...*/

 111:          IF ( @segundo > 0

 112:               AND @hasSegundo = 1

 113:             )

 114:              BEGIN

 115:                  SET @dataFinal = DATEADD(SECOND, -1 * @segundo, @dataFinal)

 116:          /*Realiza-se a concatenação do texto contendo o total de SEGUNDOS na variavel de retorno*/

 117:                  SET @retorno = @retorno + ' ' + CONVERT(VARCHAR, @segundo)

 118:                      + ' s(s)'

 119:              END

 120:

 121:          RETURN @retorno

 122:

 123:      END

 124:  GO

Auditoria utilizando SQL Server

2012-02-29T09:54:00.001-04:00

/*

    Alterar somente o nome da dataBase

*/

use GrandeSeletor

/**

* A TRIGGER DE AUDITORIA NÃO FUNCIONA PARA OS SEGUINTES TIPOS:

* 1 - TEXT,

* 2 - NTEXT,

* 3 - IMAGE

*/

SET NOCOUNT ON

--Verifica se existe uma tabela com o nome PowerAuditoria, se não existir criamos a tabela.

if not exists (SELECT name FROM SYSOBJECTS WHERE type = 'U' AND name = 'PowerAuditoria')

begin

    create table PowerAuditoria(

        Id int not null identity(1,1) primary key,

        Usuario varchar(10) not null,

        DataHora datetime not null,

        Tabela varchar(50) not null,

        AcaoExecutada char(1) not null,

        RegistroAnterior varchar(3500),

        RegistroAtual varchar(3500)

end

Declare @idTabela int,

        @nameTabela varchar(20),

        @nameColuna varchar(50),

        @query varchar(8000),

        @tipoCampo varchar(100),

        @tamanhoCampo int,

        @auxdeclare varchar(8000),

        @auxStringTrigger varchar(8000),

        @queryInsertUpdate varchar(8000),

        @queryDelete varchar(8000),

        @colunaValorDE varchar(8000),

        @colunaValorIU varchar(8000)

        ---  Inicializando variáveis

        set @queryInsertUpdate = 'SELECT '

        set @queryDelete = 'SELECT '

        set @auxDeclare = 'DECLARE '

        set @colunaValorDE = ''

        set @colunaValorIU = ''

--Declarando cursor para as tabelas de uma database

DECLARE cTabela CURSOR FOR (Select id, name from  sysobjects where xtype = 'u' and name <> 'PowerAuditoria')

open cTabela

FETCH NEXT FROM cTabela Into @idTabela, @nameTabela

WHILE @@FETCH_STATUS = 0

begin

    --Declarando cursor para as colunas de uma tabela selecionada no cursor

    Declare cColuna cursor for (Select sc.name, st.name, sc.length from syscolumns sc inner join systypes st on sc.xusertype = st.xusertype where sc.id = @idTabela)

    open cColuna

    Fetch next from cColuna into @nameColuna, @tipoCampo, @tamanhoCampo

    while @@fetch_status = 0

    begin

        --- Início variavel

        if (@tipoCampo = 'int' or @tipoCampo = 'bit' or @tipoCampo = 'bigint' or @tipoCampo = 'money')--Não aceita tamanho

        begin

            set @auxDeclare = @auxDeclare + '@' + @nameColuna + '_UI ' + @tipoCampo + ', @' + @nameColuna + '_DE ' + @tipoCampo

            set @colunaValorIU = @colunaValorIU + '' + @nameColuna + '=''+' + ('cast(@'+ @nameColuna + '_UI as varchar)')

            set @colunaValorDE = @colunaValorDE + '' + @nameColuna + '=''+' + ('cast(@'+ @nameColuna + '_DE as varchar)')

end

        else if(@tipoCampo = 'dateTime' or @tipoCampo = 'smalldatetime')--Não aceita tamanho

        begin

            set @auxDeclare = @auxDeclare + '@' + @nameColuna + '_UI ' + @tipoCampo + ', @' + @nameColuna + '_DE ' + @tipoCampo

            set @colunaValorIU = @colunaValorIU + ('') + @nameColuna + ('=''+') + ('convert(varchar,@'+ @nameColuna + '_UI,121)')

            set @colunaValorDE = @colunaValorDE + ('') + @nameColuna + ('=''+') + ('convert(varchar,@'+ @nameColuna + '_DE,121)')

end

        else if(@tipoCampo = 'text' or @tipoCampo = 'ntext' or @tipoCampo = 'image')--Não aceita os tipos citados

        begin

            print ('Os tipos text, ntext e image não são compatíveis com a auditoria até o momento.')--não faz nada

end

        else

        begin

            set @auxDeclare = @auxDeclare + '@' + @nameColuna + '_UI ' + @tipoCampo + '(' + cast(@tamanhoCampo as varchar(5)) +'), @' + @nameColuna + '_DE ' + @tipoCampo + '(' + cast(@tamanhoCampo as varchar(5)) +')'

            set @colunaValorIU = @colunaValorIU + '' + @nameColuna + '=''+' + ('@'+ @nameColuna + '_UI')

            set @colunaValorDE = @colunaValorDE + '' + @nameColuna + '=''+' + ('@'+ @nameColuna + '_DE')

end

        --- Fim variavel

        --- Início query

        --- Insert

        if (len(@queryInsertUpdate) > 0 and @tipoCampo <> 'text' and @tipoCampo <> 'ntext' and @tipoCampo <> 'image' )

        begin

            set @queryInsertUpdate = @queryInsertUpdate + '@' +@nameColuna +'_UI='+ @nameColuna

end

        --- Delete

        if (len(@queryDelete) > 0 and @tipoCampo <> 'text' and @tipoCampo <> 'ntext' and @tipoCampo <> 'image')

        begin

            set @queryDelete = @queryDelete + '@' +@nameColuna +'_DE='+ @nameColuna

end

        --- Fim query

        Fetch next from cColuna into @nameColuna, @tipoCampo, @tamanhoCampo -- Próxima coluna

        --Verifica a posição para adicionar a última vírgula

        if (@@FETCH_STATUS = 0)

        begin

            if (@tipoCampo <> 'text' and @tipoCampo <> 'ntext' and @tipoCampo <> 'image')

            begin

     set @auxDeclare = @auxDeclare + ','

     set @queryInsertUpdate = @queryInsertUpdate + ','

     set @queryDelete = @queryDelete + ','

     set @colunaValorIU = @colunaValorIU + '+'';'

     set @colunaValorDE = @colunaValorDE + '+'';'

end

end

        else

        begin

            set @auxDeclare = @auxDeclare + ',@regAnterior varchar(8000), @regAtual varchar(8000), @nameTable varchar(50)'

end

end

    close cColuna

    deallocate cColuna

    set @queryInsertUpdate = @queryInsertUpdate+ ' FROM INSERTED'

    set @queryDelete = @queryDelete + ' FROM DELETED'

    --Verificando se a tabela existe.

    if exists (select * from sysobjects where xtype = 'u' and name = @nameTabela)

    begin

    --Criando a trigger para tabela selecionada no cursor

    if not exists (SELECT * FROM sysobjects WHERE name = 'tg_'+@nameTabela+'' AND type = 'tr')

    begin

    exec ('CREATE TRIGGER tg_'+ @nameTabela +' ON  '+ @nameTabela +' AFTER INSERT,DELETE,UPDATE AS

    BEGIN

        SET NOCOUNT ON;

            declare @usuario varchar

            SELECT @usuario = CAST(CONTEXT_INFO AS VARCHAR)FROM master.dbo.SYSPROCESSES WHERE SPID=@@SPID

        '+ @auxDeclare +'

        set @nameTable = '''+ @nameTabela +'''

        if  ((exists (select * from inserted)) and (exists (select * from deleted)))

        begin

     '+ @queryDelete +'

     set @regAnterior = '''+ @colunaValorDE +'

     '+ @queryInsertUpdate +'

     set @regAtual = '''+ @colunaValorIU +'

     INSERT INTO POWERAUDITORIA(USUARIO, DATAHORA, TABELA, ACAOEXECUTADA, REGISTROANTERIOR, REGISTROATUAL) VALUES (@usuario, GETDATE(), @nameTable, ''U'', @regAnterior, @regAtual)

end

        if ((exists (select * from inserted)) and (not exists (select * from deleted)))

        begin

     set @regAnterior = null

     '+ @queryInsertUpdate +'

     set @regAtual = '''+ @colunaValorIU +'

     INSERT INTO POWERAUDITORIA(USUARIO, DATAHORA, TABELA, ACAOEXECUTADA, REGISTROANTERIOR, REGISTROATUAL) VALUES (@usuario, GETDATE(), @nameTable, ''I'', @regAnterior, @regAtual)

end

        if ((not exists (select * from inserted)) and (exists (select * from deleted)))

        begin

            '+ @queryDelete +'

            set @regAnterior = '''+ @colunaValorDE +'

            set @regAtual = null

            INSERT INTO POWERAUDITORIA(USUARIO, DATAHORA, TABELA, ACAOEXECUTADA, REGISTROANTERIOR, REGISTROATUAL) VALUES (@usuario, GETDATE(), @nameTable, ''D'', @regAnterior, @regAtual)

END

    END')

END

    ELSE

    BEGIN

      exec ('ALTER TRIGGER tg_'+ @nameTabela +' ON  '+ @nameTabela +' AFTER INSERT,DELETE,UPDATE AS

    BEGIN

        SET NOCOUNT ON;

            declare @usuario varchar(10)

            SELECT @usuario = CAST(CONTEXT_INFO AS VARCHAR)FROM master.dbo.SYSPROCESSES WHERE SPID=@@SPID

        '+ @auxDeclare +'

        set @nameTable = '''+ @nameTabela +'''

        if  ((exists (select * from inserted)) and (exists (select * from deleted)))

        begin

     '+ @queryDelete +'

     set @regAnterior = '''+ @colunaValorDE +'

     '+ @queryInsertUpdate +'

     set @regAtual = '''+ @colunaValorIU +'

    INSERT INTO POWERAUDITORIA(USUARIO, DATAHORA, TABELA, ACAOEXECUTADA, REGISTROANTERIOR, REGISTROATUAL) VALUES (@usuario, GETDATE(), @nameTable, ''U'', @regAnterior, @regAtual)

end

        if ((exists (select * from inserted)) and (not exists (select * from deleted)))

        begin

     set @regAnterior = null

     '+ @queryInsertUpdate +'

     set @regAtual = '''+ @colunaValorIU +'

     INSERT INTO POWERAUDITORIA(USUARIO, DATAHORA, TABELA, ACAOEXECUTADA, REGISTROANTERIOR, REGISTROATUAL) VALUES (@usuario, GETDATE(), @nameTable, ''I'', @regAnterior, @regAtual)

end

        if ((not exists (select * from inserted)) and (exists (select * from deleted)))

        begin

            '+ @queryDelete +'

            set @regAnterior = '''+ @colunaValorDE +'

            set @regAtual = null

            INSERT INTO POWERAUDITORIA(USUARIO, DATAHORA, TABELA, ACAOEXECUTADA, REGISTROANTERIOR, REGISTROATUAL) VALUES (@usuario, GETDATE(), @nameTable, ''D'', @regAnterior, @regAtual)

END

    END')

END

END

    FETCH NEXT FROM cTabela Into @idTabela, @nameTabela

    -- Limpando variáveis

    set @queryInsertUpdate = 'SELECT '

    set @queryDelete = 'SELECT '

    set @auxDeclare = 'DECLARE '

    set @colunaValorDE = ''

    set @colunaValorIU = ''

end

close cTabela

deallocate cTabela

--Cria a função para setar o usuário da aplicação

if not exists (SELECT * FROM   sysobjects  WHERE  name = N'SetUsuario' AND type = 'P')

begin

        exec ('Create procedure SetUsuario (

         @user varchar(8)

as

     begin

     DECLARE @ContextInfo varbinary(128)

     SELECT @ContextInfo = cast( @user AS varbinary(128) )

     SET CONTEXT_INFO @ContextInfo

     end')

end

Visualizar descrição de tabelas e colunas do MSSQL

2012-01-17T15:48:00.004-03:00

   1:  SELECT

   2:  u.name + '.' + t.name AS [Tabela],

   3:  td.value AS [Descrição da Tabela],

   4:  c.name AS [Coluna],

   5:  cd.value AS [Descrição da Coluna]

   6:  FROM sysobjects t

   7:  INNER JOIN sysusers u ON u.uid = t.uid

   8:  LEFT OUTER JOIN sys.extended_properties td ON td.major_id = t.id

   9:  AND td.minor_id = 0 AND td.name = 'MS_Description'

  10:  INNER JOIN syscolumns c ON c.id = t.id

  11:  LEFT OUTER JOIN sys.extended_properties cd ON cd.major_id = c.id

  12:  AND cd.minor_id = c.colid AND cd.name = 'MS_Description'

  13:  WHERE t.type = 'u'

  14:  ORDER BY t.name, c.colorder

Paginação no sql

2011-02-21T17:41:00.003-04:00

   1:  Declare @PageIndex int

   2:  Declare @PageSize int

   3:  set @PageIndex = 4;

   4:  set @PageSize = 7;

   5:  Select * From (SELECT ROW_NUMBER() OVER (Order by [column]) AS Linha,

   6:  [column..1], [column..2], [column..N] FROM [tabela]

   7:  WHERE Linha between (@PageIndex - 1) * @PageSize + 1 and

   8:  @PageIndex*@PageSize

Trabalhando com set context_info (Transact-SQL)

2010-10-31T13:55:00.001-03:00

Exemplos:

A. Configurando informações de contexto usando uma constante O exemplo a seguir demonstra SET CONTEXT_INFO definindo o valor e exibindo os resultados. Observe que consultar sys.dm_exec_sessions requer as permissões SELECT e VIEW SERVER STATE, enquanto que usar a função CONTEXT_INFO não requer.

   1:  SET CONTEXT_INFO 0x01010101

   2:  GO

   3:  SELECT context_info

   4:  FROM sys.dm_exec_sessions

   5:  WHERE session_id = @@SPID;

   6:  GO

B. Configurando informações de contexto usando uma função
O exemplo a seguir demonstra o uso da saída de uma função para definir o valor de contexto, onde o valor da função deve ser colocado primeiro em uma variável binary.

   1:  DECLARE @BinVar varbinary(128)

   2:  SET @BinVar = CAST(REPLICATE( 0x20, 128 ) AS varbinary(128) )

   3:  SET CONTEXT_INFO @BinVar

4:

   5:  SELECT CONTEXT_INFO() AS MyContextInfo;

   6:  GO

Fonte: http://msdn.microsoft.com/pt-br/library/ms187768.aspx

Função Split no SQL - retornando uma tabela.

2010-06-29T16:17:00.001-04:00

   1:  CREATE FUNCTION [dbo].[Split]

   2:  (

   3:         @text varchar(8000),

   4:         @delimiter varchar(1) = ' '

   5:  )

   6:  RETURNS @Strings TABLE(

   7:         position int IDENTITY PRIMARY KEY,

   8:         value varchar(8000)

   9:  )

  10:  AS

  11:  BEGIN

  12:  DECLARE @index int

  13:  SET @index = -1

  14:  WHILE (LEN(@text) > 0)

  15:  BEGIN

  16:         SET @index = CHARINDEX(@delimiter , @text)

  17:         IF (@index = 0) AND (LEN(@text) > 0)

  18:         BEGIN

  19:             INSERT INTO @Strings VALUES (@text)

  20:             BREAK

  21:         END

  22:         IF (@index = 1)

  23:         BEGIN

  24:             INSERT INTO @Strings VALUES (LEFT(@text, @index - 1))

  25:             SET @text = RIGHT(@text, (LEN(@text) - @index))

  26:         END

  27:         ELSE

  28:             SET @text = RIGHT(@text, (LEN(@text) - @index))

  29:  END

  30:  RETURN

  31:  END

WebService using NetworkCredential

2009-08-21T11:52:00.002-04:00

   1:  NetworkCredential nc = New NetworkCredential("username", "password", "domain")

   2:  WebProxy proxy = new WebProxy( "http//webproxyserver:80" );

   3:  proxy.Credentials = nc;

   4:  MyWebService mws = new MyWebService();

   5:  MeuWS.Proxy = proxy;

Cross-Page Posting

2009-06-26T14:09:00.006-04:00

Exemplo.

Pagina.: Default.aspx

A página Default chama a WebForm1

<%@ Page Language="C#" AutoEventWireup="true"

CodeBehind="Default.aspx.cs" Inherits="Estudo._Default" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"

"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml" >

<head runat="server">

    <title></title>

</head>

<body>

    <form id="form1" runat="server">

    <div>

        <table cellpadding="2">

            <tr>

                <td>

                    <asp:TextBox ID="TextBox1" runat="server"

                    Width="500px"></asp:TextBox>

                </td>

            </tr>

            <tr>

                <td>

                    <asp:Button ID="Button1" runat="server"

                    Text="Button" PostBackUrl="~/WebForm1.aspx" />

                </td>

            </tr>

        </table>

    </div>

    </form>

</body>

</html>

Página.: WebForm1.aspx

<%@ Page Language="C#" AutoEventWireup="true"

    CodeBehind="WebForm1.aspx.cs" Inherits="Estudo.WebForm1" %>

<%@ PreviousPageType VirtualPath="~/Default.aspx" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"

"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml" >

<head runat="server">

    <title></title>

</head>

<body>

    <form id="form1" runat="server">

    <div>

        <asp:Label ID="Label1" runat="server" Text="Label"></asp:Label>

    </div>

    </form>

</body>

</html>

No WebForm1.aspx você deverá acrescentar:

<%@ PreviousPageType VirtualPath="~/Default.aspx" %>

Agora a propriedade PreviousPage pode ser usada a partir de WebForm1.aspx para acessar os dados de Default.aspx. Porém, para acessarmos seus server controls, precisamos ainda escrever código semelhante a este:

Label1.Text = ((TextBox)PreviousPage.FindControl("TextBox1")).Text;

Registrar Script no código.

2009-06-22T13:50:00.001-04:00

this.ClientScript.RegisterStartupScript(this.GetType(), "nomeScript","funcao();",true);

Tipo de operadores do LINQ

2009-06-10T14:18:00.010-04:00

AGREGAÇÃO

Aggregate: Executa um método personalizado em uma seqüência
Average: Computa a média de uma seqüência de valores numéricos
Count: Retorna o número de itens em uma seqüência como um inteiro
LongCount: Retorna o número de itens em uma seqüência como um longo
Min: Localiza o número mínimo em uma seqüência de números
Max: Localiza o número máximo em uma seqüência de números
Sum: Soma os números de uma seqüência

CONCATENAÇÃO

Concat: Concatena duas seqüências em uma só

CONVERSÃO

Cast: Converte elementos de uma seqüência em um determinado tipo
OfType: Filtra elementos de uma seqüência de um determinado tipo
ToArray: Retorna uma matriz de uma seqüência
ToDictionary: Retorna um dicionário de uma seqüência
ToList: Retorna uma lista de uma seqüência
ToLookup: Retorna uma pesquisa de uma seqüência
ToSequence: Retorna uma seqüência IEnumerable

ELEMENTO

DefaultIfEmpty: Cria um elemento padrão para uma seqüência vazia
ElementAt: Retorna o elemento de um determinado índice em uma seqüência
ElementAtOrDefault: Retorna o elemento de um determinado índice em uma seqüência ou um valor padrão caso o índice esteja fora do intervalo
First: Retorna o primeiro elemento de uma seqüência
FirstOrDefault: Retorna o primeiro elemento de uma seqüência ou um valor padrão caso não seja encontrado nenhum elemento
Last: Retorna o último elemento de uma seqüência
LastOrDefault: Retorna o último elemento de uma seqüência ou um valor padrão caso não seja encontrado nenhum elemento
Single: Retorna o único elemento de uma seqüência
SingleOrDefault: Retorna o único elemento de uma seqüência ou um valor padrão caso não seja encontrado nenhum elemento

IGUALDADE

SequenceEqual: Compara duas seqüências para ver se elas são equivalentes

GERAÇÃO

Empty: Gera uma seqüência vazia
Range: Gera uma seqüência em um determinado intervalo
Repeat: Gera uma seqüência repetindo um item um determinado número de vezes

AGRUPAMENTO

GroupBy: Agrupa itens de uma seqüência em um determinado agrupamento

JUNÇÃO

GroupJoin: Executa uma junção agrupada em duas seqüências
Join: Executa uma junção interna em duas seqüências

ORDENAÇÃO

OrderBy: Ordena uma seqüência por valor(es) em ordem crescente
OrderByDescending: Ordena uma seqüência por valor(es) em ordem decrescente
ThenBy: Ordena uma seqüência já ordenada em ordem crescente
ThenByDescending: Ordena uma seqüência já ordenada em ordem decrescente
Reverse: Reverte a ordem dos itens de uma seqüência

PARTICIONAMENTO

Skip: Retorna uma seqüência que ignora um determinado número de itens
SkipWhile: Retorna uma seqüência que ignora itens que não atendam a uma expressão
Take: Retorna uma seqüência que usa um determinado número de itens
TakeWhile: Retorna uma seqüência que usa itens que atendam a uma expressão

PROJEÇÃO

Select: Cria uma projeção de partes de uma seqüência
SelectMany: Cria uma projeção um-para-muitos de partes de uma seqüência

QUANTIFICADORES

All: Determina se todos os itens de uma seqüência atendem a uma condição
Any: Determina se qualquer um dos itens de uma seqüência atende a uma condição
Contains: Determina se uma seqüência contém um determinado item

RESTRIÇÃO

Where: Filtra os itens de uma seqüência

CONJUNTO

Distinct: Retorna uma seqüência sem itens duplicados
Except: Retorna uma seqüência que representa a diferença entre duas seqüências
Intersect: Retorna uma seqüência que representa a interseção entre duas seqüências
Union: Retorna uma seqüência que representa a união entre duas seqüências

Utilizando Dictionary no DropDownList

2009-06-05T14:54:00.002-04:00

   1:  Dictionary<string, int> mes = new Dictionary<string, int>();

   2:  mes.Add("Janeiro", 1);

   3:  mes.Add("Fevereiro", 2);

   4:  ...

   5:  ddlMes.DataSource = mes;

   6:  ddlMes.DataTextField = "Key";

   7:  ddlMes.DataValueField = "Value";

   8:  ddlMes.DataBind();

Usando Transaction SQL no LInq

2009-06-03T13:54:00.002-04:00

   1:  DataContext dc = new DataContext();

   2:  DbTransaction trans = null;

   3:  try

   4:  {

   5:     dc.Connection.Open();

   6:     trans = dc.Connection.BeginTransaction();

   7:     dc.Transaction = trans;

   8:     //codigo

   9:     dc.SubmitChanges();

  10:     trans.Commit();

  11:  }

  12:  catch

  13:  {

  14:     trans.Rollback();

  15:  }

Url's Interessantes para Bina PC

2009-05-30T15:44:00.002-04:00

Sound, tone and DTMF generation by using managed DirectSound and C# and sine tone detection with pure managed Goertzel algorithm implementation

Produtividade com NHibernate 2.0

2009-05-29T11:44:00.005-04:00

Url's que falam do sobre o NHibernate.
http://www.codegod.de/WebAppCodeGod/nhibernate-tutorial-1---and-aspnet-AID25.aspx
http://www.linhadecodigo.com.br/Artigo.aspx?id=546
http://www.devmedia.com.br/articles/viewcomp.asp?comp=12073&hl=*nhibernate*
http://www.devmedia.com.br/articles/viewcomp.asp?comp=10610&hl=*nhibernate*
http://www.devmedia.com.br/articles/viewcomp.asp?comp=7262&hl=*nhibernate*
http://www.devmedia.com.br/articles/viewcomp.asp?comp=7494&hl=*nhibernate*
http://www.devmedia.com.br/articles/viewcomp.asp?comp=8106&hl=*nhibernate*

Função SQL que retorna o dia da semana por extenso

2009-05-18T11:37:00.002-04:00

   1:  CREATE FUNCTION fnGetDIASemanaExt

   2:  (

   3:                @DATA DATETIME

   4:  )

   5:  RETURNS VARCHAR (20)  AS

   6:  BEGIN

   7:    DECLARE @DIA INT,

   8:     @DIA_EXT VARCHAR(20)

   9:    SELECT @DIA = (DATEPART(DW,@DATA ))

  10:    IF @DIA=1

  11:      SET @DIA_EXT ='Domingo'

  12:    IF @DIA=2

  13:       SET @DIA_EXT ='Segunda-Feira'

  14:    IF @DIA=3

  15:       SET @DIA_EXT ='Terça-Feira'

  16:    IF @DIA=4

  17:       SET @DIA_EXT ='Quarta-Feira'

  18:    IF @DIA=5

  19:       SET @DIA_EXT ='Quinta-Feira'

  20:    IF @DIA=6

  21:       SET @DIA_EXT ='Sexta-Feira'

  22:    IF @DIA=7

  23:       SET @DIA_EXT ='Sábado'

  24:    RETURN @DIA_EXT

  25:  END

Função SQL que retorna os dias em um intervalo de datas

2009-05-18T11:26:00.002-04:00

CREATE     function fnGetDiasNoIntervaloData

    @anoInicio smallint,

    @mesInicio tinyint,

    @diaInicio tinyint,

    @anoFim smallint,

    @mesFim tinyint,

    @diaFim tinyint

returns @datas table

        data smalldatetime,

        diaSemana varchar(13)

as

begin

declare @dataInicial datetime

declare @dataFinal datetime

declare @dia varchar(13)

SELECT @dataInicial = cast(@anoInicio as varchar(4))+ '-' +

              cast(@mesInicio as varchar(2)) + '-' +

              cast(@diaInicio as varchar(2))

SELECT @dataFinal = cast(@anoFim as varchar(4))+ '-' +

            cast(@mesFim as varchar(2)) + '-' +

            cast(@diaFim as varchar(2))

SELECT @dia = (SELECT [GAP].[dbo].[fnGetDIASemanaExt](@dataInicial))

WHILE @dataInicial <= @dataFinal

begin

insert into @datas values (@dataInicial, @dia)

SELECT

    @dataInicial = DATEADD(DAY,1,@dataInicial),

    @dia = (SELECT [GAP].[dbo].[fnGetDIASemanaExt](@dataInicial))

end

return

end

--select * from fnGetDiasNoIntervaloData(2009,1,1,2009,1,31)

Hack para alguns navegadores

2009-05-07T15:27:00.001-04:00

As vezes há necessidade de implementarmos algum estilo para um browser específico. Ou porque uma linha ficou um pouco torna em algum navegador ou qualquer outro motivo.

Como o mais problemático é o I.E., nós temos algumas hacks para ele, que soluciona esta necessidade.

1.   background-color: green; /* Qualquer Browser */
2.   background-color /*\**/: #FFCC00\9; /* Internet Explorer 8 */
3.   *background-color: red; /* Internet Explorer 6 e 7 */
4.   _background-color: blue; /* Internet Explorer 6 */

Sendo assim, se você quer implementar um estilo específico para o I.E. 6, basta colocar o prefixo "_" antes da propriedade. E assim da mesma forma para os outros navegadores, conforme a lista acima, usando o seu respecitivo hack.

Lembrando, as hacks devem ser usadas sempre DEPOIS de definir o padrão para todos os navegadores, caso contrário, a definição geral para qualquer browser substitui as outras definições de hack anteriores.

Exemplo, é errado fazer:
_background-color: blue;
background-color: green;

É certo fazer:
background-color: green;
_background-color: blue;

Saiba como utilizar o Accordion do Ajax.Net

2009-05-07T12:18:00.000-04:00

<%--Utilizando Accordion--%>

<style type="text/css">

.accordionHeader
{
border: 1px solid #2F4F4F;
color: white;
background-color: #2E4d7B;
font-family: Arial, Sans-Serif;
font-size: 12px;
font-weight: bold;
padding: 5px;
margin-top: 5px;
cursor: pointer;
height: 10px;
}
.accordionHeaderSelect
{
border: 1px solid #2F4F4F;
color: red;
background-color: #2E4d7B;
font-family: Arial, Sans-Serif;
font-size: 12px;
font-weight: bold;
padding: 5px;
margin-top: 5px;
cursor: pointer;
height: 10px;
}
.accordionContent
{
background-color: #D3DEEF;
border: 1px dashed #2F4F4F;
border-top: none;
padding: 5px;
padding-top: 10px;
}
</style>

<cc1:Accordion ID="Accordion1" runat="server" SelectedIndex="0" HeaderCssClass="accordionHeader"
HeaderSelectedCssClass="accordionHeaderSelected" ContentCssClass="accordionContent"
AutoSize="None" FadeTransitions="true" TransitionDuration="250" FramesPerSecond="40"
RequireOpenedPane="false" SuppressHeaderPostbacks="true">
<Panes>
<cc1:AccordionPane HeaderCssClass="accordionHeader" HeaderSelectedCssClass="accordionHeaderSelected"
ContentCssClass="accordionContent">
<Header>
Consulta do remanescente por face</Header>
<Content>
. . .
</Content>
</cc1:AccordionPane>
<cc1:AccordionPane HeaderCssClass="accordionHeader" HeaderSelectedCssClass="accordionHeaderSelected"
ContentCssClass="accordionContent">
<Header>
Consulta do remanescente por ano e mês</Header>
<Content>
. . .
</Content>
</cc1:AccordionPane>
</Panes>
</cc1:Accordion>

WYSISWYG HTML Editor para ASP.NET

2009-05-06T17:59:00.001-04:00

Clique aqui e saiba mais

CSS - Altura Vertical de Imagem e Texto não fica alinhado

2009-05-06T14:20:00.004-04:00

Muitas vezes ao fazemos um menu por exemplo, necessitamos colocar um icone, contudo pode ocorrer do icone não ficar alinhado verticalmente com o texto. O texto fica alinhado pela base da imagem.

Para resolver isso é necessário:

Na imagem, definir float:left e em seguida, ajustar com padding para que o icone ocupe a mesma altura da linha.

No texto, definir line-height, de modo que tanto a altura da linha como da imagem sejam as mesmas.

Mais uma problema resolvido e não mais esquecido. Boa Sorte.

Script para a caixa de texto aceitar só número

2009-04-03T15:59:00.001-04:00

function IsNumeracaoValid(controle, value) {

        if(value != ''){

            var upr = '0123456789';

            var numeracaoValido = '00000';

            value = value.toUpperCase();

            for (i=0; i<value.length; i++)

                if (upr.indexOf(value.charAt(i),0) >= 0)

                    numeracaoValido += value.charAt(i);

                    value.toString()

            controle.value = numeracaoValido.substring(value.length,

                             numeracaoValido.length);