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  '数据库不存在时建立新的数据库
       Call create_shujuku
     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