CLR: .Net / Mono / Boo / Otros CLR > VB .NET

 Como llenar un datgrid desde clase conexion

(1/1)

emmanuelmex:
hice una clase en la cual tengo hecha mi conexion a una base de datos sql server, y ahora en un form quiero llenar un datagrid, que metodos debo llamar para poder llenar ese datagrid? ahora pongo fragmentos de mi conexion. ojala me haya explicado y me puedan ayudar.

CLASE CONECTABASE
Public Function conectar() As SqlClient.SqlConnection
        'Conexion a la base de datos
        Try
            cn = New SqlClient.SqlConnection("Data Source=GREATSQLEXPRESS;Initial Catalog=mibase;Integrated Security=True")
            cn.Open()
        Catch ex As Exception
            MessageBox.Show("Error al conectar con datos" & ControlChars.CrLf & ex.Message & ControlChars.CrLf & ex.Source)

            'Throw New Exception("Ha ocurrido un error de conexion")
        End Try
        Return cn
    End Function

Public Function getCategoria() As DataTable
        'Conexion a la tabla
        Dim da As SqlClient.SqlDataAdapter
        Dim dt As DataTable
        Try
            da = New SqlClient.SqlDataAdapter("select * from Alumnos", cn)
            dt = New DataTable()
            da.Fill(dt) 'llenamos la tabla
        Catch ex As Exception
            Throw New Exception("Ha ocurrido un error en la consulta")
        End Try
        Return dt
    End Function

fm89-10:
hola, mira lo que puedes hacer es lo siguiente  en tu clase conexion agrega lo siguiente funcion

--- Código: vb.net ---  Public Function ejecutarProc(ByVal consultas As String) As Data.DataSet        sqc = New SqlCommand(consultas)        sqc.Connection = sc        sqa = New SqlDataAdapter        sqa.SelectCommand = sqc        datos = New Data.DataSet        sqc.ExecuteNonQuery()         sqa.Fill(datos)         Return datos     End Function   
ahora dentro del form donde tienes el datagrid agrega el siguiente  codigo

--- Código: vb.net --- Private scm As SqlCommand    Private sqa As SqlDataAdapter    Private datos As DataSet    Private sqp As SqlParameter    Private sc As Coneccion     ' inicializas la clase conexion    Public Sub New(ByVal con As Coneccion)        Me.sc = con      ' traes la conexion establecida antes         ' Llamada necesaria para el Diseñador de Windows Forms.        InitializeComponent()         ' Agregue cualquier inicialización después de la llamada a InitializeComponent().     End Sub     Private Sub datos_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load        datos = sc.ejecutarProc("select * from Cuenta")  'ejecutas la funcion que esta en la clase conexion        Me.DataGridView1.DataSource = datos.Tables(0) ' se la asignas  a la tabla     End Sub  
alguna duda me comentas  :hola:

Navegación

[0] Índice de Mensajes