첨부 실행 코드는 나눔고딕코딩 폰트를 사용합니다.
유용한 소스 코드가 있으면 icodebroker@naver.com으로 보내주시면 감사합니다.
블로그 자료는 자유롭게 사용하세요.

■ MDB 파일 정보 구하기

------------------------------------------------------------------------------------------------------------------------

Dim pDatabase   As Database

Dim strFilePath As String

 

strFilePath = "c:\test.mdb"

 

Set pDatabase = OpenDatabase(strFilePath)

 

Print pDatabase.Name           ' 데이터베이스명

Print pDatabase.Version        ' 데이터베이스 버전

Print pDatabase.CollatingOrder ' 정렬 순서

 

pDatabase.Close

------------------------------------------------------------------------------------------------------------------------

Posted by 사용자 icodebroker

댓글을 달아 주세요