Visual Basic

Create table idGen <br />
(GenID int not null auto_increment,<br />
Abbrev varchar(3),<br />
Year char(2))

Insert into idGen (Abbrev, Year) values ('AA', '05')<br />
select Abbrev + Year + ltrim(str(GenID))<br />
where GenID = @@identity

Public Function GenerateID() As String<br />
            Dim length As Integer<br />
            Dim guidResult As String<br />
            length = 10<br />
<br />
            guidResult = System.Guid.NewGuid().ToString()<br />
            'removes the hyphen<br />
            guidResult = guidResult.Replace("-", String.Empty)<br />
<br />
            Return guidResult.Substring(0, length)<br />
<br />
        End Function

Private Declare Auto Function SHFormatDrive Lib "shell32.dll" ( _
    ByVal hWnd As IntPtr, ByVal drive As Integer, _
    ByVal fmtId As Integer, ByVal options As Integer ) As Integer
 
...
 
Dim retVal As Integer
retVal = SHFormatDrive( Me.Handle, 0, 0, 1 )

Try
    xmlobjReader = New XmlTextReader(_XMLPath)
    xmlobjReader.WhitespaceHandling = WhitespaceHandling.None
    xmlobjReader.MoveToContent()

    Dim isHostName As Boolean

    Do While xmlobjReader.Read

        Select Case xmlobjReader.NodeType

            Case XmlNodeType.Element
                isHostName = (rdrXML.Name.ToUpper = "HOSTNAME")

            Case (XmlNodeType.Text And isHostName)
                itemValue = xmlobjReader.Value

        End Select

    Loop

Catch ex As Exception
    itemValue = ""

Finally
    If Not xmlobjReader Is Nothing Then
        xmlobjReader.Close()
    End If

End Try

Public Sub New(ByVal inXMLFilePath As String)
   _XMLPath = inXMLFilePath

   _dsRegistrationValues = New DataSet(_DATASET_TABLE_NAME)
   _dsRegistrationValues.ReadXml(_XMLPath)
End Sub
<br><br>
Public Function ReadItem(ByVal inItemName As String) As String
   Dim returnSettingValue As String

   returnSettingValue = _dsRegistrationValues.Tables(0).Rows(0).Item(inItemName)

   Return returnSettingValue
End Function