POPULAR DATAGRIDVIEW COM DADOS MYSQL

KRAAUSER 20/03/2011 22:40:04
#368645
OLÁ. TENHO UMA DATAGRIDVIEW E PREENCHO COM DADOS DO ACCESS, COMO MOSTRA ABAIXO. AGORA, EU GOSTARIA DE FAZER O MESMO, USANDO O MESMO MéTODO COM BANCO MYSQL. ALGUéM PODE ME AJUDAR?


DATAGRIDVIEW
Me.DataGridViewProdutos.Columns.Add([Ô]ID[Ô], [Ô]ID[Ô])
Me.DataGridViewProdutos.Columns([Ô]ID[Ô]).Width = 63
Me.DataGridViewProdutos.Columns([Ô]ID[Ô]).DefaultCellStyle.Font = New Font([Ô]Tahoma[Ô], 8, FontStyle.Regular) [ô]Define a fonte da Datagrid
Me.DataGridViewProdutos.Columns([Ô]ID[Ô]).ReadOnly = True
Me.DataGridViewProdutos.Columns([Ô]ID[Ô]).DefaultCellStyle.Alignment = HorizontalAlignment.Center

[ô]********************************************************************************

Me.DataGridViewProdutos.Columns.Add([Ô]MATERIAL[Ô], [Ô]Material[Ô])
Me.DataGridViewProdutos.Columns([Ô]MATERIAL[Ô]).Width = 130
Me.DataGridViewProdutos.Columns([Ô]MATERIAL[Ô]).DefaultCellStyle.Font = New Font([Ô]Tahoma[Ô], 8, FontStyle.Regular) [ô]Define a fonte da Datagrid
Me.DataGridViewProdutos.Columns([Ô]MATERIAL[Ô]).ReadOnly = True
Me.DataGridViewProdutos.Columns([Ô]MATERIAL[Ô]).DefaultCellStyle.Alignment = HorizontalAlignment.Center

[ô]********************************************************************************

Me.DataGridViewProdutos.Columns.Add([Ô]DESCRICAO[Ô], [Ô]Descricão[Ô])
Me.DataGridViewProdutos.Columns([Ô]DESCRICAO[Ô]).Width = 542
Me.DataGridViewProdutos.Columns([Ô]DESCRICAO[Ô]).DefaultCellStyle.Font = New Font([Ô]Tahoma[Ô], 8, FontStyle.Regular) [ô]Define a fonte da Datagrid
Me.DataGridViewProdutos.Columns([Ô]DESCRICAO[Ô]).ReadOnly = True
Me.DataGridViewProdutos.Columns([Ô]DESCRICAO[Ô]).DefaultCellStyle.Alignment = HorizontalAlignment.Center

[ô]********************************************************************************

Me.DataGridViewProdutos.Columns.Add([Ô]FABRICANTE[Ô], [Ô]Fabricante[Ô])
Me.DataGridViewProdutos.Columns([Ô]FABRICANTE[Ô]).Width = 97
Me.DataGridViewProdutos.Columns([Ô]FABRICANTE[Ô]).DefaultCellStyle.Font = New Font([Ô]Tahoma[Ô], 8, FontStyle.Regular) [ô]Define a fonte da Datagrid
Me.DataGridViewProdutos.Columns([Ô]FABRICANTE[Ô]).ReadOnly = True
Me.DataGridViewProdutos.Columns([Ô]FABRICANTE[Ô]).DefaultCellStyle.Alignment = HorizontalAlignment.Center

[ô]********************************************************************************

Me.DataGridViewProdutos.Columns.Add([Ô]VALOR[Ô], [Ô]Valor[Ô])
Me.DataGridViewProdutos.Columns([Ô]VALOR[Ô]).DefaultCellStyle.Format = String.Format([Ô]{0:##,##0.00}[Ô], 10).PadLeft(10)
Me.DataGridViewProdutos.Columns([Ô]VALOR[Ô]).Width = 70
Me.DataGridViewProdutos.Columns([Ô]VALOR[Ô]).DefaultCellStyle.Font = New Font([Ô]Tahoma[Ô], 8, FontStyle.Regular) [ô]Define a fonte da Datagrid
Me.DataGridViewProdutos.Columns([Ô]VALOR[Ô]).ReadOnly = True
Me.DataGridViewProdutos.Columns([Ô]VALOR[Ô]).DefaultCellStyle.Alignment = HorizontalAlignment.Center

[ô]********************************************************************************

USO ESTE PARA POPULAR A DATAGRIDVIEW:

Dim Conexão As New OleDbConnection
Dim Comando As OleDbCommand = Conexão.CreateCommand
Dim Objeto As OleDbDataReader
Dim ID As Integer
Dim MATERIAL As String
Dim DESCRICAO As String
Dim FABRICANTE As String
Dim VALOR As String
Dim ESTOQUE As String
Conexão.ConnectionString = [Ô]Provider = Microsoft.Jet.OLEDB.4.0;Data Source = [Ô] & Application.StartupPath & [Ô]\Informatica.mdb[Ô]
Comando.CommandText = [Ô]SELECT * FROM Materiais[Ô]
Conexão.Open()
Try
Objeto = Comando.ExecuteReader
While Objeto.Read()
ID = Objeto([Ô]ID[Ô])
MATERIAL = Objeto([Ô]Material[Ô])
DESCRICAO = Objeto([Ô]Descricao[Ô])
FABRICANTE = Objeto([Ô]Fabricante[Ô])
VALOR = Objeto([Ô]Valor[Ô])
ESTOQUE = Objeto([Ô]QtdEstoque[Ô])
Me.DataGridViewProdutos.Rows.Add(New String() {ID, MATERIAL, DESCRICAO, FABRICANTE, VALOR, ESTOQUE})
Me.TextBoxQtd.Focus()
End While
Catch ex As Exception
MsgBox(Err.Description, MsgBoxStyle.Critical)
Finally
End Try
Conexão.Dispose()
ADHEL 21/03/2011 09:16:18
#368654
eu coloco a mina conexão num módulo mais ou menos assim

Module Module_Conexao
Public Conexao As New MySqlConnection
Public Comando As MySqlCommand
Public sql As String
end Module

Abaixo eu coloco uma função(Ainda no Módulo)
Public Sub ConexaoBanco()
Try
Conexao = New MySqlConnection
Conexao.ConnectionString = [Ô]SERVER=localhost;USERID=root;PORT=3306;DATABASE=SEU_BANCO;PASSWORD=SUA_SENHA;[Ô]
Conexao.Open()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try



No botão pesquisar(para preencher o grid)
Dim dt As DataTable
Dim da As MySqlDataAdapter


ConexaoBanco
da = New MySqlDataAdapter([Ô]SELECT * FROM Materiais[Ô], Conexao)
dt = New DataTable

da.Fill(dt)
With dg
.DataSource = dt

End With
conexao.close

Dentro do WITH você pode configurar o tamanho da coluna e mais algumas coisas
Tópico encerrado , respostas não são mais permitidas
Voltar