나눔터  
  HOME > 나눔터 > 묻고답하기 > 액세스
액세스
액세스에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내

작성자:  

 열심맨 (ojk)

추천:  1
파일:     조회:  2019
제목:   사용자팁에 있는 mdb 파일비교
     
  사용자팁에 보면 2개의 mdb파일을 비교하여 스키마를 만들어 주는 팁이 있습니다.
그런데 에러가 나는 부분이 있어 문의 드립니다. (2010버전 사용중)

http://www.officetutor.co.kr/board/Dtype_tip/bfrmvw.asp?f_tn=Dtip_all&f_bno=168&page=2&f_categb=P03&fchk=&fval=



Private orgDB As New ADOX.Catalog
Private newDB As New ADOX.Catalog


Private Sub DB_Start()

PathProgram = Application.CurrentProject.Path

Dim orgDBPath As String     '기준 디비
Dim newDBPath As String     '업데이트할 디비
    
orgDBPath = "Provider=MicroSoft.Jet.OLEDB.4.0;Data source=" & PathProgram & "\기준디비.mdb" & ""
newDBPath = "Provider=MicroSoft.Jet.OLEDB.4.0;Data source=" & PathProgram & "\업데이트할디비.mdb" & ""
     
orgDB.ActiveConnection = orgDBPath <- 에러나는 부분
newDB.ActiveConnection = newDBPath <- 에러나는 부분

End Sub

3706 런타임 오류라고 뜹니다.

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

박병섭님의 -> "두 mdb를 비교하여 테이블 칼럼등 같게 만들기"

저에게는 꼭 필요한 기능이네요...

도움 부탁드립니다. ^^

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

혹시...
위 소스는 비베에서 작동되는 것인가요?
엑세스2010 에서는 안되는것 같습니다... 끙


 
[불량 게시물 신고]  
황동준orgDBPath = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & PathProgram  & "\Database1.accdb"

newDBPath = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & PathProgram  & "\Database2.accdb"

저는 이렇게 해서 되었습니다.
사용버전 : Access365
참조 : Microsoft ADO Ext. 6.0 for DDL and Security
01-04 (13:45)
삭제 ■신고
열심맨오~ 성공하셨다고요???
감사합니다. 저도 가르침대로 해보겠습니다.

PS. 엑세스에서는 안되는줄 알고 Visual Studio 2019 프로그램을 컴퓨터에 설치한후 해결방법을 찾고 있었습니다...
01-04 (14:19)
삭제 ■신고
열심맨황동준 선생님~
알려주신대로 해보니 작동이 잘됩니다~
감사합니다~^^

한가지 더 여쭐께요.
mdb 파일에 암호가 있을경우는 어디에 
PW=12345 를 추가해야 하나요?
01-05 (14:39)
삭제 ■신고
열심맨이것 저것 해보니 되네요... 성공했습니다.
맨뒤에 추가하니 되었습니다.
-> jet OLEDB:Database Password=12345;
01-05 (17:33)
삭제 ■신고
        
  

작성일 : 2020-01-03(16:11)
최종수정일 : 2020-01-03(18:26)