|
|
|
|
|
|
|
|
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//
|
|
|
|
|
