DBLOGIN.BAS

Attribute VB_Name = "basDBLOGIN" 
Option Explicit 
 
'//**************************************************************************** 
'// 
'//  Copyright (c) 1995, Microsoft Corporation 
'// 
'//  File:  DBLOGIN.BAS 
'// 
'//  History: 
'// 
'//      Gary Fuehrer, SEA   5/9/95      Created. 
'// 
'//**************************************************************************** 
 
'Global database variables (For DBLOGIN.FRM use ONLY!) 
Global OpenDBInfo As SQL_CONNECT_PARAMS 
Global OpenDBUserCanceled% 
Global OpenDBConnect& 
 
Function DBLogin%(DbInfo As SQL_CONNECT_PARAMS, hConnect&) 
     
    'Copy values to OpenDB form 
    OpenDBInfo.ds = DbInfo.ds 
    OpenDBInfo.pszServer = DbInfo.pszServer 
    OpenDBInfo.pszUserName = DbInfo.pszUserName 
    OpenDBInfo.pszPasswd = DbInfo.pszPasswd 
    OpenDBInfo.pszDbName = DbInfo.pszDbName 
    OpenDBInfo.pszKey = DbInfo.pszKey 
    OpenDBInfo.pFunc = DbInfo.pFunc 
 
    OpenDBConnect& = hConnect& 
     
    frmDBLogin.Show MODAL 
 
    If Not OpenDBUserCanceled% Then 
        'Set return values 
        DbInfo.ds = OpenDBInfo.ds 
        DbInfo.pszServer = OpenDBInfo.pszServer 
        DbInfo.pszUserName = OpenDBInfo.pszUserName 
        DbInfo.pszPasswd = OpenDBInfo.pszPasswd 
        DbInfo.pszDbName = OpenDBInfo.pszDbName 
        DbInfo.pszKey = OpenDBInfo.pszKey 
        DbInfo.pFunc = OpenDBInfo.pFunc 
 
        hConnect& = OpenDBConnect& 
    End If 
 
    DBLogin% = Not OpenDBUserCanceled% 
End Function 
 
Sub DBLogout(hConnect&) 
    Dim lRet& 
     
    If hConnect& Then 
        'No sense checking this for an error 
        lRet& = SmsDataSourceDisconnect&(hConnect&) 
    End If 
End Sub