none
No se ve los datos en el grid RRS feed

  • Pregunta

  • Hola

    la conexion esta bien cuando estoy viendo los datos del DAtaset y del grid estan los datos cuando avanzo paso a paso se ven los datos en el grid. Pero si lo ejecuto no se ve en los grid los datos.

    Pregunto, como lo soluciono?, gracias de antemano

    Aqui el codigo

    Imports System.Data
    Imports System.Data.SqlClient
    
    Module mdGeneral
        'Public Cn As New SqlConnection( _
        '"Data Source=D-17-PC;Initial Catalog=Neptuno;Integrated Security=True")
        '    Public Cn As New SqlConnection("Data Source=LUISMARTIN;Initial Catalog=Neptuno;Integrated Security=True")
        'Public Cn As New SqlConnection("Data Source=PC;Initial Catalog=Neptuno;Integrated Security=True")
    
    
        Public Cn As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename='C:\Program Files\Microsoft SQL Server\MSSQL10_50.SQLEXPRESS\MSSQL\DATA\NEPTDOC.mdf';Integrated Security=True;Connect Timeout=30;User Instance=True")
        Public Da As New SqlDataAdapter
        Public Cmd As New SqlCommand
        Public Ds As New DataSet
    
        Public Sub RUNSql(ByVal Sentencia As String)
            Da = New SqlDataAdapter(Sentencia, Cn)
            Ds = New DataSet
            Da.Fill(Ds)
        End Sub
    
        Public Sub RUNStore(ByVal Nombre As String)
            Cmd.CommandType = CommandType.StoredProcedure
            Cmd.CommandText = Nombre
            Cmd.Connection = Cn
            Da.SelectCommand = Cmd
            Ds = New DataSet : Da.Fill(Ds)
        End Sub
    
        Public Sub Bloqueos(ByVal F As Form, ByVal Estado As Boolean)
            Dim Obj As Object
            For Each Obj In F.Controls
                If TypeOf Obj Is GroupBox Then Obj.Enabled = Estado
            Next
        End Sub
    End Module
    

    Imports System.Data
    Imports System.Data.SqlClient
    Public Class Form1
    
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Da = New SqlDataAdapter("Select * from Empleados", Cn)
            Da.Fill(Ds, "Empleados")
            DgEmpleados.DataSource = Ds.Tables("Empleados").DefaultView
    
            Da = New SqlDataAdapter("Select * from Clientes", Cn)
            Da.Fill(Ds, "Clientes")
            DgClientes.DataSource = Ds.Tables("Clientes").DefaultView
    
            'Da = New SqlDataAdapter("Select * from VListaProductos", Cn)
            Da = New SqlDataAdapter("Select * from ListadoProductos", Cn)
            Da.Fill(Ds, "Productos")
            DgProductos.DataSource = Ds.Tables("Productos").DefaultView
        End Sub
    End Class

    jueves, 1 de enero de 2015 23:35

Respuestas

  • hola

    no uses el mismo dataset para cargar el datagridview

        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            
    	Dim da1 As New SqlDataAdapter("Select * from Empleados", Cn)
            Dim dt1 As New DataTable
    	da1.Fill(dt1)
            DgEmpleados.DataSource = dt1
    
    	Dim da2 As New SqlDataAdapter("Select * from Clientes", Cn)
            Dim dt2 As New DataTable
    	da2.Fill(dt2)
            DgClientes.DataSource = dt2
    		
    	Dim da3 As New SqlDataAdapter("Select * from ListadoProductos", Cn)
            Dim dt3 As New DataTable
    	da3.Fill(dt3)
            DgProductos.DataSource = dt3
    		
        End Sub

    usa diferentes instancias y ademas para que cargas un dataset si solo vas a usar una tabla simple, usa un datatable directamente


    saludos


    Leandro Tuttini

    Blog
    MVP Profile
    Buenos Aires
    Argentina

    viernes, 2 de enero de 2015 1:20