dbconnect.vb

来自「项目是为日本瑞萨工作所做的BAKE炉温控系统 整个文件夹包括设计文档」· VB 代码 · 共 62 行

Imports System.Data.OleDb
Module DBConnect
    REM 数据库的连接
    Public Function GetConn() As OleDbConnection
        Dim connStr As String
        connStr = " Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & System.IO.Directory.GetParent(Application.StartupPath).FullName & "\DataBase\TC.mdb;Mode=Share Deny None;Extended Properties='';Persist Security Info=False"
        Dim objConn As New OleDbConnection(connStr)
        GetConn = objConn
    End Function

    Public Sub InDB(ByVal MCUno As Byte, ByVal data() As Byte)
        Dim tmp1, tmp2 As Integer

        REM 连接数据库
        Dim ObjConn As OleDbConnection = GetConn()
        If ObjConn.State = ConnectionState.Closed Then
            ObjConn.Open()
        End If
        Dim ObjCmd As New OleDbCommand
        ObjCmd.Connection = ObjConn

        Select Case MCUno
            Case 1
                ObjCmd.CommandText = "insert into NO1(当前温度,设定温度,当前时间,设定时间,记录日期,是否异常)values(@CurtTmp,@Temp,@CurtTime,@Time,@Date,@State)"
            Case 2
                ObjCmd.CommandText = "insert into NO2(当前温度,设定温度,当前时间,设定时间,记录日期,是否异常)values(@CurtTmp,@Temp,@CurtTime,@Time,@Date,@State)"
            Case 3
                ObjCmd.CommandText = "insert into NO3(当前温度,设定温度,当前时间,设定时间,记录日期,是否异常)values(@CurtTmp,@Temp,@CurtTime,@Time,@Date,@State)"
            Case 4
                ObjCmd.CommandText = "insert into NO4(当前温度,设定温度,当前时间,设定时间,记录日期,是否异常)values(@CurtTmp,@Temp,@CurtTime,@Time,@Date,@State)"
        End Select

        REM 插入新数据
        tmp1 = data(1) * 256 + data(2)
        tmp2 = data(3) * 256 + data(4)
        ObjCmd.Parameters.Add("@CurtTmp", OleDbType.Integer)
        ObjCmd.Parameters("@CurtTmp").Value = tmp1   '插入当前温度
        ObjCmd.Parameters.Add("@Temp", OleDbType.Integer)
        ObjCmd.Parameters("@Temp").Value = tmp2      '插入设定温度
        ObjCmd.Parameters.Add("@CurtTime", OleDbType.Integer)
        ObjCmd.Parameters("@CurtTime").Value = data(5) * 256 + data(6)  '插入当前时间
        ObjCmd.Parameters.Add("@Time", OleDbType.Integer)
        ObjCmd.Parameters("@Time").Value = data(7) * 256 + data(8)      '插入设定时间
        ObjCmd.Parameters.Add("@Date", OleDbType.DBTimeStamp)
        ObjCmd.Parameters("@Date").Value = Now.ToLongTimeString    ' #12/2/2002 7:00:00 PM#
        ObjCmd.Parameters.Add("@State", OleDbType.LongVarChar)
        If tmp1 > (tmp2 + 5) Then               '允许温度上下波动 5 度
            'If (data(0) * 256 + data(1) + 5) > (data(2) * 256 + data(3)) Then
            ObjCmd.Parameters("@State").Value = "是"
        Else
            ObjCmd.Parameters("@State").Value = "否"
        End If

        REM 更新数据库
        ObjCmd.ExecuteNonQuery()
        ObjConn.Close()
    End Sub



End Module