none
Leer String de SQL desde VB.net RRS feed

  • Pregunta

  • Buenas Tardes 

    estoy intentando leer un par de cadenas de varchar(4500) desde vb.net los datos estan es SQL server y la verdad no he podido no logro entender como leerlos se que es sencillo para el que sabe :D

    tengo esta funcion

    Public Function verificar_huellas(ByVal cadete As cliente) As String
            Try
                Dim fp1 As String
                conectado()
                cmd = New SqlCommand("sp_verificar_fp")
                cmd.CommandType = CommandType.StoredProcedure
                cmd.Connection = cnn
                cmd.Parameters.AddWithValue("@cod_cadete", cadete.cod_roperia)
                Dim dtfp As New DataTable
                Dim drfp As New SqlDataAdapter(cmd)
                drfp.Fill(dtfp)
    
            Catch ex As Exception
    
            End Try
        End Function

    y la llamo desde esta parte

    Try
                Dim ver_huellas As New funciones
                Dim cadete As New cliente
                Dim printXML, printXML1 As String
    
    
                cadete.cod_roperia = "W-1000" 'cadete.cod_roperia=me.cod_roperia.text
                printXML = ver_huellas.verificar_huellas(cadete.cod_roperia)
                fmdListPrint1.Add(Fmd.DeserializeXml(printXML))
                'printXML1 = huella1.Rows(0)(1)
                'fmdListPrint2.Add(Fmd.DeserializeXml(printXML1))
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try

    he intentado por varios lados y la verdad no he logrado entender como funciona o como hacerlo 

    debo pasar el string que esta en SQL a la función 

    fmdListPrint1.Add(Fmd.DeserializeXml(printXML))


    el procedimiento almacenado es:

    ALTER PROCEDURE [dbo].[sp_verificar_fp]
    @cod_cliente varchar(10)
    
    AS
    
    BEGIN TRY
    	BEGIN TRAN
    		SELECT id_huella_2, id_huella_1 FROM tbl_clientes WHERE  (cod_roperia = @cod_cliente)
    	COMMIT
    END TRY
    
    BEGIN CATCH
    ROLLBACK
    PRINT ERROR_MESSAGE()
    END CATCH

    Gracias por su colaboración


    Freddy Aragón


    • Editado Freddy Aragon lunes, 6 de julio de 2015 19:40
    • Cambiado Enrique M. Montejo sábado, 11 de julio de 2015 7:01 Pregunta relacionada con el acceso a datos.
    lunes, 6 de julio de 2015 19:31

Respuestas

  • Tu function

    Public Function verificar_huellas

     Nodevuelve nada por eso no puedes leer lo que consultas debes agregar

    Public Function verificar_huellas(ByVal cadete As cliente) As String Try Dim fp1 As String conectado() cmd = New SqlCommand("sp_verificar_fp") cmd.CommandType = CommandType.StoredProcedure cmd.Connection = cnn cmd.Parameters.AddWithValue("@cod_cadete", cadete.cod_roperia) Dim dtfp As New DataTable Dim drfp As New SqlDataAdapter(cmd) drfp.Fill(dtfp)

    return dtfp.Rows(0)(0).ToString() Catch ex As Exception End Try End Function


    Si mi respuesta fue útil ayudame marcándola como correcta.


    • Editado PIO DEVELOPER martes, 7 de julio de 2015 18:23
    • Propuesto como respuesta PIO DEVELOPER martes, 7 de julio de 2015 18:23
    • Marcado como respuesta Freddy Aragon martes, 17 de enero de 2017 13:00
    martes, 7 de julio de 2015 18:22

Todas las respuestas

  • Hola:
    Prueba algo como esto

            Try
                Using loConexion As New SqlConnection(TU_CADENA_CONEXION)
                    Dim lsQuery As String = "Select TU_CAMPO From TU_TABLA Where ID_TABLA=@Id"
                    Using loComando As New SqlCommand(lsQuery, loConexion)
                        'añadir parametro al comando
                        loComando.Parameters.Add(New SqlParameter("@Id", TU_VALOR_ID))
                        loConexion.Open()
                        Using loDataReader As SqlDataReader = loComando.ExecuteReader()
                            Do While loDataReader.Read()
                                TU_TEXTBOX.Text = loDataReader.Item("TU_CAMPO").ToString()
                            Loop
                        End Using
                    End Using
                End Using
            Catch ex As Exception
                MessageBox.Show(ex.Message, "", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End Try

    P.D.
    Espero que se entienda

    Un saludo desde Bilbo
    Carlos

    martes, 7 de julio de 2015 8:59
  • Tu function

    Public Function verificar_huellas

     Nodevuelve nada por eso no puedes leer lo que consultas debes agregar

    Public Function verificar_huellas(ByVal cadete As cliente) As String Try Dim fp1 As String conectado() cmd = New SqlCommand("sp_verificar_fp") cmd.CommandType = CommandType.StoredProcedure cmd.Connection = cnn cmd.Parameters.AddWithValue("@cod_cadete", cadete.cod_roperia) Dim dtfp As New DataTable Dim drfp As New SqlDataAdapter(cmd) drfp.Fill(dtfp)

    return dtfp.Rows(0)(0).ToString() Catch ex As Exception End Try End Function


    Si mi respuesta fue útil ayudame marcándola como correcta.


    • Editado PIO DEVELOPER martes, 7 de julio de 2015 18:23
    • Propuesto como respuesta PIO DEVELOPER martes, 7 de julio de 2015 18:23
    • Marcado como respuesta Freddy Aragon martes, 17 de enero de 2017 13:00
    martes, 7 de julio de 2015 18:22
  • Pudieras poner el codigo de la clase cliente para analizar el error

    Si mi respuesta fue útil ayudame marcándola como correcta.

    martes, 7 de julio de 2015 23:30
  • puedes poner lo que te devuelve la  consulta

    Si mi respuesta fue útil ayudame marcándola como correcta.

    miércoles, 8 de julio de 2015 18:03