Visual Basic

Control            Name
=================================
TextBox            txtID
Button             btnAdd
Button             btnSave
ListBox            lstResults
=================================

'Begin Code:
'============================================================================================================
Option Explicit On
Option Strict On

Public Class Form1

    'Create a new structure to make saving our data easy.
    Private Structure Competitor
        Dim ID As String
        Dim FinishTime As DateTime
    End Structure

    'Create a collection to hold all of the competitors.
    'I like using collections instead of arrays because 
    'they're easy to resize
    Dim myCompetitors As New Collection

    Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click

        'Create a competitor variable to temporarily hold the
        'competitor we are adding.
        Dim currentCompetitor As New Competitor

        'Set their ID to the the text of the textbox
        currentCompetitor.ID = txtID.Text
        'Set the finish time to the current date/time
        currentCompetitor.FinishTime = Now

        'Add the competitor to the collection
        myCompetitors.Add(currentCompetitor)

        'Update the list of competitors/times
        UpdateResults()

        'Reset the textbox and give it focus 
        'so we don't have to click on anything
        'to enter the next competitor.
        txtID.Text = ""
        txtID.Focus()

    End Sub

    Private Sub UpdateResults()
        'This sub updates the listbox with all of 
        'the competitors in the collection.

        'Clear the contents of the listbox
        lstResults.Items.Clear()

        'Loop through the collection, adding the competitors information
        'to the listbox.
        For Each currentCompetitor As Competitor In myCompetitors

            'add the competitor's ID followed by the date and time of their finish.
            'if you want to show just their time, you would 
            'change currentCompetitor.FinishTime.ToString to currentCompetitor.FinishTime.timeOfDay.ToString
            lstResults.Items.Add("ID: " & currentCompetitor.ID.ToString & " Finish Time: " & currentCompetitor.FinishTime.ToString)

        Next

    End Sub

    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        'Create a new SaveFileDialog to ask the user where to save the file.
        'You could also create a String variable if you want to hard-code the 
        'location of the file.
        Dim myFile As New SaveFileDialog
        'Create a DialogResult to tell us which button on the SaveFileDialog they clicked.
        Dim fileResult As DialogResult

        'Set the SaveFileDialog to save the file as a .txt file.
        myFile.Filter = "[*.txt] Text File|*.txt"

        'Show the dialog and set the fileResult to the button they click
        fileResult = myFile.ShowDialog

        'If they clicked on the OK button, then...
        If fileResult = Windows.Forms.DialogResult.OK Then

            '...save the file!
            FileOpen(1, myFile.FileName, OpenMode.Output)

            'loop through the collection, saving a new line to the file
            'as we go:
            For Each currentCompetitor As Competitor In myCompetitors
                PrintLine(1, "ID: " & currentCompetitor.ID.ToString & " Finish Time: " & currentCompetitor.FinishTime.ToString)
            Next

            'We're done saving, so close the file!
            FileClose(1)
        End If

    End Sub
End Class

'===========================================================================================================
'End Code

Dim objUP As Outlook.UserProperty
objUP = objTask.UserProperties.Item("CC Ref")

Gagan.20 wrote:

I don't know how to read image in as a binary blob.

himangshuS wrote:

next time I insert a new record, it shoul generate the primary key as 1

himangshuS wrote:

Am I correct