IMPORTAR PARA DATAGRIDVIEW

LOPESKUTI 29/05/2012 14:14:33
#403080
Olá. Estou desenvolvendo uma aplicação que ao carregar um formulário deve listar os cadastros do sql server.

Essa aplicação está praticamente pronta, só preciso exibir os dados de uma tabela do SQL Server em um DataGridView, assim que o usercontrol é carregado dentro do formulário base.
ALTAIR148 29/05/2012 14:35:51
#403087
Boa tarde,

Bom o título do tópico é IMPORTAR PARA DATAGRIDVIEW, já no post não tem nada se referindo ao título. Seja mais claro no que deseja para que possamos lhe ajudar.
LOPESKUTI 29/05/2012 14:43:07
#403089
Sim, eu tenho um DataGridView em um user control.
Eu chamo esse usercontrol pro formulário base e gostaria que assim que ele carregasse já exibisse no grid os cadastros de uma tabela do SQL Server. ;)
ALTAIR148 29/05/2012 14:57:50
#403094
Assim eu carrego um dataset:


 Public Function ListaPessoas() As DataSet
        Dim Ds As New DataSet
        Try
            Dim stringInsert As String = [Ô]Select * from tb_teste[Ô]
            Dim cmd As MySqlCommand = New MySqlCommand(stringInsert, Conexao.GetConexao1)
            Dim adapter As MySql.Data.MySqlClient.MySqlDataAdapter = New MySql.Data.MySqlClient.MySqlDataAdapter
            adapter.SelectCommand = cmd
            adapter.Fill(Ds)
            adapter.Dispose()
            cmd.Dispose()
            Conexao.Desconectar1()
            Return Ds
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        Return Nothing
    End Function


e para exibir os dados no datagrid utilizo:

datagrid.datasource = ListaPessoas.tables(0)


O exemplo está em MYSQL, basta adaptar para SQL server.
LOPESKUTI 29/05/2012 15:57:18
#403099
Valeu Altair...
Eu adaptei seu código e usei ele como base com outro também e deu isso aqui... Vou deixar de exemplo pra quem precisar =DD

Imports System.Data.SqlClient

Public Class relatorios

Private Sub ListaPessoas()
Dim Ds As New DataSet
Dim cn As New SqlConnection()
cn.ConnectionString = [Ô]Data Source=FELIPE-PC\SQL;Initial Catalog=CadastroGVT;User Id=usuario;Password=senha[Ô]
cn.Open()

Dim query As String = String.Empty
query &= [Ô]SELECT * FROM tbPESS[Ô]

Dim cd As New SqlCommand
cd.Connection = cn
cd.CommandText = query
cd.CommandType = CommandType.Text

Try
cd.ExecuteNonQuery()
Dim sa As New SqlDataAdapter(query, cn)
sa.Fill(Ds, [Ô]tbPESS[Ô])
DataGridView.DataSource = Ds.Tables([Ô]tbPESS[Ô])
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
cn.Close()
End Sub

Private Sub relatorios_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ListaPessoas()
End Sub
End Class
ALTAIR148 29/05/2012 17:39:19
#403103 Resposta escolhida
Se tiver resolvido não se esqueça de encerrar o tópico.
Tópico encerrado , respostas não são mais permitidas
Voltar