SAapi Object : TestConnection Method |
Visual Basic |
---|
Public Function TestConnection( _ ByVal DomainName As String, _ ByVal ProjectName As String, _ ByVal ConnectString As String _ ) As String |
Private Sub TestConnection() 'The following Visual Basic example tests a project�s ' current connection string. Dim sDomainName As String Dim sProjectName As String Dim sReply As String On Error GoTo err sDomainName = "MyDomain" sProjectName = "MyProject" sReply = m_SAClient.TestConnection _ (sDomainName, sProjectName, "") MsgBox sReply Exit Sub err: MsgBox "Program failed:" + err.Description End Sub