MS Access에서 쿼리를 실행할 때 기본 키의 일련 번호를 유지하는 방법?

Question

쿼리에서 다음과 같은 일을하려고합니다 :

Dim rs As RecordSet 
Dim NewPrimaryKey as Long 

Set rs = Currentdb.OpenRecordset("SELECT * FROM MyTable WHERE MyPrimaryKey Is Null;") 

With rs 
     .AddNew 
     NewPrimaryKey = !MyPrimaryKey 
     !DateValue = Now() 
     ... 
     .Update 
End With 

JET 엔진을 사용하여 MS Access 2003에서 실행할 수있는 쿼리를 사용하는 방법에 대한 모든 포인터는 크게 감사하겠습니다.

Answer 1

두 개의 SQL 문을 사용하여 원하는대로 수행 할 수 있습니다. 먼저 INSERT. 마지막으로 추가 된 자 동 번호 값을 가져 오려면 "SELECT @@ Identity"를 선택하십시오. 두 SQL 문으로 데이터베이스 연결에 오브젝트 변수를 사용하십시오.

Dim db As DAO.Database 
Dim NewPrimaryKey As Long 
Dim strInsert As String 

strInsert = "INSERT INTO MyTable ([DateValue])" & vbCrLf & _ 
    "VALUES (Now());" 
Set db = CurrentDb 
db.Execute strInsert, dbFailOnError 
NewPrimaryKey = db.OpenRecordset("SELECT @@Identity")(0) 
Debug.Print NewPrimaryKey 
Set db = Nothing 

나는 예약어이기 때문에 필드 이름 DateValue를 대괄호로 묶었습니다.

편집 : 하나의 SQL 문으로 여러 레코드를 삽입하면 SELECT @@ Identity가 마지막 자동 번호를 제공합니다. 해당 연결 인스턴스를 통해 수행 된 삽입에 대한 마지막 자 동 번호입니다. 그리고 당신은 사용 된 자 동 순서를 얻지 못합니다; 마지막 하나.

strInsert = "INSERT INTO MyTable3 ([some_text])" & vbCrLf & _ 
    "SELECT TOP 3 foo_text FROM tblFoo" & vbCrLf & _ 
    "WHERE foo_text Is Not Null ORDER BY foo_text;"