funciones y procedure !!!

[hector2c]

hola, mi pregunta es la siguiente tengo una clase conexion de este tipo:

Código:

Imports System.Data.SqlClient

Public Class cls_conexion
    Public obj_SqlConnection As New SqlConnection

    Public Function conexion() As Boolean
        obj_SqlConnection.ConnectionString = "server=(local); database=carpinteria;uid=sa;pwd=;"
        obj_SqlConnection.Open()
    End Function

    Public Function desconexion() As Boolean
        obj_SqlConnection.Close()
    End Function
End Class

y una clase categoria de este tipo

Código:

Imports System.Data.SqlClient

Public Class cls_categoria

  Private Function consultar() as DataSet
    Dim obj_conexion As New cls_conexion
    Dim obj_command As New SqlCommand
    ???
    ???
    ???
  End Function

End Class

que codigo va para que en un formulario instancie esta clase categoria y en un datagrid mostrar el resultado de la funcion consultar(), noten que el consultar es de tipo dataset, ademas estoy usando un procedure ("usp_categoria_consultar")....

Código:

  dim obj_cat as new cls_categoria
  dg_cat.datasource = obj_cat.consultar()

espero me ayuden, no tengo problemas en el mantenimiento (agregar insertar modificar) solo tengo el problema en la consulta, es que tengo que usar procedures obligado, como podria resolver ???

lo olvidaba, el procedure es el siguiente:

Código:

create procedure usp_categoria_consultar
as
select ide_cat, nom_cat, des_cat from categoria order by ide_cat asc

[hector2c]

hola, discupen acabo de resolver mi problema:

Código:

    Public Function consultar() As DataSet

        Dim obj_conexion As New cls_conexion
        Dim obj_command As New SqlCommand

        obj_command.Connection = obj_conexion.obj_SqlConnection
        obj_command.CommandType = CommandType.StoredProcedure
        obj_command.CommandText = "usp_categoria_consultar"

        Dim obj_data_set As New DataSet
        Dim obj_data_adapter As New SqlDataAdapter(obj_command)

        obj_conexion.conexion()
        obj_data_adapter.Fill(obj_data_set, "categoria")
        obj_conexion.desconexion()
        consultar = obj_data_set

    End Function

y obtengo el valor en la grilla con

Código:

    Private Sub grilla_mostrar_datos()
        Me.dg_cat.DataSource = obj_cat.consultar
        Me.dg_cat.DataMember = "categoria"
    End Sub

si alguien cree que hay mejores maneras de resolver este tipo de problemas, por favor responda, gracias