Ordenação E Restrição De Dados Num Grid

[Macêdo]

COLOCANDO UM GRID EM ORDEM DO CAMPO QUE QUISER

Crescente

Dim ordem

ordem = "(" & "Select * from Tabela order by campo asc" & ")"

Adodc1.RecordSource = (ordem)

Adodc1.Refresh

Ou assim:

Adodc1.Recordset.Sort = "campo"

decrecente

Dim ordem

ordem = "(" & "Select * from Tabela order by campo Desc" & ")"

Adodc1.RecordSource = (ordem)

Adodc1.Refresh

Como Restringir os dados visualizados no GRID

Quando o campo for numérico

Dim ordem

ordem = "(" & "Select * from Tabela where campo (=; <>; <=; >=) parametro" & ")"

Adodc1.RecordSource = (ordem)

Adodc1.Refresh

Como Restringir os dados visualizados no GRID

Quando o campo for texto

Dim ordem

ordem = "(" & "Select * from Tabela where campo (=; <>; <=; >=) ‘parametro’ " & ")"

Adodc1.RecordSource = (ordem)

Adodc1.Refresh