sql.bas

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

Attribute VB_Name = "access_sql"
'=============          湖南科技大学机电工程学院 2007.04.20       =========================================================================
'=============   版权所有-谢鹏，未经作者同意不得将该软件用于商业  ===================================================================
'=============             powered by xiepeng                     =========================================================================
Sub Main()
'初始化检测数据库-------------------------------------------------------------------------------------------------------------------------------------------------
On Error GoTo cuowu1
  Dim Check_Access As String
    Check_Access = Dir(App.Path & "\data\std.mdb")   '检测是否存在数据库
     If Check_Access = "" Then  '数据库不存在时建立新的数据库
      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 学号 integer "
          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 If
 '数据库处理完毕，开始建立与数据库的连接================================================================================================================
  Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\std.mdb;Jet oledb:Database password=hnust_xp_37153"
     If Rs.State = adStateOpen Then '表状
       Rs.Close
     End If
 ExecuteSql Rs, "select *from admin"
  If Rs.RecordCount = -1 Then
   Set Rs = Conn.Execute("insert into admin (帐号,密码,呢称,权限,管理称呼)values('admin','admin','管理员','1','最高管理员')")
  End If
login.Show
Exit Sub
cuowu1:
  MsgBox "系统初始化错误，请修复或者重新安装来解决该问题"
End Sub

Public Sub ExecuteSql(Rs As ADODB.Recordset, Sql As String)
   Set Rs = Conn.Execute(Sql)
End Sub