none
ayuda con llenado de textbox con procedimiento almacenado.

    Question

  • Buen Día.

    La vez anterior me ayudaron a poder llamar un store procedure desde Visual Studio y todo funciono perfecto,

    pero ahora cree otro store procedure que me lista de una base de datos como 10 cosas.

    El problema que tengo es como decirle a el store procedure que rellene todos los textbox, les pongo aqui mi store procedure.

     

    ALTER Procedure [dbo].[ExtraeDatos]
    (
     @Fecha Datetime,
     @Caja Varchar(50)
    )
    
    As
    
    Select *
    From Historial_Costos
    Where fecha = @Fecha
    And caja = @Caja
    
    Dim cmd1 As New SqlCommand("[dbo].[ExtraeDatos]", cnn)
            cmd1.CommandType = CommandType.StoredProcedure
    
            cmd1.Parameters.AddWithValue("@Fecha ", dtpFecha.Text)
            cmd1.Parameters.AddWithValue("@Caja ", TboxCaja.Text)
    
            Dim miStr1 As String = IIf(TboxCaja.Text.ToString = "null", " ", " " & TboxCaja.Text.ToString & " ")
            Dim miStr2 As String = IIf(dtpFecha.Text.ToString = "null", " ", " " & dtpFecha.Text.ToString & " ")
    
            Aqui me falta como llenar los TextBoxs con el resultado de la consulta.
    
    TextBox1.text=
    TextBox2.text=
    TextBox3.text=



    Jaime Bustamante Alvarado
    Tuesday, May 10, 2011 7:59 PM

Answers

  • intenta algo como esto

    Using cnn As New SqlConnection("connection string")
        Dim cmd As New SqlCommand("[ExtraeDatos]", cnn)

        cmd.CommandType = CommandType.StoredProcedure
        cmd1.Parameters.AddWithValue("@Fecha ", dtpFecha.Text)       

        cmd1.Parameters.AddWithValue("@Caja ", TboxCaja.Text)
        Dim da As New SqlDataAdapter(cmd)
        Dim dt As New DataTable()
        da.Fill(dt)
       
        if dt.Rows.Count > 0 Then
            Dim row As DataRow = dt.Rows(0)
           
            TboxCaja.Text = CStr(row("nombrecampo1"))
            dtpFecha.Text = CStr(row("nombrecampo1"))
           
        End If
       
    End Using

     

    se podria hacer con un DataReader, pero creo que te sera ams claro con el datatable


    saludos


    Leandro Tuttini

    Blog
    Buenos Aires
    Argentina
    • Marked as answer by J Bustamante Tuesday, May 10, 2011 8:26 PM
    Tuesday, May 10, 2011 8:16 PM

All replies

  • intenta algo como esto

    Using cnn As New SqlConnection("connection string")
        Dim cmd As New SqlCommand("[ExtraeDatos]", cnn)

        cmd.CommandType = CommandType.StoredProcedure
        cmd1.Parameters.AddWithValue("@Fecha ", dtpFecha.Text)       

        cmd1.Parameters.AddWithValue("@Caja ", TboxCaja.Text)
        Dim da As New SqlDataAdapter(cmd)
        Dim dt As New DataTable()
        da.Fill(dt)
       
        if dt.Rows.Count > 0 Then
            Dim row As DataRow = dt.Rows(0)
           
            TboxCaja.Text = CStr(row("nombrecampo1"))
            dtpFecha.Text = CStr(row("nombrecampo1"))
           
        End If
       
    End Using

     

    se podria hacer con un DataReader, pero creo que te sera ams claro con el datatable


    saludos


    Leandro Tuttini

    Blog
    Buenos Aires
    Argentina
    • Marked as answer by J Bustamante Tuesday, May 10, 2011 8:26 PM
    Tuesday, May 10, 2011 8:16 PM
  • Gracias Leandro, deja hago las pruebas.

     


    Jaime Bustamante Alvarado
    Tuesday, May 10, 2011 8:27 PM