[SOLUCIONADO] enviar parametros de asp.net a sql server

[andres1292]

hola amigos mi duda es como puedo hacer para poder enviar un parametro de asp.net a sql server quisiera sabrr como puedo hacer ya que el procedimiento que tengo necesita como parametro un dato que tengo en la aplicacion y quisiera saber como hago eso.

[hylander2112]

Iniciado por andres1292

hola amigos mi duda es como puedo hacer para poder enviar un parametro de asp.net a sql server quisiera sabrr como puedo hacer ya que el procedimiento que tengo necesita como parametro un dato que tengo en la aplicacion y quisiera saber como hago eso.

Hola Andres1292, te envío un código en el cual envía parámetros a un procedure, este a la vez le devuelve un valor. Espero que te ayude.

PD. Aquí se está trabajando con el motor de Oracle, pero la idea es igual como si se trabajara con MS SqlServer.


Public Function BuscarDatosPersona(ByVal strIdCita As String, _
ByVal strNombre As String, _
ByVal strApePat As String, _
ByVal strApeMat As String) As DataTable


Dim StrCadena As String
Dim StrUsuario As String
StrCadena = Conexion.getConn
StrUsuario = Conexion.getUsuario

Using cnn2 As New OracleConnection(StrCadena)
cnn2.Open()

Dim objAdapterR As New OracleDataAdapter
Dim ObjTb As DataTable

Dim cm As OracleCommand = New OracleCommand()

Try
cm.CommandText = Trim(StrUsuario) + "PK_CargarComboHorario.PK_P_BuscarDatosPersona"
cm.CommandType = CommandType.StoredProcedure

cm.Parameters.Add("v_vidcita", OracleDbType.Varchar2).Value = strIdCita
cm.Parameters.Add("v_vnombre", OracleDbType.Varchar2).Value = strNombre
cm.Parameters.Add("v_vapePat", OracleDbType.Varchar2).Value = strApePat
cm.Parameters.Add("v_vapeMat", OracleDbType.Varchar2).Value = strApeMat
cm.Parameters.Add("r_Cursor_Datos", OracleDbType.RefCursor).Direction = ParameterDirection.Output

cm.Connection = cnn2
ObjTb = New DataTable
objAdapterR = New OracleDataAdapter(cm)
objAdapterR.Fill(ObjTb)

Catch ex As Exception
Throw ex
Finally
If Not cm Is Nothing Then cm.Dispose()
cm = Nothing
objAdapterR = Nothing
End Try
Return ObjTb
End Using
End Function