publicvar.vb

来自「这是一个关于多媒体教学的管理系统」· VB 代码 · 共 45 行

Module PublicVar
    Public Const CONN = "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=C:\ComputerLab.mdb"
    Public ManagerName As String = "Admin"
    Public Password As String = "322167"
    Public Sub AddLog(ByVal Operation As String)
        Dim oleconn As New OleDb.OleDbConnection(CONN) '定义数据库连接
        Dim SQLString As String
        SQLString = "INSERT INTO tbLogManager(Name,OpTime,Operation) " & _
         "VALUES('" & ManagerName & "','" & DateTime.Now & "','" & Operation & "')"
        'SQL查询语句
        Dim cmd As OleDb.OleDbCommand = New OleDb.OleDbCommand(SQLString, oleconn)
        cmd.CommandType = CommandType.Text
        If oleconn.State <> ConnectionState.Open Then
            oleconn.Open()              '打开数据库连接
        End If
        cmd.ExecuteNonQuery()
        If oleconn.State <> ConnectionState.Closed Then
            oleconn.Close()            '关闭数据库连接
        End If
    End Sub
    Public Sub AddULog(ByVal IDOrder As String, ByVal Operation As String)
        Dim SQLString As String
        SQLString = "INSERT INTO tbLogUser(IDOrder,OpTime,Operation) " & _
         "VALUES('" & IDOrder & "','" & DateTime.Now & "','" & Operation & "')"
        'SQL查询语句
        CommandRecord(SQLString) '执行SQL语句
    End Sub
    Public Function CommandRecord(ByVal SQLString As String)
        Try
            Dim oleconn As New OleDb.OleDbConnection(CONN) '定义数据库连接
            Dim cmd As OleDb.OleDbCommand = New OleDb.OleDbCommand(SQLString, oleconn)
            cmd.CommandType = CommandType.Text
            If oleconn.State <> ConnectionState.Open Then
                oleconn.Open()  '打开数据库连接
            End If
            cmd.ExecuteNonQuery()
            If oleconn.State <> ConnectionState.Closed Then
                oleconn.Close()  '关闭数据库连接
            End If
        Catch
            MsgBox(Err.Description)
        End Try
    End Function
End Module