엑셀 vba로 웹호스팅 DB연동하기 질문드립니다.
-
게시물 수정 , 삭제는 로그인 필요
안녕하세요
새해복 많이받으세요!
웹호스팅 이용중이구요, DB서버는 유닉스소켓 기반의 mySQL입니다.
엑셀 VBA 코딩을 통해서 DB서버에 저장된 데이터를 불ㄹ러오려고 하는데
다음과 같은 코드에서 오류가 납니다.
Public cn As New ADODB.Connection
Public rsa As New ADODB.Recordset
Sub sbCN() '연결
1 sbCNu '열려있으면 먼저 닫아야 함
2 cn.Open "Provider=SQLOLEDB;" _
& "Data Source=11;" _
& "Initial Catalog=11;" _
& "uid=usr1;" _
& "pwd=1111"
End Sub
Sub sbCNu() '연결 닫기(초기화)
3 Set rsa = Nothing: Set cn = Nothing
End Sub
오류메시지는
"[DBNETLIB][ConnetionOpen (Connet()).]SQL Server가 없거나 액세스할 수 없습니다."
입니다.
참조는 제대로 다 했구요
오타는 없는 듯 합니ㄴ다...
그리고 DB서버는 텔넷으로로 접속이 되는 것으로 보아 3306 기본포트도 열려있는것 같은데
왜 접속이 안되는지 모르겠네요
부탁드립니다. 너무 힘듭ㄴ니다...ㅠㅠ
안녕하세요
새해복 많이받으세요!
웹호스팅 이용중이구요, DB서버는 유닉스소켓 기반의 mySQL입니다.
엑셀 VBA 코딩을 통해서 DB서버에 저장된 데이터를 불ㄹ러오려고 하는데
다음과 같은 코드에서 오류가 납니다.
Public cn As New ADODB.Connection
Public rsa As New ADODB.Recordset
Sub sbCN() '연결
1 sbCNu '열려있으면 먼저 닫아야 함
2 cn.Open "Provider=SQLOLEDB;" _
& "Data Source=11;" _
& "Initial Catalog=11;" _
& "uid=usr1;" _
& "pwd=1111"
End Sub
Sub sbCNu() '연결 닫기(초기화)
3 Set rsa = Nothing: Set cn = Nothing
End Sub
오류메시지는
"[DBNETLIB][ConnetionOpen (Connet()).]SQL Server가 없거나 액세스할 수 없습니다."
입니다.
참조는 제대로 다 했구요
오타는 없는 듯 합니ㄴ다...
그리고 DB서버는 텔넷으로로 접속이 되는 것으로 보아 3306 기본포트도 열려있는것 같은데
왜 접속이 안되는지 모르겠네요
부탁드립니다. 너무 힘듭ㄴ니다...ㅠㅠ
#엑셀 vba로 배우는 주식 자동매매 #엑셀 vba로 할 수 있는 것 #엑셀 vba로 피벗테이블