Visual Basic

Private Sub Form_Load()
    Dim sDate As Date
    Dim eDate As Date    
               
    sDate = #6/15/2009 6:00:00 PM#
    eDate = #6/15/2009 8:00:00 PM#  
    createDummyBase sDate, eDate, 20, "P1--01"      
  
End Sub

Public Sub createDummyBase(ByVal sDate As Date, ByVal eDate As Date, ByVal period As Integer, ByVal nodeId As String)
    Dim cn As adodb.Connection 'opc
    Dim rs As adodb.Recordset
    Dim sqlstr As String
    Dim dbFilename As String
    Dim orig_path, new_path As String
    Dim RunDate As Date
    Dim delDate As Date
    Dim DataGrid As DataGrid
    Dim rs1 As adodb.Recordset
    dbFilename = "Report_" & Format(Now, "MM_YY") & ".mdb"
    If Dir(App.Path & "\data\Report_" & Format(Now, "MM_YY") & ".mdb") <> "" Then
       Else
        orig_path = App.Path & "\data\Report_mm_yy.mdb"
        new_path = App.Path & "\data\Report_" & Format(Now, "MM_YY") & ".mdb"
        FileCopy orig_path, new_path
    End If
    Set cn = New adodb.Connection
    cn.ConnectionString = BuildConnectionString(dbFilename)
    Set rs = New adodb.Recordset
    cn.Open
    rs.LockType = adLockOptimistic
    Set rs.ActiveConnection = cn
    rs.CursorType = adOpenKeyset
    rs.LockType = adLockOptimistic
    rs.Open "Report", cn
    RunDate = sDate
    Do
            rs.AddNew
            rs!RecDate = RunDate
            rs!nodeId = nodeId
            rs!BatteryVoltage = findLastValue(RunDate, "BatteryVoltage", nodeId)
            rs!i1 = findLastValue(RunDate, "I1", nodeId)
            rs!i2 = findLastValue(RunDate, "I2", nodeId)
            rs!I3 = findLastValue(RunDate, "I3", nodeId)
            rs!MotorRun = findLastValue(RunDate, "MotorRun", nodeId)
            rs!PowerFactor = findLastValue(RunDate, "PowerFactor", nodeId)
           
            rs!WaterLevelOK = findLastValue(RunDate, "WaterLevelOK", nodeId)
     
        RunDate = RunDate + TimeSerial(0, period, 0)       

    Loop Until RunDate > eDate + TimeSerial(0, 0, 1) 
    rs.Update          
    cn.Close
End Sub