Postada em 02/12/2010 21:56 hs
blz Junior:
Segue codigo
Dim dados As SqlDataReader
comando.Connection = conexao
Dim dt As New DataTable
Dim dataadapter As SqlDataAdapter = New SqlDataAdapter(comando)
comando.CommandText = "select * from tb_endereco"
Dim comm As SqlCommand = New SqlCommand(comando.CommandText, comando.Connection)
Dim data As SqlDataAdapter = New SqlDataAdapter(comm)
'define o dataset
Dim ds As DataSet = New DataSet()
Try
'---preenche o dataset---
data.Fill(ds, "tb_endereco")
'---vincula o dataset ao DataGridView---
dgv.DataSource = ds 'ou ds.tables(0)
'---define a tabela a ser exibida---
dgv.DataMember = "tb_endereco"
Catch ex As Exception
MsgBox(ex.Message)
End Try
lembrando que sua conexao ja tem que estar estabelecida carinha...qualquer duvida me manda um email que posto o codigo inteiro pra vc bl
|
