dbconnect.vb

来自「为日本瑞萨苏州分公司做的一个温控系统」· VB 代码 · 共 50 行

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 i, j As Integer
        REM 连接数据库
        Dim ObjConn As OleDbConnection = DBConnect.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)"
            Case 2
                ObjCmd.CommandText = "insert into NO2(当前温度,设定温度,当前时间,设定时间,记录日期)values(@CurtTmp,@Temp,@CurtTime,@Time,@Date)"
            Case 3
                ObjCmd.CommandText = "insert into NO3(当前温度,设定温度,当前时间,设定时间,记录日期)values(@CurtTmp,@Temp,@CurtTime,@Time,@Date)"
            Case 4
                ObjCmd.CommandText = "insert into NO4(当前温度,设定温度,当前时间,设定时间,记录日期)values(@CurtTmp,@Temp,@CurtTime,@Time,@Date)"
        End Select

        REM 插入新数据
        ObjCmd.Parameters.Add("@CurtTmp", OleDbType.Integer)
        ObjCmd.Parameters("@CurtTmp").Value = data(0) * 256 + data(1)   '插入当前温度
        ObjCmd.Parameters.Add("@Temp", OleDbType.Integer)
        ObjCmd.Parameters("@Temp").Value = data(2) * 256 + data(3)      '插入设定温度
        ObjCmd.Parameters.Add("@CurtTime", OleDbType.Integer)
        ObjCmd.Parameters("@CurtTime").Value = data(4) * 256 + data(5)  '插入当前时间
        ObjCmd.Parameters.Add("@Time", OleDbType.Integer)
        ObjCmd.Parameters("@Time").Value = data(6) * 256 + data(7)      '插入设定时间
        ObjCmd.Parameters.Add("@Date", OleDbType.DBTimeStamp)
        ObjCmd.Parameters("@Date").Value = Now.ToLongTimeString    ' #12/2/2002 7:00:00 PM#
        REM 更新数据库
        ObjCmd.ExecuteNonQuery()
        ObjConn.Close()
    End Sub



End Module