olá. Eu tenho um banco de dados e tenho uma rotina de pesquisa e ela é mostrada em um dbgrid e ate pode imprimir . mais eu gostaria que ficasse em ordem alfabetica.

grato..

Olá, amigo, explique melhor a sua dúvida. Você quer mostrar no dbgrid em ordem alfabética, é isso?

Você utiliza ADO ou DAO? Escreva o código em que você mostra no dbgrid.

 

Até mais.

Na sql que vc usa para abrir sua tabela, coloque no fim

 

order by nome

 

Dai vai carregar em ordem alfabetica... T+

o codigo é esse!

Private Sub Text1_LostFocus()
Dim AreaTrabalho As Workspace
Dim query As String
Dim xxbco As Database
Set AreaTrabalho = DBEngine.Workspaces(0)
Set XBCO = AreaTrabalho.OpenDatabase(App.Path & "Temp1.Mdb", False, False)
query = "Select * From Temp1 order by D1"
Set DYN1 = XBCO.OpenRecordset(query)
While Not DYN1.EOF
DYN1.Delete
DYN1.MoveNext
Wend

 

Set AreaTrabalho = DBEngine.Workspaces(0)
Set xxbco = AreaTrabalho.OpenDatabase(App.Path & "Estoque.Mdb", False, False)

query = "SELECT* FROM Cadastro order by E12"
Set dyn = xxbco.OpenRecordset(query)
While Not dyn.EOF

If (dyn("E12")) = (Text1.Text) Then

 

DYN1.AddNew
DYN1("d1") = dyn("E12")
DYN1("d2") = dyn("E1")
DYN1("d3") = dyn("E4")
DYN1("d4") = dyn("E5")
DYN1("d5") = dyn("E7")
DYN1("d6") = dyn("E8")
DYN1("d7") = dyn("E3")
DYN1.Update

 

End If

 

 

 

dyn.MoveNext
Wend

XBCO.Close
xxbco.Close

Data1.Refresh

End Sub

O que são os campos D1 e E12 onde você colocou Order By?

D1 =  estoque (é um banco de dados temporario)

E12 = estoque