TIPO DE EXIBICAO DE DATA NO MSHFLEXGRID

LINDOLPHO 04/06/2007 18:00:44
#219709
Estou tentando fazer um pequeno sistema em VB6. utilizando uma base de dados ADO com Acess eu coloco os registros numa MSHFLEXGRID.Tenho os seguintes campos: Nome, Data de nascimento e sexo (F/M)
A data de nascimento que no banco de dados é configurada dd/mm/aaaa na tabela do MSHFLEXGRID aparece mm/dd/aaaa. Alguém poderia me ajudar a configurar para que a data volte para o formato dd/mm/aaaa????

Obrigado
USUARIO.EXCLUIDOS 04/06/2007 19:32:31
#219721
grid.textmatrix(linha,coluna) = format(tbl!Data,"DD/MM/YYYY")
LINDOLPHO 05/06/2007 10:00:02
#219784
Obrigado pela resposta. Mas não deu certo. Deu erro indicando Objeto requerido.
USUARIO.EXCLUIDOS 05/06/2007 12:39:35
#219819
esse erro pedindo o objeto requerido e o nome do seu MSHFLEXGRID, vc dever colocar nomeMSHFLEXGRID.textmatrix(linha,coluna) = format(tbl!Data,"DD/MM/YYYY")
HUGOSSOUZA 05/06/2007 13:11:20
#219823 Resposta escolhida
como vc carrega a grid?

vc pode fazer direto no select tbm

ex: select format(datanasc,"DD/MM/YYYY") as datanasc from suaTabela
USUARIO.EXCLUIDOS 05/06/2007 13:18:07
#219824
Sim da mesma forma que usa o DataGrid
eu faço a minha select e depois

sql="Select * from cidades"

recordeset.opem sql,,,

set = meugrid.datasouce = recordeset
LINDOLPHO 06/06/2007 10:30:37
#219982
Desculpe pela demora. faço a carga da grid da forma abaixo.

Sub flex()
If Len(Text2.Text) = 0 Then
  sql = "SELECT código,nascimento,nome,sexo FROM geral ORDER BY nome "
    Else
  sql = "SELECT código,nascimento,nome,sexo FROM geral WHERE nome LIKE '" & Trim(Me.Text2.Text) & "%'ORDER BY nome "
     
  End If
        rs.Close
    
     rs.CursorLocation = adUseClient
     rs.CursorType = adOpenStatic
     rs.LockType = adLockBatchOptimistic
  
    rs.Open sql, conexao
        
    If Not rs.EOF Then
       Set MSHFlexGrid1.DataSource = rs

    Else
       MsgBox "Registro(s) não localizado(s)", vbInformation, Me.Caption
    End If
End Sub
HUGOSSOUZA 06/06/2007 10:33:03
#219984
tenta assim:

If Len(Text2.Text) = 0 Then
  sql = "SELECT código, format(nascimento,"DD/MM/YYYY") as nascimento,nome,sexo FROM geral ORDER BY nome "
    Else
  sql = "SELECT código,format(nascimento,"DD/MM/YYYY") as nascimento,nome,sexo FROM geral WHERE nome LIKE '" & Trim(Me.Text2.Text) & "%'ORDER BY nome "
     
  End If
LINDOLPHO 06/06/2007 10:51:01
#219991
Deu erro do compilador. Mas funcionou direitinho depois que troquei as aspas de "DD/MM/YYYY" por 'DD/MM/YYYY'

Valeu pessoal. !!!!
Tópico encerrado , respostas não são mais permitidas
Voltar