Experts Exchange connects you with the people and services you need so you can get back to work.
Dim Rdr = cmd.ExecuteReader
If Rdr.Read Then
'Dim Datos = cmd.ExecuteScalar
Dim Estado = Rdr.GetValue(0)
Dim activo = Rdr.GetValue(1)
Dim Datos = Rdr.GetOracleBlob(2)
Using BR As New BinReader(DirectCast(Datos, Stream))
Prj = New Proyecto(BR, False)
Prj.Estado = CByte(Estado)
Prj.Activo = "1".Equals(activo)
Prj.ProyectoPublico = True
Catch ex As Exception
MessageBox.Show(ex.Message, "Cargando Proyecto Desde Base de datos")
Open in new window
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
The revolutionary project management tool is here! Plan visually with a single glance and make sure your projects get done.