home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / crwdemo / pelogon.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-12-05  |  1.1 KB  |  37 lines
  1. VERSION 2.00
  2. Begin Form PELogOn 
  3.    Caption         =   "SQL Server(PELogOnServer)"
  4.    ClientHeight    =   5820
  5.    ClientLeft      =   1095
  6.    ClientTop       =   1485
  7.    ClientWidth     =   5265
  8.    Height          =   6225
  9.    Left            =   1035
  10.    LinkTopic       =   "Form2"
  11.    ScaleHeight     =   5820
  12.    ScaleWidth      =   5265
  13.    Top             =   1140
  14.    Width           =   5385
  15.    Begin CommandButton Command1 
  16.       Caption         =   "Command1"
  17.       Height          =   495
  18.       Left            =   1440
  19.       TabIndex        =   0
  20.       Top             =   960
  21.       Width           =   1215
  22.    End
  23. Sub Command1_Click ()
  24.     Dim logonInfo As PELogonInfo
  25.     logonInfo.StructSize = Len(logonInfo)
  26.     logonInfo.ServerName = "ODBCSQL" + Chr$(0)
  27.     logonInfo.DatabaseName = "pubs" + Chr$(0)
  28.     logonInfo.UserID = "MarkC" + Chr$(0)
  29.     logonInfo.Password = "markc" + Chr$(0)
  30.     If PELogOnServer("PDSODBC.DLL", logonInfo) = 1 Then
  31.         MsgBox "Logon Succeeded."
  32.     Else
  33.         MsgBox "Logon Failed"
  34.         Exit Sub
  35.     End If
  36. End Sub
  37.