첨부 실행 코드는 나눔고딕코딩 폰트를 사용합니다.
유용한 소스 코드가 있으면 icodebroker@naver.com으로 보내주시면 감사합니다.
블로그 자료는 자유롭게 사용하세요.

728x90
반응형

▶ SQL Server 연결 구하기 (윈도우즈 인증) 예제

Dim pConnection As ADODB.Connection

Set pConnection = GetSQLServerConnectionWithWindowsAuthentication("127.0.0.1", "testdb")

 

▶ SQL Server 연결 구하기 (윈도우즈 인증)

Public Function GetSQLServerConnectionWithWindowsAuthentication(strDataSource As String, strInitialCatalog As String) As ADODB.Connection

    Dim pConnection         As ADODB.Connection
    Dim strConnectionString As String

    Set GetSQLServerConnectionWithWindowsAuthentication = Nothing

    On Error GoTo ErrorLabel

    Set pConnection = New ADODB.Connection

    strConnectionString = "Provider=SQLOLEDB.1;Data Source=" + strDataSource + ";Initial Catalog=" + strInitialCatalog + ";Integrated Security=SSPI;Persist Security Info=False"

    pConnection.Open strConnectionString

    On Error GoTo 0

    Set GetSQLServerConnectionWithWindowsAuthentication = pConnection

    Exit Function

ErrorLabel:

End Function
728x90
반응형
Posted by 사용자 icodebroker

댓글을 달아 주세요

◀ 이전페이지 1 ··· 7529 7530 7531 7532 7533 7534 7535 7536 7537 ··· 9646 다음페이지 ▶