|
|
|
|
|
|
|
|
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+,
|
|
|
|
|
