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

 

  Dicas

  Visual Basic.Net    (Banco de Dados)

Título da Dica:  Alimentando o DataGrid com Banco de Dados
Postada em 7/10/2003 por ^HEAVY-METAL^            
'Importando a classe responsável pelo acesso ao banco de dados SQL
Imports System.Data.SqlClient

Private sub CarregaGrid

Try

'Query sql
            strSql = "select aviCodigo, aviDescricao from tblAviso"

'Limpa algum estilo já associado
            grdAvisos.TableStyles.Clear()
'Limpa as colunas
            grdEstilo.GridColumnStyles.Clear()

  'Declara um DataSet
            Dim dsAvisos As DataSet
  'Carrega um dataset
            dsAvisos = clFaturamento.RetornaDataSet(strsql)

            If Not IsNothing(dsAvisos.Tables("Aviso")) Then
                dsAvisos.Tables("Aviso").Clear()
            End If

            clFaturamento.AbreDB()

            Dim daFatura As New SqlDataAdapter(strSql, clFaturamento.Conn)

            daFatura.Fill(dsAvisos, "Aviso")
            grdAvisos.DataSource = dsAvisos.Tables("Aviso")

  'Monta o grid de acordo com as colunas montadas no estilo
            grdEstilo.GridColumnStyles.AddRange _
                (New DataGridColumnStyle() _
                {grdColID, grdColDescricao})
            grdAvisos.TableStyles.Add(grdEstilo)
            grdAvisos.Refresh()

        Catch erro As Exception
            msgbox erro
        Finally
            fechaDB()
        End Try
End Sub

T+,

 


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