Imports System
Imports System.Data
Imports System.Data.OleDB
Imports System.IO
Imports System.Data.SqlClient
Namespace Identificacion
Public Class Perfil
Public rut As Integer
Public usuNombre As String
Public usuEmail As String
...
Public accion As Integer
Public Function ObtenerDetalles(ByVal dperfil As Perfil, ByVal detalles As Perfil) As Perfil
Dim Conn As New OleDbConnection("Provider=SQLOLEDB.1;Password=;Persist Security Info=True;User ID=usuario;Initial Catalog=bd;Data Source=ipservidor")
Dim CMD As New OleDbCommand("nombreprocalmacenado", Conn)
Dim valor As OleDbDataReader
CMD.CommandType = CommandType.StoredProcedure
'Rut del usuario
Dim Param As New OleDbParameter("@usuRut", OleDbType.Integer)
Param.Direction = ParameterDirection.Input
Param.Value = dperfil.rut
CMD.Parameters.Add(Param)
'Nombre del usuario
Param = New OleDbParameter("@usuNombre", OleDbType.VarChar)
Param.Direction = ParameterDirection.Input
Param.Value = dperfil.usuNombre
CMD.Parameters.Add(Param)
'Email del usuario
Param = New OleDbParameter("@usuEmail", OleDbType.VarChar)
Param.Direction = ParameterDirection.Input
Param.Value = dperfil.usuEmail
CMD.Parameters.Add(Param)
...
Try
CMD.Connection.Open()
valor = CMD.ExecuteReader
Catch Ex As OleDbException
Throw Ex
End Try
While valor.Read()
If valor.GetValue(valor.GetOrdinal("usuRut")) = dperfil.rut Then
detalles.rut = valor.GetValue(valor.GetOrdinal("usuRut"))
detalles.usuNombre = valor.GetValue(valor.GetOrdinal("usuNombre"))
detalles.usuEmail = valor.GetValue(valor.GetOrdinal("usuEmail"))
detalles.idPerfilWeb = valor.GetValue(valor.GetOrdinal("idPerfilWeb"))
If Not IsDBNull(valor.GetValue(valor.GetOrdinal("idPerfilOirs"))) Then
detalles.idPerfilOirs = valor.GetValue(valor.GetOrdinal("idPerfilOirs"))
End If
detalles.idDpto = valor.GetValue(valor.GetOrdinal("idDpto"))
detalles.bitActivo = valor.GetValue(valor.GetOrdinal("bitActivo"))
Exit While
End If
End While
CMD.Connection.Close()
Return detalles
End Function
...
End Class
End Namespace