[Resolvido] DataGrid

[Claudio Neto 3]

Isso você faz no seu select. Exemplo:

 

ex1 = "select * from tabela order by data" '->orderna por data de forma crescente
ex2 = "select * from tabela order by data asc" '->orderna por data de forma crescente
ex3 = "select * from tabela order by data desc" '->orderna por data de forma decrescente

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Caulfield 0]

Isso você faz no seu select. Exemplo:

 

ex1 = "select * from tabela order by data" '->orderna por data de forma crescente
ex2 = "select * from tabela order by data asc" '->orderna por data de forma crescente
ex3 = "select * from tabela order by data desc" '->orderna por data de forma decrescente

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

 

 

Valew.

[Caulfield 0]

Bom isso não está né. Mas se de outras formas não deu certo, começo a achar que o VB não conseguirá resolver se não assim.

Mas acho que não precisa fechar e abrir tantas vezes. Pode manter aberta no load do form, e quando adicionar um novo, fecha e abre de novo em seguida, ai carrega o grid.

 

Tenta assim, ve se vai.

 

Ae galera é o seguinte continuei tentando melhorar até que acho que consegui um bom resultado.

 

No botão que adciona uma nova observação coloquei o código:

 

RS_OBSER.AddNew

e no botão para salvar coloquei o seguinte:

 

 

Dim SQL As String

Set RS_OBSER = New ADODB.Recordset

SQL = "Select NumeroOrdem, Obser, Data FROM Obser WHERE NumeroOrdem like '" & ATUAL & "%' ORDER BY Data desc"

With RS_OBSER
  .CursorLocation = adUseClient
  .Open SQL, DB, adOpenKeyset, adLockOptimistic

Set dtaObser.DataSource = RS_OBSER

With dtaObser
    .Columns.Item(0).Caption = "Número OD"
    .Columns(0).Width = 1500
    .Columns.Item(1).Caption = "Observações"
    .Columns(1).Width = 5500
    .Columns.Item(2).Caption = "Data"
    .Columns(2).Width = 1500
    .Refresh
End With
End With

Ele funciona perfeitamente bem... Assim que dou um Novo o Datagrid já inclui uma linha e quando salvo ele aparece a informação que foi digitada.