Excel VB 데이터베이스 연결 테스트

Question

데이터를 액세스 데이터베이스로 복사하는 VB 코드가 포함 된 Excel 스프레드 시트가 있습니다. 이렇게하면 한 시트의 데이터를 캐시 시트로 복사 한 다음 플래그를 사용하여 캐시 시트에서 db로 복사하여 새 데이터를 식별합니다.이 작업은 정상적으로 수행되지만 연결 테스트를 추가하여 데이터베이스 연결이 정상인지 확인합니다 .

Dim cnn As ADODB.Connection 
Dim canConnect As Boolean 
Set cnn = New ADODB.Connection 

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _ 
    "Data Source=\\G-FILE1\Common_Files\All Users\Robert T\Cash Sheets\CashSheets.mdb;" 
If cnn.State = adStateOpen Then 
canConnect = True 
cnn.Close 
MsgBox "Connection UP", vbOKOnly 
Else 
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _ 
    "Data Source=\\G-FILE1\Common_File\All Users\Robert T\Cash Sheets\CashSheets.mdb;" 
cnn.Close 
If cnn.State = adStateClosed Then 
canConnect = False 
cnn.Close 
MsgBox "Connection DOWN!", vbOKOnly 

End If 
End If 

그래서 제가하고 싶은 것은 이것이다 :

이

내가 연결 테스트 아래있는 코드

버튼을 클릭하면> 데이터 캐시 시트로 전송됩니다

(작업)> 사용할 수없는 다음을 알리는 사용자 MSGBOX 경우 테스트 DB 연결>> ..

내가, 오류 창을 표시 할 해달라고 캐싱 시트에 오히려 MSGBOX을 수행하고 나머지 코드가 수행 할 수

희망이 편집 .. 조금 명확

감사

Answer 1

이 파일을 사용할 수있는 경우 충분하다 :

If Dir(accessFilePath) = "" Then 
    'file not found! 
else 
    'file found! 
end if