USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Grid/FlexGrid)

Título da Dica:  Como rolar no Grid/Flex na digitação de um TextBox (DAO/ADO)
Postada em 6/3/2007 por LCRamos            
Quando em uma pesquisa, o usuário vai digitando, a Grid/Flex ir rolando e selecionando a pesquisa.

Coloque um controle acoplado ADO/DAO, configure o BD e a Tabela p/ o controle (de preferencia via código), coloque uma TextBox.

Em Declarações do formulário:

Dim sPROCURA As String
Dim sSQL As String

No evento KeyUp do Text.

Private Sub Text1_KeyUp(Tecla As Integer, Shift As Integer)
PESQUISA
End Sub

Função PESQUISA que seleciona a medida que digita:

Private Function PESQUISA()
   sSQL = "Select * From TABELA"
   If Len(Text1.Text)) > 0 Then
      sSQL = sSQL & "Where CAMPO>='" & Text1.Text & "'"
   End If
   sSQL = sSQL & " Order By CAMPO"
   ADO/DAO/NOME.RecordSource = sSQL
   ADO/DAO/NOME.Refresh
   GRID/FLEX/NOME.Refresh  
End Function

Esta pesquisa pode ser efetuada com qualquer tipo de dados, basta mudar a final, se for numérico ou data, podendo ser usando o BETWEEN ou outro qualquer.
Simples e prática.

vlu//
 


CyberWEB Network Ltda.    © Copyright 2000-2018   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página