Hola a to2,
tengo un datagrid donde puedo editar/borrar/añadir items desde la misma página.
Es decir cuando yo le doy al botón nuevo me aparecen los campos necesarios en la tabla para insertar
Cuando le doy al boton "Añadir" llamo a la función escrita bajo.
Lo que quiero es guardar en la tabla submenu y luego de guardar en dicha tabla quiero obtener el nuevo idSubMenu para guardar en la
tabla Menu_Submenu la nueva relación
Mi problema es que no sé como obtener el idSubMenu nuevo.
He realizado lo siguiente pero obtengo el siguiente error :
System.Data.OleDb.OleDbException: No se han especificado valores para algunos de los parámetros requeridos
Aquí os dejo la función y he marcado donde me da el error
Código:
Sub dg_Add(Sender As Object, E As EventArgs)
Dim srtNombreSubMenu as String= Request.Form("srtNombreSubMenu")
Dim strDescrip as String = Request.Form("strDescrip")
Dim strLink as String = Request.Form("strLink")
Dim strTarget as String = Request.Form("strTarget")
Dim objConnection As OleDbConnection
Dim objCommand As OleDbCommand
Dim strSQLQuery As String
Dim conexiondb as string
Dim TheidSubMenu as integer
Dim storeGrid as datagrid
conexiondb = ConfigurationSettings.AppSettings("strConnect")
objConnection = New OleDbConnection(conexiondb)
' Inserto en DB
strSQLQuery = "insert into submenu (NombreSubmenu,DescripSubmenu,link,target) values ('"& srtNombreSubMenu &"', '"& strDescrip &"', '"& strLink &"', '"& strTarget &"')"
objCommand = New OleDbCommand(strSQLQuery, objConnection)
objConnection.Open()
objCommand.ExecuteNonQuery()
objConnection.close()
BindData()
''''''''''''''''''' HASTA AQUI ME FUNCIONA CORRECTAMENTE''''''''''''''''''''''''''''''
'obtener el nuevo idSubmenu
strSQLQuery = "select idsubmenu from submenu order by submenu desc"
objConnection.Open()
objCommand = New OleDbCommand(strSQLQuery, objConnection)
'3. Create the DataReader
Dim objDR as OleDbDataReader
objDR = objCommand.ExecuteReader() <--- AQUI ME DA ERROR
objDR.Read()
TheidSubMenu = objDR.GetString(0)
objConnection.Close()
End Sub