Insertar registro y devolver columna clave

Hola amigos , tengo un problema. Necesito insertar un registro y que la
rutina me devuelva el Id (autonumerico) del nuevo registro .
como podría hacerlo ? intenté con esto pero no funciona:

Public Function EjecutarYDevolverCampo(ByVal StrSql As String, ByVal
CampoDevolver As String) As Object

Dim myCommand As New OleDbCommand(StrSql, cn)
Dim myReader As OleDbDataReader
If cn.State = ConnectionState.Closed Then
cn.Open()
End If

Try
myReader = myCommand.ExecuteReader()
Catch err As Exception
MessageBox.Show(err.Message)
Return Nothing

End Try

If myReader.RecordsAffected = 0 Then
Return Nothing
End If

While myReader.Read()
Return myReader.Item(CampoDevolver)
End While
myReader.Close()

End Function


Muchas gracias

¿Qué sistema de base de datos estás usando? ¿Access, SQL Server .. ?

Lo pregunto porque la forma de obtener el autonumérico es diferente según el
sistema.

Saludos:

Jesús López

Hola Jesús ... verdad se me olvidó decir que uso Access..

muchas gracias

SqlRanger wrote:
> ¿Qué sistema de base de datos estás usando? ¿Access, SQL Server .. ?
>
> Lo pregunto porque la forma de obtener el autonumérico es diferente

> sistema.
>
> Saludos:
>
> Jesús López
>
>

Para obtener el autonumérico en Access tienes que ejecutar "SELECT
@@IDENTITY" justo después de insertar el registro y sin haber cerrado la
conexión. Si cierras la conexión ya no podrás obtener el autonumérico. Es
decir, tendrás que hacer algo así:

(1) Abrir conexión
(2) Insertar registro
(3) Obtener el autonumérico con SELECT @@IDENTITY
(4) Cerrar la conexión si ya no hace falta tenerla abierta


Esta sería la manera de obtener el autonumérico con "SELECT @@IDENTITY"

Dim cmdAuto As New OleDbCommand("SELECT @@IDENTITY", cn)
Dim Autonumérico As Integer = cmdAuto.ExecuteScalar()

Saludos:

Jesús López
MVP