Visual Basic

Private Sub CollectFrames(ByVal bgw As BackgroundWorker, ByVal Handler As ShowProgressDelegate)

    StartMeasuring()
    FramesCollected = My.Settings.MAXFRAMES
    If FramesCollected > Me.DPXList.Count Then FramesCollected = Me.DPXList.Count
    ' create the array class for the frames
    Frames = New clsFrames(FramesCollected)

    Dim ExecutionTime As Integer = 0
    For i As Integer = 0 To Me.FramesCollected - 1
        Frames.Add(Me.DPXList.Item(i))
        If i = 0 Then BGWFileRead.ReportProgress(1)

        Dim thisFrame As clsDPX = Frames.getFrame(i)
        ExecutionTime = GetCurrentMillisecondCount - GetPreviousMillisecondCount
        If Handler IsNot Nothing Then
            Dim ProcessMessage As String = (String.Format("Processing File {0} ({1} of {2})", thisFrame.FileToRead.Name, i.ToString, FramesCollected.ToString))
            Handler.Invoke(CLng(FramesCollected), CLng(i), thisFrame.FileToRead.Name, ProcessMessage, ExecutionTime)
        End If
    Next
End Sub

Private Sub BGWFileRead_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BGWFileRead.DoWork
    CollectFrames(BGWFileRead, AddressOf ShowProgress)
End Sub

o.ResumeLayout(false);
o.PerformLayout();

TheMrProgrammer wrote:

But when i run the same sub again,ie when i update the database, it tries to put the data, but in that data some old data is also present
and there comes a msgbox saying that duplicate entries and much more.

TheMrProgrammer wrote:

one more Q:
the size of the mdb file reaches to 50MB.
is there a way to have the size less?

TheMrProgrammer wrote:

one more Q:
the size of the mdb file reaches to 50MB.
is there a way to have the size less?