다중 페이지에서 단일 StrConn 호출

SQL Server에 대한 ocnnection이 내 vba 코드에 설정되어 있습니다.다중 페이지에서 단일 StrConn 호출

strConn = "ODBC;Driver=SQL;Server=SQL1;Database=DB1;Uid=1;Pwd=1"

나는 4 장에서 이것을 가지고,하지만 난 SQL2 또는 SQL3에서 전화를 변경하기를 원할 것입니다 시간, 대신 각 장에 코드를 변경이있을 것이다 :

형식은 4 번, 한 번만 변경하고 싶습니다.

다른 곳에서 전화를 걸거나 문자열을 ""에 전달하여 실행하도록 설정하는 방법이 있습니까? 당신이 당신의 연결 문자열을 반환하는 기능을 프로젝트에 모듈 또는 클래스를 추가하지 않는 이유는

2010-06-17 Daniel

Function GetConnection() 
    GetConnection= "ODBC;Driver=SQL;Server=SQL1;Database=DB1;Uid=1;Pwd=1" 
End Function

아니면 그냥해야 할 것 함수에 대한 일정한

Public Const strConn As String = "ODBC;Driver=SQL;Server=SQL1;Database=DB1;Uid=1;Pwd=1"

2010-06-17 19:21:53 Gratzy

내가 그것을 전달하고 싶었던 곳에 "GetConnection"을 추가 하시겠습니까? – Daniel

모듈을 프로젝트에 추가하고 거기에 함수를 넣으면 연결을 사용해야 할 때 GetConnecton이 호출됩니다. 상수는 아마 더 나을 것이다. 모듈에서 선언하고 변수처럼 사용하십시오. 단지 읽기 전용입니다. – Gratzy

답변