Postagens

Usando o Controle MonthView com ADO e MSHFlexGrid

Imagem
    Usando o Controle MonthView com ADO e MSHFlexGrid O Visual Basic 6 trouxe alguns controles novos. Dentre eles temos o controle  MonthView   que permite ao usuário uma interface com  um calendário quando fazemos entradas/tratamento de datas. Para usar este controle você tem que incluir o arquivo  MSCOMCT2.OCX  -  Microsoft Windows Commons Controls  - ao seu projeto, e quando você for distribuir sua aplicação esta OCX deverá estar presente no diretório System do Windows.( Voce deverá providenciar a instalação da Ocx durante a instalação do aplicativo... lembrando que não está disponivel no office 365 ) É muito fácil configurar a aparência deste controle , pois ele possui muitos atributos para cores : MonthBackColor  - define a cor do fundo mês exibido no calendário TitleBackColor  - Define a cor do fundo do titulo do calendário TitleForeColo r - Define a cor da Fonte do título do Calendário TrailingForeColor  - Define a cor d...

Busca SQL dentro do EXCEL

  1. O Excel possui o "Assistente de Conexão de Dados" que permite importar ou vincular de outra fonte de dados ou até mesmo dentro do mesmo arquivo Excel. 2. Como parte do Microsoft Office (e dos sistemas operacionais), há dois provedores de interesse: o antigo "Microsoft.Jet.OLEDB" e o mais recente "Microsoft.ACE.OLEDB". Procure-os ao configurar uma conexão (como com o Assistente para Conexão de Dados). 3. Depois de conectado a uma pasta de trabalho do Excel, uma planilha ou intervalo é equivalente a uma tabela ou exibição. O nome da tabela de uma planilha é o nome da planilha com um cifrão ("$") anexado a ela e entre colchetes ("[" and "]"); de um intervalo, é simplesmente o nome do intervalo. Para especificar um intervalo de células sem nome como sua fonte de registro, anexe a notação de linha / coluna padrão do Excel ao final do nome da planilha entre colchetes. 4. O SQL nativo será (mais ou menos) o SQL do Microsof...

Listar todos os arquivos que estão em uma pasta e inserir hyperlinks

  Como listar todos os arquivos que estão em uma pasta e inserir hyperlinks para eles? Simples! Vamos a solução: Private Sub FS(FoundFiles As Collection , DPath As String , Mask As String , IncludeSubdirectories As Boolean )     Dim DirFile As String      Dim CollectionItem As Variant     Dim SubDirCollection As New Collection         'adiciona barra se não encontrada     DPath = Trim(DPath)     If Right(DPath, 1) <> "\" Then DPath = DPath & "\"       ' procura os arquivos de acordo com a mascara de entrada     DirFile = Dir(DPath & Mask)         Do While DirFile <> ""              FoundFiles.Add DirFile 'adiciona arquivo para a lista         DirFile = Dir ' next file       ...

Busca SQL dentro do Excel

  Como realizar uma busca SQL dentro do Excel Bom, olá pessoal. Atenção pessoal estarei disponibilizando uma série de tutoriais com uso de VBA, para as mais diversas necessidades. neste primeira parte estou disponibilizando um tutorial de como montar uma busca SQL dentro do excel, de uma(s) planilha(s) para outra. porque usar SQL? é muito mais rápido e pratico e vc pode usar filtros que não poderia usar de forma rapida e fácil no excel. como por exemplo eu tenho em uma planilha uma lista de tarefas e eu quero todas as tarefas que vão vencer no periodo de 25/04/2009 até 15/05/2009, vc pode usar simplesmente este comando SQL: "select * from [dado$] where data>=#04/25/2009# and data<=#05/15/2009#;" onde: Citação: select * = seleciona todos os dados, também pode ser "select data, nome, funcao", isto é, todos os rótulos, mas lembre-se: não use espaços nem pontuação. ex.: função=funcao; data final=data_final. também pode usar top 15 (ou qualquer outro numero) para ...

Microsoft ACE OLEDB 12.0 connection strings

Excel 97 Arquivos Xls do Excel 97-2003 com ACE OLEDB 12.0 Você pode usar essa string de conexão para usar o driver OLEDB do Office 2007 (ACE 12.0) para se conectar a pastas de trabalho 97-2003 Excel mais antigas.   Provider = Microsoft.ACE.OLEDB.12.0; Data Source = c:\myFolder\myOldExcelFile.xls; Extended Properties = "Excel 8.0; HDR = YES";   "HDR = Yes;" indica que a primeira linha contém nomes de colunas , não dados. "HDR = No;" indica o oposto. Excel 2000 Arquivos Xls do Excel 97-2003 com ACE OLEDB 12.0 Você pode usar essa string de conexão para usar o driver OLEDB do Office 2007 (ACE 12.0) para se conectar a pastas de trabalho 97-2003 Excel mais antigas.   Provider = Microsoft.ACE.OLEDB.12.0; Data Source = c:\myFolder\myOldExcelFile.xls; Extended Properties = "Excel 8.0; HDR = YES";   "HDR = Yes;" indica que a primeira linha contém nomes de colunas , não dados...