asp에서 sqloledb를 이용하여 데이터베이스 접속 테스트
dbhost : sqldb.xinet.kr
dbname : xinet
dbuser : xinet
dbpass : xinet12#$%^
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 |
<%OPTION EXPLICIT%> <h3>SQLOLEDB 데이터베이스에 연결하기<hr noshade></h3> <% Dim objDBConn, strConn 'Connection 객체를 생성 Set objDBConn = Server.CreateObject("ADODB.Connection") '연결 문자열 정의 strConn = "Provider=SQLOLEDB.1;Data Source=sqldb.xinet.kr;Initial Catalog=xinet;User ID=xinet;Password=xinet12#$%^" '데이터베이스에 연결 objDBConn.Open strConn '데이터베이스 연결 확인 If objDBConn.State = 1 Then Response.Write "데이터베이스에 연결되었습니다" Else Response.Write "데이터베이스 연결에 실패하였습니다." End If '데이터베이스 연결 종료 및 객체 소멸 objDBConn.Close Set objDBConn = Nothing %> |