dataenvironment1.dsr

vb编写的教学管理信息系统.请站长查看,谢谢!

VERSION 5.00
Begin {C0E45035-5775-11D0-B388-00A0C9055D8E} DataEnvironment1 
   ClientHeight    =   7380
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   7815
   _ExtentX        =   13785
   _ExtentY        =   13018
   FolderFlags     =   1
   TypeLibGuid     =   "{C66AC080-494C-4084-A978-3109A40404C6}"
   TypeInfoGuid    =   "{3FBFAD93-61D0-451B-8A5B-DB07EAF70302}"
   TypeInfoCookie  =   0
   Version         =   4
   NumConnections  =   1
   BeginProperty Connection1 
      ConnectionName  =   "Connection1"
      ConnDispId      =   1001
      SourceOfData    =   3
      ConnectionSource=   $"DataEnvironment1.dsx":0000
      QuoteChar       =   34
      SeparatorChar   =   46
   EndProperty
   NumRecordsets   =   0
End
Attribute VB_Name = "DataEnvironment1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub DataEnvironment_Initialize()
  Dim strconn As String
  strconn="Provider=Microsoft.Jet.OLEDB.4.0;Password=;Data Source="strconn=strconn & app.path &"\学生信息.mdb " & ";Persist Security Info=True"
  Connection1.ConnectionString = strconn
  
End Sub