module1.bas

读取数据库数据并显示在LED屏上。串口编程

Attribute VB_Name = "Module1"
Public cnn As New ADODB.Connection
Public qy1 As New ADODB.Recordset
Public qy2 As New ADODB.Recordset
Public cmd(17) As Integer   '存放手动置数标志
Public er(17) As Integer    '存放数据错误标志
Public n As Integer         '存放定时执行计数
Public data(16, 4) As String   '存放数据处理结果

Sub Main()
    tkOpenAccessDB App.Path & "\data.mdb"
    If qy1.State = adStateOpen Then '表状态
        qy1.Close
    End If
    qy1.Open "select * from 1_1yc where datatime=#2008-04-1 12:35:29#", cnn, adOpenStatic, adLockReadOnly, adCmdText
    If qy1.RecordCount = 0 Then
        Set qy1 = cnn.Execute("insert into 1_1yc(datatime) values('2008-04-1 12:35:29')")
    End If
    If qy1.State = adStateOpen Then '表状态
        qy1.Close
    End If
    n = 0
    For i = 1 To 17
        cmd(i) = 0
        er(17) = 0
    Next i
    Form1.Show
End Sub
Public Sub tkOpenAccessDB( _
                           tkFileName As String, _
                           Optional tkUserID As String, _
                           Optional tkPassword As String _
                           )

    On Error GoTo tkFinish

    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
             "Data Source=" & tkFileName & ";" & _
             "Mode=Share Deny None;" & _
             "Extended Properties=;" & _
             "Jet OLEDB:System database=;" & _
             "Jet OLEDB:Registry Path=;" & _
             "Jet OLEDB:Database Password=;" & _
             "Jet OLEDB:Engine Type=5;" & _
             "Jet OLEDB:Database Locking Mode=1;" & _
             "Jet OLEDB:Global Partial Bulk Ops=2;" & _
             "Jet OLEDB:Global Bulk Transactions=1;" & _
             "Jet OLEDB:New Database Password=;" & _
             "Jet OLEDB:Create System Database=False;" & _
             "Jet OLEDB:Encrypt Database=False;" & _
             "Jet OLEDB:Don't Copy Locale on Compact=False;" & _
             "Jet OLEDB:Compact Without Replica Repair=False;" & _
             "Jet OLEDB:SFP=False;" & _
             tkUserID, _
             tkPassword

    Exit Sub
tkFinish:
    MsgBox Err.Description
    End

End Sub