내가 다음 함수와의 연결 열기를 시도하고

Question

ADODB 연결을 열 수 없습니다 :

Public cn1 As New ADODB.Connection 
    'Sub to open connection to database 
    Public Function OpenConnection(ByVal strOpenConnectionString As String, _ 
            Optional ByVal lngOpenConnectionTimeout As Long = 3600) As Long 
     With cn1 
      .CursorLocation = ADODB.CursorLocationEnum.adUseClient 
      .Mode = ADODB.ConnectModeEnum.adModeUnknown 
      .ConnectionTimeout = lngOpenConnectionTimeout 
      .CommandTimeout = lngOpenConnectionTimeout 
      .ConnectionString = strOpenConnectionString 
     End With 
     Try 
      cn1.Open() 
     Catch ex As Exception 
      MsgBox(ex.ToString()) 
     End Try 

     OpenConnection = cn1.State 
    End Function 

내 연결을위한 Windows 인증을 사용하고 있습니다를 내 연결 문자열은 다음과 같습니다

"Integrated Security=SSPI;Initial Catalog=Test;Data Source=PEDRAM-PC\PEDRAM" 

I SQL 연결을 사용할 때 쉽게 연결할 수 있지만 회사 코드이기 때문에 AD db 객체로 처리해야합니다. 다음 예외가 발생합니다.

누구든지 내가 뭘 잘못하고 있다고 말할 수 있습니까?

Answer 1

ADODB에 다른 연결 문자열을 사용해야합니다. 사용해보기

Provider=SQLOLEDB;Initial Catalog=Test;Data Source=PEDRAM-PC\PEDRAM;Trusted_connection=yes;