home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / Visual_Bas550322132002.psc / DBenviroment.Dsr < prev   
Encoding:
Visual Basic Active Designer file  |  2002-02-07  |  3.8 KB  |  113 lines
  1. VERSION 5.00
  2. Begin {C0E45035-5775-11D0-B388-00A0C9055D8E} DBenviroment 
  3.    ClientHeight    =   5880
  4.    ClientLeft      =   0
  5.    ClientTop       =   0
  6.    ClientWidth     =   7770
  7.    _ExtentX        =   13705
  8.    _ExtentY        =   10372
  9.    FolderFlags     =   1
  10.    TypeLibGuid     =   "{FFF0996F-1B9E-11D6-94CA-00E0291DAC4E}"
  11.    TypeInfoGuid    =   "{FFF09970-1B9E-11D6-94CA-00E0291DAC4E}"
  12.    TypeInfoCookie  =   0
  13.    Version         =   4
  14.    NumConnections  =   1
  15.    BeginProperty Connection1 
  16.       ConnectionName  =   "DBConnection"
  17.       ConnDispId      =   1001
  18.       SourceOfData    =   3
  19.       ConnectionSource=   "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\WINNT\Profiles\Gordon\Desktop\vbcode\Users.mdb;Persist Security Info=False"
  20.       Expanded        =   -1  'True
  21.       QuoteChar       =   96
  22.       SeparatorChar   =   46
  23.    EndProperty
  24.    NumRecordsets   =   2
  25.    BeginProperty Recordset1 
  26.       CommandName     =   "tblUsers"
  27.       CommDispId      =   1002
  28.       RsDispId        =   1006
  29.       CommandText     =   "Users"
  30.       ActiveConnectionName=   "DBConnection"
  31.       CommandType     =   2
  32.       dbObjectType    =   1
  33.       IsRSReturning   =   -1  'True
  34.       NumFields       =   3
  35.       BeginProperty Field1 
  36.          Precision       =   10
  37.          Size            =   4
  38.          Scale           =   0
  39.          Type            =   3
  40.          Name            =   "UserCode"
  41.          Caption         =   "UserCode"
  42.       EndProperty
  43.       BeginProperty Field2 
  44.          Precision       =   0
  45.          Size            =   50
  46.          Scale           =   0
  47.          Type            =   202
  48.          Name            =   "UserName"
  49.          Caption         =   "UserName"
  50.       EndProperty
  51.       BeginProperty Field3 
  52.          Precision       =   0
  53.          Size            =   50
  54.          Scale           =   0
  55.          Type            =   202
  56.          Name            =   "Profile"
  57.          Caption         =   "Profile"
  58.       EndProperty
  59.       NumGroups       =   0
  60.       ParamCount      =   0
  61.       RelationCount   =   0
  62.       AggregateCount  =   0
  63.    EndProperty
  64.    BeginProperty Recordset2 
  65.       CommandName     =   "tblProfile"
  66.       CommDispId      =   -1
  67.       RsDispId        =   -1
  68.       CommandText     =   "Profile"
  69.       ActiveConnectionName=   "DBConnection"
  70.       CommandType     =   2
  71.       dbObjectType    =   1
  72.       RelateToParent  =   -1  'True
  73.       ParentCommandName=   "tblUsers"
  74.       IsRSReturning   =   -1  'True
  75.       NumFields       =   2
  76.       BeginProperty Field1 
  77.          Precision       =   0
  78.          Size            =   50
  79.          Scale           =   0
  80.          Type            =   202
  81.          Name            =   "Profile"
  82.          Caption         =   "Profile"
  83.       EndProperty
  84.       BeginProperty Field2 
  85.          Precision       =   0
  86.          Size            =   50
  87.          Scale           =   0
  88.          Type            =   202
  89.          Name            =   "ProfileName"
  90.          Caption         =   "ProfileName"
  91.       EndProperty
  92.       NumGroups       =   0
  93.       ParamCount      =   0
  94.       RelationCount   =   1
  95.       BeginProperty Relation1 
  96.          ParentField     =   "Profile"
  97.          ChildField      =   "Profile"
  98.          ParentType      =   0
  99.          ChildType       =   0
  100.       EndProperty
  101.       AggregateCount  =   0
  102.    EndProperty
  103. End
  104. Attribute VB_Name = "DBenviroment"
  105. Attribute VB_GlobalNameSpace = False
  106. Attribute VB_Creatable = True
  107. Attribute VB_PredeclaredId = True
  108. Attribute VB_Exposed = False
  109. Private Sub DataEnvironment_Initialize()
  110.     'To set the database location to the same folder as the application
  111.     DBConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Users.mdb;Persist Security Info=False"
  112. End Sub
  113.