SELECT @@IDENTITY

[mestre fyoda]

O comando "SELECT @@IDENTITY" ele pega o ultimo registro ou pega o registro que foi inserido e depois pega o id desse item inserido ?

' Add template to database. Returns added template ID.
    Public Function AddTemplate(ByRef template As TTemplate) As Long
        Dim da As New OleDbDataAdapter("select * from enroll", connection)

        ' Create SQL command containing ? parameter for BLOB.
        da.InsertCommand = New OleDbCommand("INSERT INTO enroll (id,template) Values(id.nextval,?)", connection)
        da.InsertCommand.CommandType = CommandType.Text
        da.InsertCommand.Parameters.Add("@template", OleDbType.Binary, template.Size, "template")

        ' Open connection
        connection.Open()

        ' Fill DataSet.
        Dim enroll As DataSet = New DataSet
        da.Fill(enroll, "enroll")

        ' Add a new row.
        ' Create parameter for ? contained in the SQL statement.
        Dim newRow As DataRow = enroll.Tables("enroll").NewRow()
        newRow("template") = template.tpt
        enroll.Tables("enroll").Rows.Add(newRow)

        ' Update DataSet.
        da.Update(enroll, "enroll")

        'Return IDCliente
    End Function

eu queria pegar o valor da id inserida e colocar em outra tabela, como eu faço isso ?

[Graymalkin]

Acho que a sua dúvida é pertinente ao *banco de dados* utilizado e não a .NET Framework. Qual é o banco para eu poder mover o seu tópico?

Abraços,

Graymalkin

[mestre fyoda]

Oracle, mas eu queria saber se não tem algum comando que pege a id inserida no cadastro , teria ?

[Graymalkin]

Se tiver, vai ser uma função do banco e não do OleDB.

Abraços,

Graymalkin

[mestre fyoda]

Dim IDCliente As Long
            Dim dt As DataTable
            dt = Conexao.RetornaData(" Select id.currval as UltID from dual ")
            IDCliente = dt.Rows(0).Item("UltID")

isto esta dando errado, o que poderia ser ?

Public Function RetornaData(ByVal query As String) As DataTable
        'essa funca aceita select
        Dim Conexao As New Oracle.DataAccess.Client.OracleConnection("Password=janio1;User ID=Rafael;Data Source=localhost")

        Dim da As Oracle.DataAccess.Client.OracleDataAdapter
        Dim dt As New DataTable


        Try
            Conexao.Open()
        Catch ex As Exception
            MsgBox("Erro ao conectar no banco", MsgBoxStyle.Critical, "Aviso")
            Return Nothing
        End Try

        Try
            da = New Oracle.DataAccess.Client.OracleDataAdapter(query, Conexao)
            da.Fill(dt)
        Catch ex As Exception
            'MsgBox("Erro ao executar a sql", MsgBoxStyle.Critical, "Aviso")
            MessageBox.Show(ex.Message)
            Return Nothing
        Finally
            Conexao.Close()
        End Try
        Return dt
    End Function