solo me trae un mensaje cuando deberia ser varios en msgbox

[elpaisa]

pues miren tengo un programa que me conecta con una procedimiento almacenado y que envia los parametros y conexion y todo pero tengo este algoritmo que deberia traerme varios mensajes cuando ejecuta el procedimiento pero siempre me trae el primero aca les paso el codigo


cnn.Open()
' cmd.ExecuteNonQuery()
Dim Reader As SqlDataReader
Reader = cmd.ExecuteReader()
Dim RecordCount As Integer = 0
Dim Records As String
Records = ""
While Reader.Read()

Dim i As Integer = 0
For i = 0 To Reader.FieldCount - 1
Records = Reader(i) & " - "

Next
RecordCount += 1
End While

como puede hacer para que me traiga los mensajes

los mensajes eran print pero los cambie por un select

[ramirezmario7]

hola
Lo que veo es que estas llevando los mensajes a la variable Records.
pero lo que pasa es que tines esta instruccion

While Reader.Read()

Dim i As Integer = 0
For i = 0 To Reader.FieldCount - 1
Records = Reader(i) & " - "

Next
RecordCount += 1
End While

prueba cambiandola por esta

Dim i As Integer = 0
While Reader.Read()

Records = Reader(i) & " - "
i += i+1

Next
RecordCount += 1
End While

mira bien la instruccion a ver si te ayuda, yo programo en C# pero puede que te de una idea con eso.

me imagino que el Next es del for, si es asi quitalo de la instruccion

[elpaisa]

gracias por responder pero no dio D:

[ramirezmario7]

No has intentado cambiar el DataReader por un DataSet

y con el DataSet puedes hacer lo siguiente

if (Ds.Tables.Count > 0)
{
for (int f = 0; f < Ds.Tables.Count; f++)
{
Records += Ds.Tables[f].Rows[0][0].ToString()+"-";
}
}

Haciendo esto me doy cuanta que en la instruccion
Records = Reader(i) & " - "
Siempre esta reemplazando la informacion que tiene.

puedes probar
Records += Reader(i) & " - "

o prueba con el DataSet

[elpaisa]

lo siento uso el visual basic 2008 y hay no coje el dataset :S

[ramirezmario7]

Voy a mirar como hacerlo con el DataReader

[ramirezmario7]

He estado mirando y solo me coge la primera consulta con el reader.

revisa este link
http://vb.net-informations.com/datas...-sqlserver.htm

para que mires como seria con el DataSet

[elpaisa]

gracias por el link tratare de usarlo para ver si me funciona

[ramirezmario7]

Estuve consultando lo del DataReader y encontre como hacer con varios select.


var moreResults = true;

while (moreResults)
{
while (dr.Read())
{
Records += dr[0].ToString();
}
moreResults = dr.NextResult();
}

[elpaisa]

Iniciado por ramirezmario7

Estuve consultando lo del DataReader y encontre como hacer con varios select.


var moreResults = true;

while (moreResults)
{
while (dr.Read())
{
Records += dr[0].ToString();
}
moreResults = dr.NextResult();
}

disculpa eso es C# yo trabajo en visual basic

[ramirezmario7]

cnn.Open()
Dim Reader As SqlDataReader
Reader = cmd.ExecuteReader()
Dim RecordCount As Integer = 0
Dim Records As String
Records = ""

Dim moreResult As var = True

While morResult

While Reader.Read()


Records += Reader(i) & " - "


RecordCount += 1
End While
moreResult = Reader.NextResult
End While

prueba asi, nose si estara bueno

revisa esto para convertir codigo de c# a vb
http://www.carlosag.net/Tools/CodeTranslator/

[elpaisa]

muchas gracias ramirez tu ayuda me fue muy util ya lo termine aca paso el codigo por si alguien tiene el mismo problema mio

Dim command As SqlCommand
Dim adapter As New SqlDataAdapter
Dim ds As New DataSet


cnn.Open()
command = New SqlCommand(obj, cnn)
adapter.SelectCommand = command
adapter.Fill(ds)
adapter.Dispose()
command.Dispose()

Dim texto As String
texto = ""

Dim tabla As DataTable

For Each tabla In ds.Tables
texto = texto + " -- " + tabla.Rows(0).Item(0).ToString()
Next tabla

MsgBox(texto)