preencher campos - vb.net

[jonatas2 0]

galera, tenho um form com alguns campos e desejo preenche-los com os dados de uma tabela do sql.

 

criei uma classe para conectar ao banco e retornar os registros, mais como ainda estou sofrendo com ado.net gostaria de ajuda pra fazer isso.

 

ainda me confundo com DataTable, DataSet, DataRow etc...

 

qdo executo a function RetornaDataSet, a principio funciona, mais não sei como utilizar isso pra preencher os dados na tela.

 

código do form:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ds As New DataSet
        ds = Dados.clsDados.RetornaDataSet("select * from tbCadPais")
    End Sub

como pegar o retorno do dataSet e atualizar os campos da tela?

 

vejam meu código da classe:

 

Imports System.Data
Imports System.Data.SqlClient

Namespace Dados
    Public Class clsDados
        Private Shared strConexao As String = "Data Source=.\SQLExpress; Initial Catalog=comunidade;Integrated Security=SSPI"

        Public Shared Function RetornaDataSet(ByVal strSQL As String) As DataSet
            Try
                Dim conexaoBD As New SqlConnection(strConexao)
                conexaoBD.Open()

                Dim cmd As New System.Data.SqlClient.SqlCommand(strSQL, conexaoBD)
                Dim da As New SqlDataAdapter(cmd)
                Dim ds As New System.Data.DataSet()

                da.Fill(ds)

                conexaoBD.Close()

                Return ds

            Catch ex As Exception
                Throw New Exception(ex.ToString())
            End Try
        End Function

        Public Shared Sub ExecutaSQL(ByVal strSQL As String)
            Try
                Dim conexaoBD As New SqlConnection(strConexao)
                conexaoBD.Open()

                Dim cmd As New System.Data.SqlClient.SqlCommand(strSQL, conexaoBD)
                cmd.ExecuteNonQuery()

                conexaoBD.Close()
            Catch ex As Exception
                Throw New Exception(ex.ToString())
            End Try
        End Sub
    End Class
End Namespace

gostaria de colocar no form os botoes de paginaçao de registros, inclusào, alteração... ou seja, fazer todas as funçòes basicas.

 

Desculpem a ignorancia, mais sou um sofredor que está tentando se livrar do VB6 e ir pro VB.NET... rsrsrs to sofrendo um bucado, mais é assim mesmo.

 

Agradeço a ajuda.

 

Jonatas.

[quintelab 91]

Movido Plataforma .NET http://forum.imasters.com.br/public/style_emoticons/default/seta.gif Plataforma .NET > Windows Applications

 

De uma olhada: http://www.macoratti.net/09/08/vbn_fcn1.htm

 

Abraços...

[Rafa 1850 0]

você pode usar o menu strip que jah faz o update xD

o remover e o adicionar x.x

[nexus 0]

opa

 

veja se isso te ajuda

 

Public Row as Integer
    Public sDt as DataTable

    Private Function Busca(ByVal Nome As String) As DataTable
        sqlconnection = New SqlConnection(CONEXAO)
        stringsql = "select * from funcionarios where nome_func like '%" & Nome & "%'"
        sqlconnection.Open()
        Dim Da As SqlClient.SqlDataAdapter
        sqlcmd = New SqlCommand(stringsql, sqlconnection)
        Da = New SqlClient.SqlDataAdapter(sqlcmd)
        Row = 0
        Da.Fill(Busca)
    End Function

    Private Sub Preenche(ByVal DT As DataTable)
        If (Row < 0) Or (Row > DT.Rows.Count - 1) Then
            'erro, acabou os dados...
            msgBoxCadNaoEncontrado()
            Exit Sub
        End If
        lblExibeId.Text = DT.Rows(Row)(0)
        txtNome.Text = DT.Rows(Row)(1)
        txtSenha.Text = DT.Rows(Row)(2)
        cboSexo.Text = DT.Rows(Row)(3)
        txtSetor.Text = DT.Rows(Row)(4)
        txtCargo.Text = DT.Rows(Row)(5)
        cboTipo.Text = DT.Rows(Row)(6)

        If cboSexo.Text = "M" Then
            cboSexo.Text = "Masculino"
        ElseIf cboSexo.Text = "F" Then
            cboSexo.Text = "Feminino"
        End If

        If cboTipo.Text = "A" Then
            cboTipo.Text = "Administrador"
        ElseIf cboTipo.Text = "U" Then
            cboTipo.Text = "Usuário"
        End If



    End Sub

 

qualquer coisa veja esse topico: Clique Aqui

 

use o busca.