Como obtener un nuevo id acabado de guardar en DB

[Motki]

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

[freegirl]

Si quieres obtener sólo una cifra, en vez del datareader, haz el executescalar.

dim ultimo as integer = objCommand.executescalar

saludos!

[Motki]

gracias freegirl por tu contestación
lo he probado dejandolo así

'obtener el nuevo idSubmenu
strSQLQuery = "select idsubmenu from submenu order by submenu desc"
objConnection.Open()
objCommand = New OleDbCommand(strSQLQuery, objConnection)
dim ultimo as integer = objCommand.executescalar()


pero me vuelve a decir lo mismo:
System.Data.OleDb.OleDbException: No se han especificado valores para algunos de los parámetros requeridos

esta vez me marca la linea :
objCommand.executescalar()

Que estoy haciendo mal? Ante no lo he puesto pero utilizo una BD Access

[freegirl]

hola,

fíjate que el nombre del campo y de la tabla esté escrito correctamente..

Otra cosa, si quieres coger el último número introducido, y idSubmenu es un campo autonumérico, haz:

"select max(idsubmenu) from submenu"

De esta forma obtienes el numero mayor, que correspondería al último registro que introduciste. Ya que de la otra forma que lo haces tu, listas todos los registros.


saludos!

[Motki]

Muchas gracias ahora si que me ha funcionado...

entonces antes no me funcionaba pq la consulta me devolvia mas de un registro?

[freegirl]

la otra consulta tampoco era para que te diera error...sólo que te hubiera sacado el último número que hubieras listado. Te dije la consulta del MAX porque, desde mi punto de vista, para sacar el último número es más correcta, y era innecesario listar todos los registr.


saludos!

[Robertoch]

Debes se usar el executescalar para que te de el identity que hallas introducido, esto funciona si tienes un campo numerico de folio de la transaccion que se va incrementando automaticamente.

Ejemplo:
object valorInsertado = null;

sqlCmd.CommandText = "INSERT INTO TABLA (CAMPOS DE LA TABLA) VALUES (VALORES A INSERTAR)";

sqlCmd.ExecuteNonQuery();

sqlCmd.CommandText = "SELECT @@IDENTITY AS valorInsertado";
valorInsertado = sqlCmd.ExecuteScalar();