Dim cmd1 As New ADODB.Command
Dim rst1 As New ADODB.Recordset '定義壹個記錄集
Public Sub Open_Database() '自定義過程 連接數據庫
Dim sFileName As String '聲明存放數據庫路徑的變量
sFileName = App.Path & "\" & "Water_Data.mdb" '使用app.path組合得到當前數據庫的絕對路徑
cnn1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& " Data Source= " & sFileName & ";Persist Security Info=False" '數據庫連接串
cnn1.Open '連接數據庫
End Sub
Public Sub Close_Database() '關閉數據庫自定義過程
cnn1.Close ' 關閉數據庫
End Sub
Public Function Wait(ByVal TimeToWait As Long) 'Time In seconds
Dim EndTime As Long
EndTime = GetTickCount + TimeToWait * 1000 '* 1000 Cause u give seconds and GetTickCount uses Milliseconds
Do Until GetTickCount > EndTime
DoEvents
Loop
End Function