THE MUCACCINO ON DEV-WORLD @dev-mucaccino - Tumblr Blog

I'm dev back.

Lista e mantém as DLL's registradas no Windows

http://www.nirsoft.net/utils/registered_dll_view.html

[ASP] Como ler um arquivo .Xlsx em ASP Classic

Lista de Drivers para leitura: http://www.connectionstrings.com/excel-2007#ace-oledb-12-0

Driver utilizado: http://www.connectionstrings.com/providers/ace-oledb-12-0

Dim objConn, objRS, strSQL Dim x, curValue Qtde = 0 Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Server.Mappath("documents\") & "\" & request("arquivo") & "; Extended Properties=""Excel 12.0 Xml;HDR=YES"";" strSQL = "SELECT * FROM A1:G100000" Set objRS=objConn.Execute(strSQL) Response.Write("<table border=""1"">") Response.Write("<tr>") //Loop em cabeçalhos For x=0 To objRS.Fields.Count-1 Response.Write("<th>*" & objRS.Fields(x).Name & "</th>") Next Response.Write("</tr>") //Loop em linhas de dados Do Until objRS.EOF Qtde = Qtde + 1 Response.Write("<tr>") For x=0 To objRS.Fields.Count-1 curValue = objRS.Fields(x).Value If IsNull(curValue) Then curValue="N/A" End If curValue = CStr(curValue) Response.Write("<td>#" & curValue & "</td>") Next Response.Write("</tr>") objRS.MoveNext Loop objRS.Close Response.Write("</table>") objConn.Close Set objRS=Nothing Set objConn=Nothing Response.Write "Total: " & Qtde Response.End

[SQL] Campo UNIQUE com múltiplos NULL [Field UNIQUE with multiple NULL]

Algumas vezes é necessário criar uma tabela com um campo único, além da primary key - um exemplo seria o telefone em um cadastro de cliente numa pizzaria - então utilizamos a constante UNIQUE na criação do campo que indica que ele não deve se repitir.

Funciona muito bem! Não é permitido inserção no banco quando existe um outro valor já cadastrado... inclusive não permite a repetição da informação NULL... é nesse caso que esse post vem ajudar.

Algumas vezes precisamos de um campo único, que permita valor nulo, e que vários registros possam repitir o valor nulo sem passar pela validação de chave única... eis uma solução que cria uma chave única e ainda assim permite a inserção de multiplos NULL na tabela.

CREATE UNIQUE NONCLUSTERED INDEX idx_yourcolumn_notnull ON YourTable(yourcolumn) WHERE yourcolumn IS NOT NULL;

[ASP] Querystring com caractere especial

Às vezes complica quando tentamos passar uma querystring para uma outra página e ela se perde porque tem alguns caracteres especiais e quando chega no destino está corrompida ou falhada. Bem, para solucionar isso basta que a gente utilize uma codificação no trecho...

Use HttpServerUtility.UrlEncode no ASP.NET:

String MyURL; MyURL = "http://www.contoso.com/articles.aspx?title=" + Server.UrlEncode("ASP.NET Examples"); Response.Write(" ASP.NET Examples ");

Ou Server.UrlEncode no ASP Classic:

Response.Write(Server.URLEncode("http://www.microsoft.com"))

#asp #asp.net

[JS] Redirecionamento de URL / Location

Como redirecionar para outra página utilizando JavaScript?

#js

[SQL] Retorno de Valor em Procedure

Às vezes é necessário executar uma consulta com prodecimento de execução num banco de dados, seja para atualizar, inserir ou deletar, ou todas ao mesmo tempo, e é preciso retornar um inteiro indicando qual o resultado ou em quais condições a execução foi finalizada.

Com o SQL podemos executar toda a Query armazendando um valor inteiro de retorno e no final executar um comando que irá retornar esse valor ao resultado de execução - podendo ser resgatado depois por qualquer tipo de linguagem.

Veja um exemplo:

Create Procedure proc_Exemplo_I @Nome VarChar(100), @Cpf Decimal(14) As Set NoCount On Declare @Retorno As SmallInt Set @Retorno = 0 If (Select Count(*) From tab_Exemplo_I Where Cpf = @Cpf) > 0 Set @Retorno = 1 Else Insert Into tab_Exemplo_I(Nome, Cpf) Values (@Nome, @Cpf) if (SELECT @@ROWCOUNT) > 0 Set @Retorno = 2 End /* O COMANDO 'SELECT' RETORNA O VALOR ARMAZENADO NA PROC */ SELECT 'retorno' = @Retorno;

#sql

[Flex] Debugging Bindings

O Flex possui um interessante recurso que permite ligar uma propriedade a outra, fazendo com que seu valor seja alterado quando a primeira foi alterada: o [Bindable]. Ele realmente ajuda muito, mas é um pouco complicado debuggar seus valores e sua ligação; era.

A classe mx.binding.BindManager não documentada tem um método que auxilia o debugger das propriedades, bastando apenas passar o caminho da propriedade bindada.

Exemplo:

BindingManager.debugBinding("grid.dataProvider");

Artigo auxiliar para consulta.

#flex

[Dica] Escape de caracteres HTML

Pra quem também posta no tmbrl utilizando as ferramentas que aplicam estilo a pedaços de códigos e às vezes se perde na hora de converter os caracteres HTML para seus códigos não HTML, aí vai o link desse site que converte os caracteres especiais online e de forma simples:

http://www.reconn.us/component/option,com_wrapper/Itemid,62/

#tip

[Flex] Controls: HTMLTooltip

Precisei alterar todos os tooltips padrões da aplicação por um tooltip que possuísse suporte à texto HTML (bold, italic, color e tudo isso). Dando uma olhada na net encontrei a possibilidade de criar uma classe controle nova, herdada do tolltip padrão da aplicação, sobrescrevendo a função do ciclo de vida do componente aplicando o texto na propriedade .htmlText do label do tooltip. Em seguida, utilizando o controlador geral de tooltip, conseguimos indicar a utilização do novo controle para todo escopo da aplicação.

Classe de controle:

package net.mucaccino.fx.controls { import mx.containers.*; import mx.controls.Text; import mx.controls.ToolTip; import mx.core.*; public class HTMLToolTip extends ToolTip { public function HTMLToolTip() { super(); } override protected function commitProperties():void{ super.commitProperties(); textField.htmlText = text; } } }

Aplicando controle a controlador geral:

import net.mucaccino.fx.controls.*; private function init():void{ ToolTipManager.toolTipClass = HTMLToolTip; meuBotao.toolTip = "Tooltip com <strong>HTML</strong>." }

#flex

[Flex] AdvancedDataGrid: Evento ao mover coluna

Eu precisava receber um evento quando eu movia a coluna alterando a ordem entre a exibição delas em um AdvancedDataGrid. Tentei todos os eventos próprios do AdvancedDataGridEvent, sem sucesso. Dando uma olhada nos eventos do DataGrid padrão encontrei o evento IndexChangedEvent.HEADER_SHIFT, que é dispara exatamente quando uma coluna é movida (ou de acordo com o nome da classe de evento, quando o index da lista é alterado).

Funciona que é uma beleza:

_datagrid.addEventListener(IndexChangedEvent.HEADER_SHIFT, onHeaderShift); var onHeaderShift = function(event:IndexChangedEvent):void { Alert.show("onHeaderShift"); }

[AIR] Get application version

If you need to discover the version of your AIR application you can get this info directly of the application descriptor, like this sample method show us:

public function getAppVersion():String { var appXml:XML = NativeApplication.nativeApplication.applicationDescriptor; var ns:Namespace = appXml.namespace(); var appVersion:String = appXml.ns::versionNumber[0]; // AIR below v2.5 use the tag 'version' instead of 'versionNumber' // var appVersion:String = appXml.ns::version[0]; return appVersion; }

Using this same conception we can get any parameter instantiated on application descriptor, like:

- id - filename - name - description - supportedProfiles - installFolder - versionNumber

Or any other...

#flashdev #air #tip

[AS3] Find distance between two points

Some time ago I have needed to find the distance between two points. I found two ways to do this:

1. The easiest way:

With the AS3, the Point class was implemented to make more ease the coordenates manipulation. Inside this class has one method called distance that can be used to find the desired distance.

var point1:Point = new Point(0, 0); var point2:Point = new Point(10, 10); var distance:Number = Point.distance(point1, point2);

2. The optimized way (5x faster):

Surfing on the web I found another method that use the Pythagorean Theorem making execution code speediest. We too can use this method when we dont have a Point instanciated you can use x and y properties of any display object.

var point1:Point = new Point(0, 0); var point2:Point = new Point(10, 10); var distance:Number = distance(point1.x, point1.y, point2.x, point2.y);

This is the magic function:

function distance (x1:int, y1:int, x2:int, y2:int):Number { var dx:int = x2 - x1; var dy:int = y2 - y1; return Math.sqrt(dx*dx + dy*dy) }

Testing and proving:

You must be wondering why the easiest and speediest execution methods are listed here. Ok, I done one simple test to prove the difference of time execution between the two ways where you can see:

Lopping 10000000 times in each method this results are printed:

Finding distance using Point.distance: [distance=14.142135623730951, execution time: 5673ms]

Finding distance using Pythagorean Theorem: [distance=14.142135623730951, execution time: 1623ms]

#flashdev #tip #as3

SwfCabin is a smart solution for fast swf hosting, we can host your swf file in seconds and automatically place it on a webpage. I'll use a lot of this service to show you mine laboratories and to illustrate some posts and articles with samples and references.

#flashdev #services

Trending Blogs

Recently Viewed Blogs

THE MUCACCINO ON DEV-WORLD