после вставки получить значение первичного ключа в текстовом поле

Question

У меня есть 2 таблицы, Таблица A и Таблица B .IMAT_PRIORITY_ID является первичным ключом в таблице A.

Как получить значение IMAT_PRIORITY_ID в текстовом поле после вставки в таблицу A?

strSQL1 = "INSERT TableA (IMAT_PRIORITY_ID,JOB_NO,BATCH_NO) VALUES (SQ_PRIOTITY_ID.nextval," & JOB_NO.Text & "','" & BATCH_NO.Text & "')"

With adoCommand
    .ActiveConnection = adoconn
    .CommandType = adCmdText
    .CommandText = strSQL1
    .Prepared = True
    .Execute , , adCmdText + adExecuteNoRecords
End With


strSQL1 = "INSERT TableB (ISBN_SERIAL_NO,IMAT_PRIORITY_ID,ISBN) VALUES (ISBN_SERIAL_NO.NEXTVAL,'" & IMAT_PRIORITY_ID.Text & "','" & ISBN.Text & "')"


With adoCommand
    .ActiveConnection = adoconn
    .CommandType = adCmdText
    .CommandText = strSQL1
    .Prepared = True
    .Execute , , adCmdText + adExecuteNoRecords
End With

Answer 1

Чтобы получить последний идентификатор (PRIMARY KEY), сгенерированный из оператора вставки, вы можете запросить его следующим образом:

strSQL1 = "INSERT TableA (IMAT_PRIORITY_ID, JOB_NO, BATCH_NO) VALUES (SQ_PRIOTITY_ID, JOB_NO, BATCH_N) VALUES (SQ_PRIOTITY_ID.nextval, "& JOB_NO.Text &" ',' "& BATCH_NO.Text &" '); ВЫБРАТЬ SCOPE_IDENTITY ()"

Более подробную информацию вы можете найти более здесь