Excel VBA - Teradataへの接続文字列が機能しない

Question

Excel VBAでTeradataに接続し、購入注文の詳細を取得するツールを作成しました。私のラップトップでは正しく動作しますが、他の人とツールを共有すると、以下の接続文字列は接続されません。ラップトップでのトラブルシューティング中に、ユーザーがSQLアシスタントを使用してTeradataに接続できることがわかりました。しかし、ExcelのVBA文字列はまったく接続しません。常に返す

機能が実行され、CN.state以下

「0」

Function Connect(Server As String, Database As String) As Boolean 

    Set CN = New ADODB.Connection 
    On Error Resume Next 
    Dim UserId As String 
    Dim Password As String 

    Call CenterLoginWindow 

    'Input UserID and Password here 
    UserId = Login.Username 
    Password = Login.Password 

    With CN 
     ' Create connecting string 
     .ConnectionString = "Data Source=" & Server & ";" & _ 
      "Database=" & Database & ";" & _ 
      "Persist Security Info=True;Session Mode=ANSI;" & _ 
      "Uid=" & UserId & ";" & _ 
      "Pwd=" & Password & "" 
     .CommandTimeout = 0 
     ' Open connection 
     .Open 
    End With 
    ' Check connection state 
    If CN.State = 0 Then 
     Connect = False 
    Else 
     Connect = True 
    End If 

End Function 

Answer 1

私はあなたのためにいくつかの質問を持っている： 1.異なる接続文字列を使用して自分のを必要とするいくつかの他のドメイン内のユーザーはありますか？ 2.接続しようとすると、どのようなエラーが表示されますか？上記のコードではエラー処理が表示されません。 3.非常に短いタイムアウトが指定されています。あなたはそれを長くしようとしましたか？ TD認証メカを使用して