e1.frm

来自「vb数据库编程资料」· FRM 代码 · 共 190 行

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   2310
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4965
   LinkTopic       =   "Form1"
   ScaleHeight     =   2310
   ScaleWidth      =   4965
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command8 
      Caption         =   "事务处理"
      Height          =   375
      Left            =   1680
      TabIndex        =   7
      Top             =   1440
      Width           =   1335
   End
   Begin VB.CommandButton Command7 
      Caption         =   "建立查询"
      Height          =   375
      Left            =   240
      TabIndex        =   6
      Top             =   1440
      Width           =   1215
   End
   Begin VB.CommandButton Command6 
      Caption         =   "删除索引"
      Height          =   375
      Left            =   3120
      TabIndex        =   5
      Top             =   840
      Width           =   1455
   End
   Begin VB.CommandButton Command5 
      Caption         =   "添加索引"
      Height          =   375
      Left            =   1680
      TabIndex        =   4
      Top             =   840
      Width           =   1335
   End
   Begin VB.CommandButton Command4 
      Caption         =   "删除表"
      Height          =   375
      Left            =   120
      TabIndex        =   3
      Top             =   840
      Width           =   1215
   End
   Begin VB.CommandButton Command3 
      Caption         =   "添加表"
      Height          =   375
      Left            =   1680
      TabIndex        =   2
      Top             =   120
      Width           =   1335
   End
   Begin VB.CommandButton Command2 
      Caption         =   "添加字段"
      Height          =   375
      Left            =   3120
      TabIndex        =   1
      Top             =   120
      Width           =   1335
   End
   Begin VB.CommandButton Command1 
      Caption         =   "创建表"
      Height          =   375
      Left            =   0
      TabIndex        =   0
      Top             =   120
      Width           =   1455
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
  Call MakeBiblio
End Sub

Public Sub MakeBiblio()
    Dim Mydb As Database, myWs As Workspace
    Dim AuTd As TableDef, AuFlds(2) As Field
    Dim AuIdx As Index, IxFlds As Field
    Set myWs = DBEngine.Workspaces(0)
    Set Mydb = myWs.CreateDatabase("D:\Biblio3.mdb", dbLangGeneral, dbVersion30)
    Set AuTd = Mydb.CreateTableDef("Authors")
    Set AuFlds(0) = AuTd.CreateField("Au_ID", dbLong)
    AuFlds(0).Attributes = DbAutoincrefield
    Set AuFlds(1) = AuTd.CreateField("Author", dbText)
    AuFlds(1).Size = 50
    AuTd.Fields.Append AuFlds(0)
    AuTd.Fields.Append AuFlds(1)
    Set AuIdx = AuTd.CreateIndex("Au_ID")
    AuIdx.Primary = True
    AuIdx.Unique = True
    Set IxFlds = AuIdx.CreateField("Au_id")
    AuIdx.Fields.Append IxFlds
    AuTd.Indexes.Append AuIdx
    Mydb.TableDefs.Append AuTd
    MsgBox ("database created")
    Mydb.Close
End Sub

Private Sub Command2_Click()
   Dim db As Database, TD As TableDef, FLD As Field
   Set db = DBEngine.Workspaces(0).OpenDatabase("D:\Biblio3.mdb")
   Set TD = db.TableDefs("Authors")
   Set FLD = TD.CreateField("Address", dbText, 30)
   TD.Fields.Append FLD
   Set FLD = TD.CreateField("Phone", dbText, 25)
   TD.Fields.Append FLD
   db.Close
End Sub

Private Sub Command3_Click()
  Dim db As Database, newTD As TableDef, NewFld As Field
  Set db = OpenDatabase("d:\biblio3.mdb")
  Set newTD = db.CreateTableDef("student")
  Set NewFld = newTD.CreateField("NO", dbInteger)
  newTD.Fields.Append NewFld
  db.TableDefs.Append newTD
  db.Close
End Sub

Private Sub Command4_Click()
  Dim db As Database
  Set db = OpenDatabase("d:\biblio3.mdb")
  db.TableDefs.Delete "student"
  db.Close
End Sub

Private Sub Command5_Click()
  Dim db As Database, TD As TableDef, newIdx As Index, NewFld As Field
  Set db = DBEngine.Workspaces(0).OpenDatabase("D:\Biblio3.mdb")
  Set TD = db.TableDefs("Authors")
  Set newIdx = TD.CreateIndex("Address_Index")
  newIdx.Unique = False
  Set NewFld = newIdx.CreateField("Address")
  newIdx.Fields.Append NewFld
  TD.Indexes.Append newIdx
  db.Close
End Sub

Private Sub Command6_Click()
   Dim db As Database, TD As TableDef
   Set db = OpenDatabase("d:\biblio3.mdb")
   Set TD = db.TableDefs("Authors")
   TD.Indexes.Delete "Address_Index"
   db.Close
End Sub

Private Sub Command7_Click()
  Dim db As Database, qd As QueryDef
  Set db = OpenDatabase("d:\biblio3.mdb")
  Set qd = db.CreateQueryDef("ABCD", "select * from authors")
  db.Close
End Sub

Private Sub Command8_Click()
  Dim dbs As Database
  Dim rst As Recordset
  Dim wsp As Workspace
  Set wsp = DBEngine.Workspaces(0)
  Set dbs = OpenDatabase("D:\example1.mdb")
  Set rst = dbs.OpenRecordset("teacher")
  wsp.BeginTrans
  Do Until rst.EOF
     If rst.Fields("职称") = "1234" Then
       rst.Edit
       rst.Fields("职称") = "讲师"
       rst.Update
     End If
     rst.MoveNext
  Loop
  If MsgBox("保存所作的修改吗?", vbQuestion + vbYesNo) = vbYes Then
      wsp.CommitTrans
  Else
    wsp.Rollback
  End If
  rst.Close
  dbs.Close
  
End Sub