ACC2000: 레코드 집합 다시 열 때까지 새 SQL 레코드 삭제된 나타난다

기술 자료: 208799 - 이 문서가 적용되는 제품 보기.

기계 번역 고지 사항 보기

기계 번역된 문서와 영문 원본 문서 나란히 보기

고급: 전문적인 코드 작성, 상호 운용성 및 다중 사용자 기술이 필요합니다.

이 문서에서는 경우에만 Access 데이터베이스를 수 (.mdb) 적용됩니다.

모두 확대 | 모두 축소

현상

응용 프로그램에 대해 Visual Basic을 사용하여 테이블의 고유 인덱스 필드 기본 값을 해당 필드에 값을 지정할 경우 SQL 테이블에 레코드를 추가할 때 SQL 테이블을 다시 열 때까지 새 레코드가 삭제된 나타납니다. 새 레코드에서 값을 구하는 하면 다음 오류 메시지가 나타날 수 있습니다.

런타임 오류 '3167'

레코드가 삭제됩니다.

위로 가기 | 피드백 보내기

해결 방법

SQL 테이블을 열면 VBA 코드를 사용하여 이 문제를 해결하려면 다음 예제와 같이 dbSeeChanges 옵션을 포함할:

Set rs = db.OpenRecordset("TestTable", dbOpenDynaset, dbSeeChanges)

dbSeeChanges 옵션을 새로 고유 인덱스 필드의 기본 값을 포함하는 레코드를 현재 레코드 집합에 사용할 수 있는 추가된 것을 보장합니다.

위로 가기 | 피드백 보내기

Microsoft는 묵시적인 보증 없이 목적으로만 프로그래밍 예제를 제공합니다. 이 포함되지만, 상품성 또는 특정 목적에의 적합성에 대한 묵시적인된 보증이 제한되지 않습니다. 이 문서에서는 만들려면 및 프로시저를 디버깅하는 데 사용되는 도구 및 여기서 설명하는 프로그래밍 언어에 익숙한 사용자를 대상으로 합니다. Microsoft 지원 엔지니어는 사용자에게 도움이 되도록 특정 절차에 대한 기능을 설명할 수 있지만 추가 기능을 제공하거나 특정 요구 사항에 맞도록 프로시저를 구성하지는 이 예제를 수정하지 않습니다.

문제를 재현하기 위한 단계

참고: 이 문서에서는 예제 코드에서 Microsoft 데이터 액세스 개체를 사용합니다. 이 코드를 제대로 실행하려면 Microsoft DAO 3.6 개체 라이브러리에 참조해야 합니다. 이렇게 하려면 Visual Basic 편집기에서 [도구] 메뉴에서 참조 를 및 Microsoft DAO 3.6 개체 라이브러리에 확인란이 선택되어 있는지 확인하십시오.

모듈을 만들고 있이 있지 않은 경우 선언 구역에 다음 줄을 입력하십시오.
명시적 옵션

다음 프로시저를 입력합니다:

Function TestSQLData()

   Dim db As DAO.Database, rs As DAO.Recordset
   Dim idx, td
   Dim cmd As String

   ' Delete TestTable if it exists on the SQL server.
   
   'Insert your database name, user ID, password (if any), and dsn
   'to point to an ODBC data source.
   Set db = OpenDatabase("<MyDatabase>", False, False, _
   "ODBC, Database = <MyDatabase>, UID = <userid>, PWD = <password>, dsn = <MyDSN>")
   cmd = "if exists (select * from sysobjects where" _
      & " id = object_id('dbo.TestTable'))"
   cmd = cmd & " drop table TestTable"
   db.Execute cmd, dbSQLPassThrough

   ' Create TestTable with one field on SQL server.
   Set td = db.CreateTableDef("TestTable")
   td.Fields.Append td.CreateField("Int", dbInteger)
   td.Fields.Append td.CreateField("String", dbText, 50)
   db.TableDefs.Append td

   Set idx = td.CreateIndex("MyIdx")
   idx.Unique = True
   idx.Fields.Append idx.CreateField("Int")
   td.Indexes.Append idx

   cmd = "create Default TestDef3 as 100"
   db.Execute cmd, dbSQLPassThrough

   cmd = "sp_bindefault TestDef3, 'TestTable.Int'"
   db.Execute cmd, dbSQLPassThrough

   ' Open table, add a record, and then obtain values.
   Set rs = db.OpenRecordset("TestTable")
   rs.AddNew
   rs!String = "Trial"
   rs.Update

   Debug.Print "RecordCount = " & rs.RecordCount
   rs.MoveFirst
   Debug.Print "String is " & rs("String")
   Debug.Print "Int is " & rs("Int")
   rs.Close

End Function

이 함수를 테스트하려면 직접 실행 창에 다음 줄을 입력한 다음 Enter 키를 누릅니다.
? TestSQLData()
참고 3167 런타임 오류가 발생합니다.

위로 가기 | 피드백 보내기

속성

기술 자료: 208799 - 마지막 검토: 2005년 6월 23일 목요일 - 수정: 3.0

본 문서의 정보는 다음의 제품에 적용됩니다.

Microsoft Access 2000 Standard Edition

kbmt kberrmsg kbprb kbusage KB208799 KbMtko

기계 번역된 문서

중요: 본 문서는 전문 번역가가 번역한 것이 아니라 Microsoft 기계 번역 소프트웨어로 번역한 것입니다. Microsoft는 번역가가 번역한 문서 및 기계 번역된 문서를 모두 제공하므로 Microsoft 기술 자료에 있는 모든 문서를 한글로 접할 수 있습니다. 그러나 기계 번역 문서가 항상 완벽한 것은 아닙니다. 따라서 기계 번역 문서에는 마치 외국인이 한국어로 말할 때 실수를 하는 것처럼 어휘, 구문 또는 문법에 오류가 있을 수 있습니다. Microsoft는 내용상의 오역 또는 Microsoft 고객이 이러한 오역을 사용함으로써 발생하는 부 정확성, 오류 또는 손해에 대해 책임을 지지 않습니다. Microsoft는 이러한 문제를 해결하기 위해 기계 번역 소프트웨어를 자주 업데이트하고 있습니다.

이 문서의 영문 버전 보기.

위로 가기 | 피드백 보내기