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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Preencher datagrid com registros - IMPORTANTE
Expedito Junior
RECIFE
PE - BRASIL
ENUNCIADA !
Postada em 27/02/2008 12:21 hs            
Caros Colegas,
 
Como faço para preencher um datagrid com apenas alguns campos do recordset.
Tipo, tenho um select com varios campos mas quero que quando for para setar os dados no datagrid eu determine quais eu quero que sejam setados.

Expedito Junior

msn: expedito_junior947@hotmail.com

"A oportunidade favorece uma mente preparada!"

   
JOM
BOM JESUS DA LAPA
BA - BRASIL
ENUNCIADA !
Postada em 27/02/2008 12:34 hs            
Ou vc faz um select pra preencher o datagrid com os campos que vc quer ou vc simplesmente preenche o datagrid com esse rs que ja tem e deixa as colunas que não quer que apareça com visible = false
 
Datagrid1.columns(2).visible = false 'desta forma a terceira coluna não será mostrada, ou seja:
 
"select campo1, campo2, campo3 from tabela
 
o campo3 do select não será mostrado no datagrid
 
 
   
Macaubal
não registrado
ENUNCIADA !
Postada em 27/02/2008 12:36 hs   
Expedito qual o objeto que voce está utilizando?

DbGrid
MSFlexGrid

Eles estão relacionados com algum objeto Data? Ou voce vai alimentando manualmente?
   
Expedito Junior
RECIFE
PE - BRASIL
ENUNCIADA !
Postada em 27/02/2008 12:44 hs            
 
Caro Macaubal,
 
Estou usando datagrid, segue código que testei.
As linhas com os registros são criadas mas não aparece os dados.
 
Me.DataGrid1.Caption = gvRecSet.RecordCount
For i = 0 To 5
    DataGrid1.Columns.Add (i)
Next
DataGrid1.Columns(0).Caption = "Data Inicial"
DataGrid1.Columns(1).Caption = "Duracao"
DataGrid1.Columns(2).Caption = "Origem"
DataGrid1.Columns(3).Caption = "Destino"
DataGrid1.Columns(4).Caption = "Conta-Usuario"
DataGrid1.Columns(5).Caption = "Arquivo"
While Not gvRecSet.EOF
    DataGrid1.Columns(0).DataField = gvRecSet!dt_inicio
    DataGrid1.Columns(1).DataField = gvRecSet!duracao
    DataGrid1.Columns(2).DataField = gvRecSet!origem
    DataGrid1.Columns(3).DataField = gvRecSet!destino
    DataGrid1.Columns(4).DataField = gvRecSet!conta_login & " - " & gvRecSet!apelido
    DataGrid1.Columns(5).DataField = gvRecSet!arquivo
    gvRecSet.MoveNext
Wend
Set DataGrid1.DataSource = gvRecSet
DataGrid1.ReBind
DataGrid1.Refresh

Expedito Junior

msn: expedito_junior947@hotmail.com

"A oportunidade favorece uma mente preparada!"

   
Expedito Junior
RECIFE
PE - BRASIL
ENUNCIADA !
Postada em 27/02/2008 13:18 hs            
Alguma ajuda?

Expedito Junior

msn: expedito_junior947@hotmail.com

"A oportunidade favorece uma mente preparada!"

   
Expedito Junior
RECIFE
PE - BRASIL
ENUNCIADA !
Postada em 28/02/2008 03:33 hs            
Amigos,
 
Alguma ajuda?
Por favor!

Expedito Junior

msn: expedito_junior947@hotmail.com

"A oportunidade favorece uma mente preparada!"

   
Página(s): 1/2      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



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