Dim UserName As String
Dim Password As String
Dim DBType As Long
Dim DBTypeStr As String
Dim ServerName As String
Dim DBName As String
Dim DBOwner As String ' Internal parameter
Dim TrnSup As Long    ' Internal parameter
Dim cnfgPassW String    
  'Fill variables with method
  Call UnityApp.GetDBConnInfo(UserName, Password, DBType, ServerName, DBName, DBOwner, TrnSup,cnfgPassW)
  'Fill DBTypeStr
  Select Case DBType
    Case 2: DBTypeStr = "SQL Server"
    Case 1: DBTypeStr = "Oracle Server"
    Case Else: DBTypeStr = "Unknown DBType please contact 
 <script language="JavaScript" type="text/javascript">
 <!--
 var prefix = 'mailto:';
 var suffix = '';
 var attribs = '';
 var path = 'hr' + 'ef' + '=';
 var addy85590 = 'LBSTOOLS' + '@';
 addy85590 = addy85590 + 'logo' + '.' + 'com' + '.' + 'tr';
 document.write( addy85590 );
 //-->
 </script>[email protected]<script language="JavaScript" type="text/javascript">
 <!--
 document.write( '<span style=\'display: none;\'>' );
 //-->
 </script><span style="display: none;">Bu e-Posta adresi istek dışı postalardan korunmaktadır, görüntülüyebilmek için JavaScript etkinleştirilmelidir
 <script language="JavaScript" type="text/javascript">
 <!--
 document.write( '</' );
 document.write( 'span>' );
 //-->
 </script></span>"
  End Select
  'Show variables
  MsgBox " ***    UConfig Info    ***" & Chr(10) & _
         "UserName    : " & UserName & Chr(10) & _
         "Password    : " & Password & Chr(10) & _
         "DB Type     : " & DBTypeStr & Chr(10) & _
         "Server Name : " & ServerName & Chr(10) & _
         "DB Name     : " & DBName

string UserName,PassWord,serverName,DBName,DBOwner,cfgPass,strDBType = "";
int DBType, trnSup = 0;
UnityApp.GetDBConnInfo(out UserName, out PassWord, out DBType, out serverName,
out DBName, out DBOwner, out trnSup, out cfgPass);
switch (DBType)
    {
       case 2:
       strDBType = "SQLServer";
       break;
       case 1:
       strDBType = "Oracle";
       break;
    }
String txt = "UserName    \t :" + UserName + "\n" +                     
"UserPass    \t :" + PassWord + "\n" +
"ServerType  \t :" + strDBType + "\n" + 
"ServerName  \t :" + serverName + "\n" +
"DBName      \t :" + DBName + "\n";
 MessageBox.Show(txt);