코드 accdb 파일에 오류가 발생합니다.

Question

아래 코드는 "긴 시간"형식의 데이터 형식 "날짜/시간"열을 .mdb 파일의 액세스 테이블에 추가합니다. 하지만 mdb 파일을 accdb로 바꾸면 열을 추가해도 작동하지 않습니다. 그래서 "긴 시간"형식으로 "날짜/시간"데이터 형식의 열을 추가 할 수있는 대체 코드를 원한다.

내가

Dim db As Database 
Dim tdf As TableDef 
Dim fld As Field 

Dim JetEngine As New dao.DBEngine 
Dim p 
db = JetEngine.OpenDatabase("D:\Employee.accdb") 

tdf = db.TableDefs("detail") 
fld = tdf.CreateField() 
With fld 
    .Name = "MyDateTime" 
    .Type = 8 
     .Size = 8 
End With 

tdf.Fields.Append(fld) 
p = fld.CreateProperty("Format", 10, "Long Time") 
fld.Properties.Append(p) 

내가 같은 오류 얻을 사용하는 코드를 "인식 할 수없는 데이터베이스 형식. 'D : \ Employee.accdb를'" 코드의 경우

db = JetEngine.OpenDatabase("D:\Employee.accdb") 

Answer 1

프로젝트의 참조를 확인하십시오. 당신이 참조를 ("DAO"로 참조 목록에 나타납니다)

마이크로 소프트 DAO 3.6 개체 라이브러리

를 사용하는 경우 다음 코드는 .mdb 파일을 작동하지만 .accdb 파일에 대한 것입니다. 당신은 단순히 참조를 제거하고

마이크로 소프트 오피스 14.0 액세스 데이터베이스 엔진 개체 라이브러리로 교체하는 경우 당신은 당신의 코드에 중요한 변경없이 두 파일 형식을 지원

은 참조 목록으로 나타납니다

("Microsoft.Office.Interop.Access.Dao").