Buscando registros usando intervalos de datas são muitas vezes utilizados em programação de computadores para filtrar registros específicos que se enquadram nas datas especificadas . Esses registros devem ter pelo menos um campo com o tipo de dados de data . Por exemplo, em um módulo de relatórios em um programa Visual Basic , os usuários podem especificar as datas de início e fim , clicando em um calendário drop-down e, em seguida clicar em um botão de comando para filtrar os relatórios dentro desse período particular. Você pode filtrar os registros com intervalo de datas no Visual Basic 6 , seguindo estes passos . Coisas que você precisa
computador
6 software Visual Basic
arquivo de banco de dados
Show Mais instruções
1

Inicie o Visual Basic a partir de seu computador , clicando em " Iniciar> Programas > Microsoft Visual Studio 6.0 > Microsoft Visual Basic 6.0. "
2

Inicie um novo projeto Visual Basic , selecionando" standard EXE "do" diálogo New Project " caixa que aparece . Clique em "Abrir " para carregar o ambiente do programa .
3

Adicione controles , clicando -los da " caixa de ferramentas " um de cada vez e soltando-os no formulário. Por exemplo, se você quer criar um programa que filtra os funcionários que foi contratado dentro de 1 de janeiro de 2000 e 31 de dezembro de 2009, pode ser necessário adicionar dois controles " DTPicker ", controle " ADO " para definir a conexão com um banco de dados, um botão de comando e um controle de grade para exibir os registros . Uma vez que o controle " DTPicker " não faz parte dos controles padrão encontrados na " caixa de ferramentas " , você precisará adicioná-lo . Para fazer isso, clique com o botão direito do mouse na " caixa de ferramentas " e clique em "Componentes" . Na guia " Controles " , role para baixo e marque a opção " Controls- 2 6.0 Microsoft Windows Common " . Clique em "Fechar " quando terminar.
4

Continuar projetar sua interface do programa. Organize os controles dentro do formulário e defina as propriedades individuais para cada controle.
5

Clique no botão " View Code " na parte superior da janela " Project Explorer " para começar a escrever códigos. No evento " Form_Load " , abra a sua conexão com o banco .
6

Clique no botão de comando VB que executa o comando para filtrar os registros com intervalo de datas. No "Click" do evento, escrever um código semelhante ao seguinte :

Dim rs como Nova ADODB.RecordsetDim dtFrom , Dtto como data

Se rs.State = adStateOpen Então rs.Closers . CursorLocation = adUseClientrs.Open "Select * from [ Table_Name ] onde [ Beginning_Date_field ]> = ' " & dtFrom & "' e End_Date_field < = ' " & Dtto & "'" , conexão, adOpenDynamic , adLockOptimistic , adCmdTextIf rs.RecordCount > 0 Then'display os resultados filtrados na grade ... End If
7

Execute o programa pressionando F5 no seu teclado. Clique nos calendários suspensas e definir as datas de início e término. Clique no botão de comando para executar.
8

Corrija qualquer sintaxe ou erros de lógica , se houver.
9

Salve seu trabalho com a tecla " Ctrl" + "S" no teclado.