Visual Basic

Dim QueryText As String<br />
dim fieldName as string ="Field1"<br />
Dim command As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand()<br />
QueryText ="delete from table where @field is NULL" <br />
command.CommandText = QueryText<br />
command.Parameters.Add("@field", SqlDbType.Varchar, fieldName.length).Value = fieldName 

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?