|
|
|
|
|
|
|
|
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ª
|
|
|
|
|
