none
SCOPE_IDENTITY DEVUELVE FALTA PUNTO Y COMA RRS feed

  • Pregunta

  • Buenas Tardes:

    Tengo el siguiente procedimiento, y quiero recuperar el ID (autoincrement) del registro creado pero siempre me dice que falta el ; al final de la consulta, y lo he insertado en distintos lugares, pero algo estoy haciendo mal Agradecería vuestra colaboración.

    Function NuevoElemento(ByVal Ruta As String) As Integer
            Try
                Conexión = New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & Ruta _
                                                     & "\AP20.accdb" & "; Jet OLEDB:DataBase Password=amfprogram")
                Conexión.Open()
                Consulta = "INSERT INTO Aparatos " _
                    & "(Electrodoméstico, Serie, Medida, Revisión, Caducidad, Documentación, Titular)" _
                    & " VALUES ('" _
                    & ArrayComp(1) & "', '" _
                    & ArrayComp(2) & "', '" _
                    & ArrayComp(3) & "', '" _
                    & ArrayComp(4) & "', '" _
                    & ArrayComp(5) & "', '" _
                    & ArrayComp(6) & "', '" _
                    & ArrayComp(7) & "') SCOPE_IDENTITY()"
                CmdOle = New OleDb.OleDbCommand(Consulta, Conexión)
                CmdOle.CommandType = CommandType.Text
                CmdOle.ExecuteNonQuery()
                Return Convert.ToInt32(CmdOle.ExecuteScalar())
            Catch ex As Exception
                MessageBox.Show(ex.ToString)
                Return 0
            Finally
                Conexión.Close()
            End Try
        End Function

    viernes, 17 de abril de 2020 13:39

Respuestas

Todas las respuestas