SoloCodigo

CLR: .Net / Mono / Boo / Otros CLR => VB .NET => Mensaje iniciado por: emmanuelmex en Jueves 25 de Junio de 2009, 20:00

Título: Como llenar un datgrid desde clase conexion
Publicado por: emmanuelmex en Jueves 25 de Junio de 2009, 20:00
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
Título: Re: Como llenar un datgrid desde clase conexion
Publicado por: fm89-10 en Sábado 27 de Junio de 2009, 18:12
hola, mira lo que puedes hacer es lo siguiente  en tu clase conexion agrega lo siguiente funcion
Código: vb.net
  1.  
  2.  Public Function ejecutarProc(ByVal consultas As String) As Data.DataSet
  3.         sqc = New SqlCommand(consultas)
  4.         sqc.Connection = sc
  5.         sqa = New SqlDataAdapter
  6.         sqa.SelectCommand = sqc
  7.         datos = New Data.DataSet
  8.         sqc.ExecuteNonQuery()
  9.  
  10.         sqa.Fill(datos)
  11.  
  12.         Return datos
  13.  
  14.     End Function
  15.  
  16.  
  17.  

ahora dentro del form donde tienes el datagrid agrega el siguiente  codigo
Código: vb.net
  1.  
  2. Private scm As SqlCommand
  3.     Private sqa As SqlDataAdapter
  4.     Private datos As DataSet
  5.     Private sqp As SqlParameter
  6.     Private sc As Coneccion     ' inicializas la clase conexion
  7.     Public Sub New(ByVal con As Coneccion)
  8.         Me.sc = con      ' traes la conexion establecida antes
  9.  
  10.         ' Llamada necesaria para el Diseñador de Windows Forms.
  11.         InitializeComponent()
  12.  
  13.         ' Agregue cualquier inicialización después de la llamada a InitializeComponent().
  14.  
  15.     End Sub
  16.  
  17.     Private Sub datos_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  18.         datos = sc.ejecutarProc("select * from Cuenta")  'ejecutas la funcion que esta en la clase conexion
  19.         Me.DataGridView1.DataSource = datos.Tables(0) ' se la asignas  a la tabla
  20.  
  21.     End Sub
  22.  
  23.  

alguna duda me comentas  :hola: