none
LLenar Datatable en VB.NET 2010 con resultado de búsqueda por medio de un Procedimiento de almacenado Store Procedure en SQl Server 2008 RRS feed

  • Pregunta

  • Hola buenas tardes, tengo el siguiente Bloque de codigo en VB.NET 2010, con el que le paso parametros a un Procedimiento de almacenado creado en mi Motor de base de Datos SQL Server 2008 R2 y ahora quiero dicho resultado de la búsqueda llegar un datatable para luego mostrarlo en un Datagrig:

     Public Function Buscar_Seriales(ByVal dtm_fe_crea_inicio As DateTime, ByVal dtm_fe_crea_fin As DateTime, ByVal str_IMFDMVIIV As String) As DataTable

            Dim connectionString As String
            Dim dt As New DataTable
            Try
                connectionString = ConfigurationManager.ConnectionStrings("Lineas").ConnectionString
                Dim cn As New SqlClient.SqlConnection(connectionString)
                cn = New SqlConnection(connectionString)
                cn.Open()
                Dim p As New SqlClient.SqlCommand("Buscar_Seriales", cn)

                p.CommandType = CommandType.StoredProcedure


                p.Parameters.Add("@Fe_crea_inicio", SqlDbType.DateTime).Value = DateTime.Parse(dtm_fe_crea_inicio)
                p.Parameters.Add("@Fe_crea_fin", SqlDbType.DateTime).Value = DateTime.Parse(dtm_fe_crea_fin)
                p.Parameters.Add("@IMFDMVIIV", SqlDbType.VarChar).Value = str_IMFDMVIIV

                p.ExecuteNonQuery()
                cn.Close()

                Buscar_Seriales = dt
            Catch ex As Exception
                Buscar_Seriales = dt
                MsgBox("Error:" & vbCrLf & ex.Message)
            End Try
        End Function

    realizo mi busqueda lo que nose en este momento es llenar un datatable con el resultado de la busqueda.

    Gracias

    • Cambiado Enrique M. Montejo sábado, 23 de mayo de 2015 15:14 Pregunta relacionada con el acceso a datos.
    jueves, 21 de mayo de 2015 21:48

Todas las respuestas

  •  

    Prueba de esta manera

    Public Function Buscar_Seriales(ByVal dtm_fe_crea_inicio As DateTime, ByVal dtm_fe_crea_fin As DateTime, ByVal str_IMFDMVIIV As String) As DataTable

            Dim connectionString As String
            Dim dt As New DataTable

           
            Try
                connectionString = ConfigurationManager.ConnectionStrings("Lineas").ConnectionString
                Dim cn As New SqlClient.SqlConnection(connectionString)
                cn = New SqlConnection(connectionString)
                cn.Open()
                Dim p As New SqlClient.SqlCommand("Buscar_Seriales", cn)

                p.CommandType = CommandType.StoredProcedure


                p.Parameters.Add("@Fe_crea_inicio", SqlDbType.DateTime).Value = DateTime.Parse(dtm_fe_crea_inicio)
                p.Parameters.Add("@Fe_crea_fin", SqlDbType.DateTime).Value = DateTime.Parse(dtm_fe_crea_fin)
                p.Parameters.Add("@IMFDMVIIV", SqlDbType.VarChar).Value = str_IMFDMVIIV

                 Dim da As New SqlDataAdapter(p)

                  da.Fill(dt)

                cn.Close()

                Buscar_Seriales = dt
            Catch ex As Exception
                Buscar_Seriales = dt
                MsgBox("Error:" & vbCrLf & ex.Message)
            End Try
        End Function

    Slds



    ProgramacionYa.net
    Si pequeña es la Patria, uno grande la sueña
    Rubén Darío
    Principe de las letras Castellanas
    Poeta Nicaragüense

    jueves, 21 de mayo de 2015 22:20