Mostrar Datos de Class Library

26/07/2004 - 16:34 por Mauricio Henao Romero | Informe spam
Hola a todos.

Quisiera hacer una consulta de tipo URGENTE.

Veran, tengo un proyecto de tipo Class Library, donde
tengo funciones como:
Public Sub IngresoTabla
Public Sub EditaTabla
Public Overloads Function MuestraTabla as As SqlDataReader
Public Sub BorraTabla

Como ven, Este proyecto tiene todos los movimientos
basicos para realizar en una tabla.

Por otro lado (en carpeta aparte), tengo un proyecto VB de
tipo WebApp.

Alli tengo un formulario, ese formulario tiene un boton
con el siguiente codigo:

Private Sub Page_Load(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles MyBase.Load
Response.Buffer = True
Dim dr As SqlDataReader
Try
dr = objDatos.MuestraTabla
Catch ex As Exception
Mensaje(ex.Message)
Exit Sub
End Try
TextBox1.Text = Trim(dr.GetString(0))
End Sub

La pregunta es:
Donde estoy fallando ?
Se supone que el formulario (en su evento LOAD) deberia
llamar la funcion MuestraTabla, alli deberia hacer lo
siguiente:

Public Overloads Function MuestraTabla() As SqlDataReader
_sentenciaSQL = "exec StoreProcedure"
objCommand.CommandText = _sentenciaSQL
objCommand.CommandType =
CommandType.StoredProcedure
Dim dr As SqlDataReader = objCommand.ExecuteReader
Return dr
End Function

Pero no me esta mostrando nada.
Como hago entonces, para que desde una Class Library
(Imports MiClass), pueda mostrar los datos del
procedimiento en en TextBox ?

Se que a lo mejor pueda ser una tonteria, pero no doy mas :
(

A todos, mil y mil gracias.
 

Leer las respuestas

#1 Eduardo A. Morcillo [MS MVP VB]
26/07/2004 - 17:43 | Informe spam
Donde estoy fallando ?



Te falta ubicar el datareader en el primer registro y cargarlo.

...
dr.Read()
TextBox1.Text = Trim(dr.GetString(0))
...

Eduardo A. Morcillo [MS MVP VB]
http://www.mvps.org/emorcillo

Preguntas similares