Visual Basic

Paramu1973 wrote:

Dim Save_3 As String = "Delete from gnlmst where gnl_code is null"

Dim Save_3 As String = "Delete from gnlmst where @gnl_code is NULL"<br />
DAD.DeleteCommand = New SqlCommand(Save_3, con)<br />
<br />
With DAD.DeleteCommand.Parameters<br />
 Add("@gnl_code", SqlDbType.VarChar, 50).Value = "gnl_code"<br />
End With

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();