Consultando dados no BD através de uma Stored Procedure

[Magno_Bastos 0]

Gente, estou com uma duvida tremenda aqui e não sei o que fazer.

Peguei para aprender VB 6.0 estes dias e estou tendo dificuldades em pegar os dados do BD através de uma Stored Procedure para depois jogar para uma DataGridView!

 

Eu vou colocar as minhas classes aqui para vocês darem uma olhada e quem sabe alguém pode me ajudar:

 

 

Imports System.Data.SqlClient

 

Public Class Conexao

private StrConn string 'String de conexão

Public Sub New()

StrConn = "Data source=.\SQLEXPRESS;AttachDbFilename=D:Caminho_do_banco\Dados.mdf;Integrated Security=True;User Instance=True"

End Sub

 

'Metodo para fechar a conexão com o banco de dados

Public Function FecharConn() As Boolean

Dim Conn As New SqlConnection(StrConn)

 

Try

Conn.Close()

Return True

Catch ex As Exception

Return False

End Try

 

End Function

 

'Metodo para abrir a conexão com o banco de dados

Public Function AbrirConn() As Boolean

 

Dim conn As New SqlConnection(StrConn)

 

Try

conn.Open()

Return True

Catch ex As Exception

Return False

End Try

 

End Function

 

 

End Class 'Fim da classe Conexao

 

Public Class Clientes

'Atributos'

Private NomeCli As String

Private Cidade As String

Private UF As String

Private DataNAsc As Date

Private MyConn As Conexao 'Objeto da classe conexao

 

 

 

Public Sub New()

MyConn = New Conexao()

End Sub

 

'Esta função é a que vai fazer a busca no banco, ela recebe o que o usuário deseja buscar e deve

'retornar o que foi buscado no banco

 

Public Function ListCliente(ByVal Opc As Integer, ByVal Id As Integer, ByVal Nome As String) As DataSet

Select Case Opc

Case 0

Dim Comando As New SqlCommand("ConsultaNomeCli")

Comando.CommandType = CommandType.StoredProcedure

 

Comando.Parameters.Add(New SqlParameter("@NomeCli", SqlDbType.VarChar, 100))

rs = Comando.Parameters("@Nome").Value = Nome

Case 1

Dim Comando As New SqlCommand("ConsultaIdCli")

Comando.CommandType = CommandType.StoredProcedure

 

Comando.Parameters.Add(New SqlParameter("@IdCli", SqlDbType.Int))

Comando.Parameters("@IdCli").Value = Id

End Select

 

Try

MyConn.AbrirConn()

Comando.

Catch ex As Exception

 

End Try

 

End Function

End Class ' fim da classe Clientes

 

 

Gente, minhas dúvidas são, o que devo retornar dessa função? Um DataSet? Um DataAdapter.

Desculpa gente, mas estou completamente perdido nestes tipos, tentei entendê-los mas sem muito sucesso!

E outra, no SqlCommand eu devo passar o comando e mais o endereço do banco? ou não precisa?

 

Por favor, me ajudem. Grato!

[KhaosDoctor 242]

Uma datatable... Você recebe os dados e joga tudo na datatable, você não pode retornar um dataadapter.