Buenas noches, estoy desarrollando un proyecto web asp.net para generar un menú dinámico conectado a una base de datos ORACLE, en mi página default.aspx he insertado mi objeto menú con formato horizontal y en mi página default.aspx.vb tengo el siguiente código:
Imports System.Data
Imports Oracle.DataAccess.Client
Partial Class _Default
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
Dim dtMenuItems As New DataTable
Dim cn As New OracleConnection("Data Source=ORCL;User ID=HR;Password=hr;")
Dim daMenu As New OracleDataAdapter("SELECT CODMENU, DESMENU, NIVEL, URL, CODPADMENU, ESTADO FROM MENU WHERE ESTADO=1;", cn)
daMenu.SelectCommand.CommandType = CommandType.Text
daMenu.Fill(dtMenuItems)
For Each drMenuItem As Data.DataRow In dtMenuItems.Rows
If drMenuItem("CODMENU").Equals(drMenuItem("NIVEL")) Then
Dim mnuMenuItem As New MenuItem
mnuMenuItem.Value = drMenuItem("CODMENU").ToString
mnuMenuItem.Text = drMenuItem("DESMENU").ToString
mnuMenuItem.NavigateUrl = drMenuItem("URL").ToString
mnuPrincipal.Items.Add(mnuMenuItem)
AddMenuItem(mnuMenuItem, dtMenuItems)
End If
Next
End If
End Sub
Private Sub AddMenuItem(ByRef mnuMenuItem As MenuItem, ByVal dtMenuItems As Data.DataTable)
For Each drMenuItem As Data.DataRow In dtMenuItems.Rows
If drMenuItem("NIVEL").ToString.Equals(mnuMenuItem.Va lue) AndAlso _
Not drMenuItem("CODMENU").Equals(drMenuItem("NIVEL")) Then
Dim mnuNewMenuItem As New MenuItem
mnuNewMenuItem.Value = drMenuItem("CODMENU").ToString
mnuNewMenuItem.Text = drMenuItem("DESMENU").ToString
mnuNewMenuItem.NavigateUrl = drMenuItem("URL").ToString
mnuMenuItem.ChildItems.Add(mnuNewMenuItem)
AddMenuItem(mnuNewMenuItem, dtMenuItems)
End If
Next
End Sub
End Class
ME SALE EL SGTE ERROR:
ORA-12154: TNS:no se ha podido resolver el identificador de conexión especificado
Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code.
Exception Details: Oracle.DataAccess.Client.OracleException: ORA-12154: TNS:no se ha podido resolver el identificador de conexión especificado
Source Error:
Line 12: Dim daMenu As New OracleDataAdapter("SELECT CODMENU, DESMENU, NIVEL, URL, CODPADMENU, ESTADO FROM MENU WHERE ESTADO=1;", cn)
Line 13: daMenu.SelectCommand.CommandType = CommandType.Text
Line 14: daMenu.Fill(dtMenuItems)
Line 15:
Line 16: For Each drMenuItem As Data.DataRow In dtMenuItems.Rows
Les agredecería mucho me ayudaran a solucionar este tema.
Muchas gracias.
