VBA의 기존 MS-ACCESS 통과 쿼리에 대한 ODBC 연결 문자열을 변경하는 방법

Question

미리 정의 된 ODBC 연결 문자열을 사용하여 MS-Access 데이터베이스에 여러 개의 통과 쿼리를 설정했습니다. 문제는 데이터베이스가 두 개의 MySQL 데이터베이스 중 하나에 연결될 수 있다는 것입니다. 사용자가 데이터베이스를 시작할 때 DB를 선택하면 시스템이 VBA를 통해 해당 테이블을 동적으로 연결합니다 (이 작동). 그러나 선택한 데이터베이스와 일치하도록 기존 쿼리에서 ODBC 연결 문자열을 변경해야합니다. 따라서 ODBC 연결 문자열을 새 연결 문자열로 설정하는 기존의 모든 통과 쿼리를 반복하는 VBA 함수가 필요합니다. 이 작업을 수행하는 방법에 대한 아이디어가 있습니까?

Answer 1

당신이 할 수있는 쿼리 컬렉션을 루프 : 또한 필요한 데이터베이스 이름의 존재 여부를 테스트하는 InStr(qdf.Connect)와 연결 문자열을 검사 할 수

Dim qdf As QueryDef 

For Each qdf In CurrentDb.QueryDefs 
    If qdf.Type = dbQSQLPassThrough Then 
     qdf.Connect = NewConnect 
    End If 
Next 

.