Bom dia pessoal? Estou com um problema em listar os dados de um DataGrid View no meu form. O problema é o seguinte, estou criando um CRUD, onde tenho minha DAL Cliente e a BLL Cliente, o problema é que não sei como ficará a lógica para listar os dados no meu form de Cadastro. Veja ai o código // Code Classe DAL Pessoas
'
''' <summary>
''' Obtêm a busca do Registro pela a ID
''' </summary>
''' <param name="PessoaID"></param>
''' <returns></returns>
''' <remarks></remarks>
Public Function GetPessoa(ByVal PessoaID As Integer) As DataRow
_dlinha = Nothing
Try
_sqlcon = New SqlClient.SqlConnection(_conStr)
_sqlcon.Open()
_sqlcom = New SqlClient.SqlCommand()
With _sqlcom
.Connection = _sqlcon
.CommandType = CommandType.Text
.CommandText = "SELECT Pes_ID, Pes_Data_Cadastro, Pes_Data_Nasc, Pes_Razao_Social, Pes_Fantasia,Pes_CPFCNPJ, Pes_RGIE, Pes_Orgao_Exp FROM Pessoas "
.Parameters.Add("@Pes_ID", SqlDbType.Int).Value = PessoaID
End With
_sqldap = New SqlClient.SqlDataAdapter(_sqlcom)
_dset = New DataSet()
_sqldap.Fill(_dset)
If _dset.Tables(0).Rows.Count > 0 Then
_dlinha = _dset.Tables(0).Rows(0)
Else
_dlinha = Nothing
End If
_sqlcom.Parameters.Clear()
Catch ex As Exception
_dlinha = Nothing
Throw ex
Finally
liberaTodosObjetos()
End Try
Return _dlinha
End Function
//Classe BLL Pessoas
Public Function GetPessoas(ByVal PessoasID As String) As DataRow
_dlinha = Nothing
Try
_obj = New DALPessoas()
_dlinha = _obj.GetPessoa(PessoasID)
Catch ex As Exception
Throw ex
Finally
_obj = Nothing
End Try
Return _dlinha
End Function
No meu Form de "Busca Pessoas" está este evento no DataGrid
Private Sub DataGridView1_CellDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellDoubleClick
Dim pessoaID As Integer = 0
Try
'cria instância de BLLEstudantes e usa o método GetEstudante
'para obter um estudante
_objs = New BLLPessoas()
_dlinha = _objs.GetPessoas(DataGridView1.Rows(e.RowIndex).Cells(0).Value)
txtPessoasID.Text = _dlinha("Pes_ID").ToString()
txtPessoasNome.Text = _dlinha("Pes_Razao_Social").ToString()
Dim frmCadastro As New FrmCadastro()
frmCadastro.ShowDialog()
Catch ex As Exception
MessageBox.Show(ex.Message, Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
_dlinha = Nothing
_objs = Nothing
End Try
End Sub Não consigo mostrar os dados nos textbox. Alguém pode me ajudar.. Obrigado. Eu estou tentando aprender como se fazer para listar os dados usando o valor de retorno Data Row. Eu tenho uma solution que fiz e conseguir usando uma Classe BLL do tipo DataSet. Obrigado