Corrigindo ordenação em campos IDENTITY Auto Incremento

Dicas e Truques Microsoft SQL Server

Como corrigir ordenação em campos IDENTITY Auto Incremento em todo banco de dados Microsoft SQL SERVER Algumas vezes, os valores de um campo de auto incremento (Identity) podem ficar desordenados ou com uma numeração onde já exista um registro na tabela, isto pode ocorrer, principalmente após a Restauração de um banco de dados. Desta Forma,

Continuar lendo »

Enviando um email pelo Outlook

Enviando um email pelo Outlook Primeiro, selecione o componente MICROSOFT MAPI CONTROLS. Depois acrecente no seu form o objeto MAPISESSION e MAPIMESSAGES que apareceram na sua toolbox. Então use a seguinte codificação para enviar uma mensagem: mapisession.Action = 1 mapimessages1.SessionID = mapisession.SessionID mapimessages1.Compose mapimessages1.RecipAddress = “webmundi@webmundi.com” mapimessages1.AddressResolveUI = True mapimessages1.ResolveName mapimessages1.MsgSubject = “Titulo da minha

Continuar lendo »

Eliminando o IF quando possível

Eliminando o IF quando possível no Visual Basic Se você atribui true ou false para uma variável (ou propriedade), após testar certas condições, poderia fazê-lo sem o IF. Veja: If (age > 18 and sex = “M”) and (NecessitaSeContigente = true ) Then ServicoMilitar = true Pode substituir por: ServicoMilitar = (age > 18 and

Continuar lendo »

Como criar Hyperlinks em um Label

Como criar Hyperlinks em um Label A partir de um form, adicione 2 labels chamados Label1 e Label2. Logo após adicione o código a seguir, clicando sobre os labels: Private Declare Function ShellExecute Lib “shell32.dll” Alias _ “ShellExecuteA” (ByVal hwnd As Long, ByVal lpOperation As String, _ ByVal lpFile As String, ByVal lpParameters As String,

Continuar lendo »

Adicionar tabs a uma ListBox

O Objeto ListBox Standard do Visual Basic não contempla colunas. Podemos contornar o problema, utilizando uma função API do Windows. No modulo .Bas adicionamos outra variável constante: Public Const LB_SETTABSTOPS = &H192 No evento Form_Load() digitamos o seguinte código: Private Sub Form_Load() Dim lngRet As Long LngRet = SendMessage(lstcapitais.hwnd, LB_SETTABSTOPS, 1, 40&) Call Capitais End

Continuar lendo »
Pages:1234567...33»