Visual Basic

Dim sql1 As String = "Select (LastName + ', ' + FirstName) As Name, emplid FROM Users ORDER BY LastName"

Dim strCommandText As String = "INSERT INTO Orders(OrderDate, DeliverDate, DeliverLocation, Name, Special, Comments, Rate, EMPLID, LoggedIP)" & "VALUES('" & strOrderDate & "','" & strDeliverDate & "','" & strDeliverLocation & "','" & strName & "','" & strSpecial & "'" & ",'" & strComments & "','" & strRate & "','" & strEMPLID & "','" & strLoggedHost & "')"

Private Sub lbName_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbName.SelectedIndexChanged
        Dim i As Integer
        editName.Text = Nothing
        For i = 0 To lbName.SelectedItems.Count - 1
            arrList2.Add(lbName.SelectedItems(i))
            With arrList2
                .ToArray()
            End With
            editName.Text = editName.Text & lbName.SelectedItems(i) & vbCrLf
        Next
        i = Nothing
    End Sub

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

        Dim i As Integer
        Dim r As String
        Dim x As String

        editComments.Clear()
        strComments = editComments.Text

        Try
            SqlConnection1.Close()
            cnn1.Close()
            SqlConnection1.Open()

            ' Create a name array from editName textbox; Used to create a new record for each name

            For i = 0 To arrList2.Count - 1
                strName = arrList2.Item(i)
                x = arrList2.Item(i)

                Dim strCommandText As String = "INSERT INTO Orders(OrderDate, DeliverDate, DeliverLocation, Name, Special, Comments, Rate, EMPLID, LoggedIP)" & "VALUES('" & strOrderDate & "','" & strDeliverDate & "','" & strDeliverLocation & "','" & strName & "','" & strSpecial & "'" & ",'" & strComments & "','" & strRate & "','" & strEMPLID & "','" & strLoggedHost & "')"

                Dim cmd As New SqlClient.SqlCommand(strCommandText, SqlConnection1)
                cmd.ExecuteNonQuery()
            Next
        Catch eEndEdit As System.Exception
            System.Windows.Forms.MessageBox.Show(eEndEdit.Message)
        Finally
            If strRate = strRateBreakfast Then
                MessageBox.Show("Galley orders for BREAKFAST on: " & Now() & " have been successfully entered!", MessageBoxIcon.Information)
            ElseIf strRate = strRateDinner Then
                MessageBox.Show("Galley orders for DINNER on: " & Now() & " have been successfully entered!", MessageBoxIcon.Information)
            End If
            SqlConnection1.Close()
            cmd = Nothing
        End Try
        Close()
    End Sub

<Serializable(), Xml.Serialization.XmlInclude(GetType(Photos))> _

<br />
<br />
'Class Definition<br />
<br />
<Serializable() , Xml.Serialization.XmlInclude(GetType(Photos))> _<br />
Public Class SitePhotos<br />
    Private _Outdoordesc As String<br />
    Public Property Outdoordesc() As String<br />
        Get<br />
            Return _Outdoordesc<br />
        End Get<br />
        Set(ByVal value As String)<br />
            _Outdoordesc = value<br />
        End Set<br />
    End Property<br />
<br />
    Private _ShelterEntrance As String<br />
    Public Property ShelterEntrance() As String<br />
        Get<br />
            Return _ShelterEntrance<br />
        End Get<br />
        Set(ByVal value As String)<br />
            _ShelterEntrance = value<br />
        End Set<br />
    End Property<br />
    <br />
'Arraylist to store photo descriptions<br />
<br />
    Public PhotoList As New System.Collections.ArrayList<br />
<br />
    Public Sub AddPhoto(ByVal photoObj As Photos)<br />
        PhotoList.Add(photoObj)<br />
    End Sub<br />
<br />
    Public Sub RemovePhoto(ByVal range As String)<br />
        Dim _pht As Photos<br />
        'Dim i As Integer<br />
<br />
<br />
        For Each _pht In _PhotoList<br />
<br />
            If _pht.posRange = range Then<br />
                PhotoList.RemoveAt(PhotoList.IndexOf(_pht))<br />
            End If<br />
<br />
        Next<br />
<br />
    End Sub<br />
<br />
   <br />
End Class<br />
<br />
'Structure of each photo description<br />
Public Structure Photos<br />
    Public Pos As Integer<br />
    Public Desc As String<br />
    Public posRange As String<br />
End Structure<br />
<br />
<br />
<br />
'Code for serialization<br />
<br />
        Dim extraTypes(0) As Type<br />
<br />
        extraTypes(0) = GetType(SitePhotos)<br />
<br />
        Dim xSerializer As XmlSerializer = New<br />
XmlSerializer(GetType(GeneralSiteInfo.SitePhotos), extraTypes)<br />
       <br />
        Dim xWriter As StringWriter = New StringWriter()<br />
      <br />
        ' Since the serialization can exception, we'll encase it in a try/catch<br />
        ' mechanism, so we can report the error properly<br />
<br />
        Try<br />
            xSerializer.Serialize(xWriter, objPhotos)<br />
<br />
  'xmlSitePhotos is a hidden control to which i can store value. <br />
<br />
            _xmlSitePhotos.Value = xWriter.ToString()<br />
<br />
        Catch ex As Exception<br />
<br />
            MsgBox(ex.ToString())<br />
            'MsgBox("Could not serialize Site Photos", MsgBoxStyle.Critical, "Error<br />
Saving Site Photos")<br />
<br />
        End Try<br />
<br />
        xWriter.Close()<br />
<br />
<br />

Dim subStr As Integer<br />
   If Me.ComboBox2.Text.Contains("jan") Then<br />
       subStr = Me.ComboBox2.Text.Substring(Me.ComboBox2.Text.IndexOf("n") + 1, 3)<br />
       Me.TextBox1.Text = DateTime.DaysInMonth("20" & subStr, 1)<br />
   ElseIf Me.ComboBox2.Text.Contains("feb") Then<br />
       subStr = Me.ComboBox2.Text.Substring(Me.ComboBox2.Text.IndexOf("b") + 1, 3) '1. note the change in the letter within the index of<br />
       Me.TextBox1.Text = DateTime.DaysInMonth("20" & subStr, 2) '2. note the change in the second part of this daysinmonth.<br />
   End If

'Date to test
Dim stringDate As String = "sep 07"
'Date object
Dim parsedDate As Date

'If our string is valid date show days in month
If Date.TryParse(stringDate, parsedDate) Then
    MsgBox(Date.DaysInMonth(parsedDate.Year, parsedDate.Month))
End If

Private Function Days(ByVal text As String) As Integer
    Dim split As String() = text.Split

    'An error could occur so catch it and return -1
    Try
        Dim month As Integer = [Enum].Parse(GetType(Month), split(0).ToUpper)
        Dim year As Integer = CInt("20" & split(1))
        Return Date.DaysInMonth(year, month)
    Catch ex As Exception
        Return -1
    End Try
End Function

Private Enum Month
    JAN = 1
    FEB
    MAR
    APR
    MAY
    JUN
    JUL
    AUG
    SEPT
    OCT
    NOV
    DEC
End Enum