USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Banco de Dados)

Título da Dica:  Preencher um MSFLEX sem o objeto DATA, atraves de um Recordset
Postada em 1/9/2004 por Rochª            
Esse método é 230% + rápido q preencher o Msflex registro a registro
RS é um Recordset

MSFlexGrid1.Visible = False
rs.Open "SELECT * from historico where codigo > 100", db, adOpenStatic, adLockReadOnly

MSFlexGrid1.Rows = rs.RecordCount + 1
MSFlexGrid1.Cols = rs.Fields.Count - 1
MSFlexGrid1.Row = 0
MSFlexGrid1.Col = 0
MSFlexGrid1.RowSel = MSFlexGrid1.Rows - 1
MSFlexGrid1.ColSel = MSFlexGrid1.Cols - 1

'Aqui faz tudo. Gera uma string dos campos separados por tab e enter e coloca de uma vez só no grid.
MSFlexGrid1.Clip = rs.GetString(adClipString, -1, Chr(9), Chr(13), vbNullString)

MSFlexGrid1.Row = 1
MSFlexGrid1.Visible = True

Isso so funciona com ADO 2.6 pois o GETSTRING não tem no DAO

Rochª
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página