access_create.bas

我自己写的。缓和 我自己写的。缓和 我自己写的。缓和 我自己写的。缓和

Attribute VB_Name = "access_create"
'=============          湖南科技大学机电工程学院 2007.04.20       =========================================================================
'=============   版权所有-谢鹏，未经作者同意不得将该软件用于商业  ===================================================================
'=============             powered by xiepeng                     =========================================================================


'创建数据库
Public Sub create_shujuku()
  Dim db1 As Database
      Set db1 = CreateDatabase(App.Path & "\data\std.mdb", dbLangGeneral & ";pwd=hnust_xp_37153", dbEncrypt) '创建密码数据库，数据库地址\data\
          db1.Close
      Dim db As Database
      Set db = OpenDatabase(App.Path & "\data\std.mdb", False, False, ";pwd=hnust_xp_37153")
          db.Execute "create table 学生信息"  '创建名字为学生信息的数据表
          db.Execute "alter table 学生信息 add column 姓名 char(5) " '该语法为：在学生信息表内增加姓名字段
          db.Execute "alter table 学生信息 add column 学号 char(10) "
          db.Execute "alter table 学生信息 add column 政治面貌 char(5) "
          db.Execute "alter table 学生信息 add column 计算机等级 char(5) "
          db.Execute "alter table 学生信息 add column 英语等级 char(5) "
          db.Execute "alter table 学生信息 add column 备注 char "
          db.Execute "create table admin"
          db.Execute "alter table admin add column 帐号 char(20)"
          db.Execute "alter table admin add column 密码 char(20)"
          db.Execute "alter table admin add column 权限 char(20)"
          db.Execute "alter table admin add column 呢称 char(20)"
          db.Execute "alter table admin add column 管理称呼 char(20)"
          db.Close
End Sub