新建文本文档.txt

音像制品管理系统共分为四个功能模块

Dim str As String
str = "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "\db1.mdb"
With datPrimaryRS
      .ConnectionString = str
    If Combo1.Text = "教室_座位" Then
      .RecordSource = "select * from 教室_座位 "
       change = False
       frmedit.Caption = "教室_座位"
      ElseIf Combo1.Text = "班级_人数" Then
      .RecordSource = "select * from 班级_人数 "
       change = True
       frmedit.Caption = "班级_人数"
    End If
End With
datPrimaryRS.Refresh

End Sub

Private Sub DBCombclass_Change()
Dim thedb As Database
Dim thers As Recordset
Dim query As String
query = "select * from 班级_人数 where 'class=dbcombclass.text'"
Set thedb = DBEngine.Workspaces(0).OpenDatabase(Data1.DatabaseName)
Set thers = thedb.OpenRecordset(query, 2)
Do Until thers.EOF
If thers!Class = DBCombclass Then
 Set Data1.Recordset = thers
 sum.Text = thers!studentsum
 Exit Do
End If
thers.MoveNext
Loop
End Sub