Visual Basic

Private Sub TransferInventory()

    Dim MyFile As String = TreeListTransfer.FocusedNode(0).ToString
    Dim VdbConn1 As String = "Data Source=" & Application.StartupPath & "\Backup\" & MyFile & ".vdb6"
    Try
        'Count the files in the Listbox
        For i As Integer = 0 To LstFiles.Items.Count - 1
            LstFiles.SelectedIndex = i
            FileId = CInt(LstFiles.Text)

            'Add the Contents to the Database
            Using conn As New VistaDBConnection(VdbConn)
                conn.Open()
                StrSql = "INSERT INTO Inventory(ClientId, Category, Product, PartNo, PurchaseDate, Unit, UnitPrice, InStock, OnOrder, Photo)
                      SELECT ClientId, Category, Product, PartNo, PurchaseDate, Unit, UnitPrice, InStock, OnOrder, Photo
                      FROM dbo.Inventory
                      WHERE (InventoryId = @InventoryId)"

                Using cmd As New VistaDBCommand(StrSql, conn)
                    With cmd.Parameters
                        .AddWithValue("@InventoryId", FileId)
                    End With
                    'Execute the Statement

                    cmd.ExecuteNonQuery()
                    'Close the Connection
                    conn.Close()
                End Using
            End Using

        Next
        MessageBox.Show("Transfer successfully completed on the 'Inventory' table", "Transfer Inventory Data", MessageBoxButtons.OK, MessageBoxIcon.Information)
    Catch ex As Exception
        MessageBox.Show(ex.Message, "Transfer Inventory Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        Return
    Finally

    End Try

End Sub

With NewHS
    .Lines = nLijnen
    .PlayDate = Now
    Console.SetCursorPosition(10, 21)
    Console.Write("New highscore. " & nLijnen & " Your name please? ")
    .Name = Console.ReadLine
    .Name = .Name.Trim
    If .Name = "" Then .Name = "[No Name]"
End With

Sub ClearKBBuffer()
    While Console.KeyAvailable
        Console.ReadKey(True)
        Console.ReadKey()
    End While
End Sub

<pre> Try
            

        
           
            Dim cmd As New FbCommand("SELECT A.EVENTDATE AS EVENTDATE ,A.PRIORITY AS PRIORITY ,B.CARDHOLDERID AS CARDHOLDERID," & _
                                              "B.EMAIL AS EMAIL,B.NAME AS NAME,C.WINSOCKIPADDRESS AS WINSOCKIPADDRESS,A.DEVICEID AS DEVICEID, " & _
                                               "D.DESCRIPTION AS DESCRIPTION " & _
                                              " FROM EVENT A , CARDHOLDER B , COMMCHANNEL C, DEVICE D " & _
                                           "WHERE (A.CARDHOLDERID = B.CARDHOLDERID)" & _
                                            " AND (A.COMMCHANNELID = C.COMMCHANNELID) " & _
                                            " AND (A.DEVICEID = D.DEVICEID) " & _
                                          "AND A.CARDHOLDERID IS NOT NULL " & _
                                         "AND B.USERDEFINED9 = 'STAFF' AND B.STATUS='Normal'" & _
                                       " AND A.PRIORITY IS NULL " & _
                                           "AND A.EVENTDATE >= CAST('TODAY' AS DATE) AND A.EVENTMSG = 'Access Granted' " & _
                                              "ORDER BY A.EVENTDATE ASC", IBSSCN)
          
            IBSSDR = cmd.ExecuteReader()

            ListView1.Items.Clear()

            Dim bFlag As Boolean = True
            Do Until Not bFlag
                While IBSSDR.Read

                   

                    Dim touch As DateTime = Convert.ToDateTime(IBSSDR.Item("EVENTDATE"))
                    Dim date1 As String = touch.Date.ToString("dd/MM/yyyy")
                    Dim time1 As String = Format(touch, ("hh:mm:ss tt"))



                    Dim str(5) As String
                    Dim itm As ListViewItem
                    str(0) = IBSSDR.Item("CARDHOLDERID")
                    str(1) = IBSSDR.Item("NAME")
                    str(2) = date1
                    str(3) = time1
                    ' str(4) = IBSSDR.Item("EMAIL")

                    If IBSSDR.Item("EMAIL") Is DBNull.Value Then
                        str(4) = ""
                    Else
                        str(4) = IBSSDR.Item("EMAIL")
                    End If
                  
                    itm = New ListViewItem(str)
                    ListView1.Items.Add(itm)

                End While
                bFlag = IBSSDR.NextResult

            Loop

            IBSSCN.ClearAllPools()
         




            

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

<pre lang="VB">
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Timer1.Enabled = True
        Timer1.Interval = 6000
        ListView1.Update()
        ListView1.Refresh()

end sub