<WebMethod(Description:="Paramter: aPath.")> _
Function ClearF(ByVal apath As String) As String
Dim Fert As String = String.Empty
Dim objCmd As New OracleCommand(Fert, OracleConn)
Dim P_PATH As New OracleParameter
Try
OracleConn.Open()
With objCmd
.CommandType = CommandType.StoredProcedure
.CommandText = "USP_FRES"
.Parameters.Add(P_PATH)
End With
'Create Parameter
P_PATH.ParameterName = "P_PATH"
P_PATH.DbType = DbType.String
P_PATH.Direction = ParameterDirection.Input
P_PATH.Value = apath
objCmd.ExecuteNonQuery()
Return "Success"
Catch ex As Exception
Return "Error : " & ex.Message
Finally
OracleConn.Close()
End Try
End Function