Visual Basic

'EnumSerialPorts.bas - 1/26/2005 - John R. Shaw
Option Explicit

Private Const RegDisposition_OpenExisting As Long = &H1  'open key only if exists
Private Const CM_REGISTRY_HARDWARE As Long = &H0
Private Const KEY_QUERY_VALUE = &H1

Type Guid
    Data1 As Long           'unsigned long  Data1;
    Data2 As Integer        'unsigned short Data2;
    Data3 As Integer        'unsigned short Data3;
    Data4(0 To 7) As Byte   'unsigned char  Data4[ 8 ];
End Type

Type SP_DEVINFO_DATA
    cbSize As Long      'DWORD cbSize;
    ClassGuid As Guid   'GUID  ClassGuid;
    DevInst As Long     'DWORD DevInst;// DEVINST handle
    Reserved As Long    'DWORD Reserved;
End Type

'Constants copied from API Viewer
Public Const INVALID_HANDLE_VALUE = -1
Public Const ERROR_SUCCESS = 0&

'Registry access function copied from API Viewer
Private Declare Function RegCloseKey Lib "advapi32.dll" ( _
    ByVal hKey As Long) As Long
    
Private Declare Function RegQueryValueEx Lib "advapi32.dll" _
Alias "RegQueryValueExA" ( _
    ByVal hKey As Long, _
    ByVal lpValueName As String, _
    ByVal lpReserved As Long, _
    lpType As Long, _
    lpData As Any, _
    lpcbData As Long) As Long
    ' Note that if you declare the lpData parameter as String, _
    ' you must pass it By Value.

' Flags controlling what is included in the device information set built
' by SetupDiGetClassDevs
Public Const DIGCF_DEFAULT As Long = &H1  ' only valid with DIGCF_DEVICEINTERFACE
Public Const DIGCF_PRESENT As Long = &H2
Public Const DIGCF_ALLCLASSES As Long = &H4
Public Const DIGCF_PROFILE As Long = &H8
Public Const DIGCF_DEVICEINTERFACE As Long = &H10

'Setup API functions copied from "ApiViewer 2004" from ActiveVB.de
Private Declare Function SetupDiClassGuidsFromName Lib "setupapi.dll" _
Alias "SetupDiClassGuidsFromNameA" ( _
    ByVal ClassName As String, _
    ByVal ClassGuidList As Long, _
    ByVal ClassGuidListSize As Long, _
    ByRef RequiredSize As Long) As Long

Private Declare Function SetupDiDestroyDeviceInfoList Lib "setupapi.dll" ( _
    ByRef DeviceInfoSet As Long) As Long

Private Declare Function SetupDiEnumDeviceInfo Lib "setupapi.dll" ( _
    ByRef DeviceInfoSet As Long, _
    ByVal MemberIndex As Long, _
    ByRef DeviceInfoData As SP_DEVINFO_DATA) As Long

Private Declare Function SetupDiGetClassDevs Lib "setupapi.dll" _
Alias "SetupDiGetClassDevsA" ( _
    ByRef ClassGuid As Guid, _
    ByVal Enumerator As String, _
    ByVal hwndParent As Long, _
    ByVal Flags As Long) As Long
    
'Configuration management API functions entered by hand
Private Declare Function OpenDevNodeKey Lib "cfgmgr32.dll" _
Alias "CM_Open_DevNode_Key" ( _
    ByVal dnDevNode As Long, _
    ByVal samDesired As Long, _
    ByVal hardwareProfile As Long, _
    ByVal regDisposition As Long, _
    phkDevice As Long, _
    ByVal Flags As Long) As Long

'Serial port enumeration function
Public Function EnumSerialPorts() As String
    Dim bRes As Byte
    'Get ready to enumerate serialports
    Dim RequiredSize As Long: RequiredSize = 1
    Dim ClassGuid As Guid
    bRes = SetupDiClassGuidsFromName("Ports", VarPtr(ClassGuid), 1, RequiredSize)
    If bRes = 0 Or RequiredSize <> 1 Then
        Exit Function 'I am assuming only 1 class exists for ports
    End If
    
    Debug.Print "Ports Guid = {" + _
        Format(Hex(ClassGuid.Data1), "00000000") + "-" + _
        Format(Hex(ClassGuid.Data2), , "00000000") + "-" + _
        Format(Hex(ClassGuid.Data3), , "00000000") + "-" + _
        Format(Hex(ClassGuid.Data4(0)), "00") + _
        Format(Hex(ClassGuid.Data4(1)), "00") + "-" + _
        Format(Hex(ClassGuid.Data4(2)), "00") + _
        Format(Hex(ClassGuid.Data4(3)), "00") + _
        Format(Hex(ClassGuid.Data4(4)), "00") + _
        Format(Hex(ClassGuid.Data4(5)), "00") + _
        Format(Hex(ClassGuid.Data4(6)), "00") + _
        Format(Hex(ClassGuid.Data4(7)), "00") + _
        "}"

    Dim hDevice As Long
    hDevice = SetupDiGetClassDevs(ClassGuid, 0, 0, DIGCF_PRESENT)
    If hDevice = INVALID_HANDLE_VALUE Then Exit Function
    
    Dim DeviceInfoData As SP_DEVINFO_DATA
    DeviceInfoData.cbSize = Len(DeviceInfoData)
    
    Dim lRes As Long
    Dim hKeyDevice As Long
    Dim cbData As Long: cbData = 16
    Dim devName As String * 16
    Dim MemberIndex As Long
    For MemberIndex = 0 To 255 'This is more than resonable limit
        bRes = SetupDiEnumDeviceInfo(hDevice, MemberIndex, DeviceInfoData)
        If Not bRes Then
            SetupDiDestroyDeviceInfoList (hDevice)
            Exit Function
        End If
        
        lRes = OpenDevNodeKey(DeviceInfoData.DevInst, KEY_QUERY_VALUE, 0, _
            RegDisposition_OpenExisting, hKeyDevice, CM_REGISTRY_HARDWARE)
        If lRes <> ERROR_SUCCESS Then
            SetupDiDestroyDeviceInfoList (hDevice)
            Exit Function
        End If
        
        lRes = RegQueryValueEx(hKeyDevice, "portname", 0&, 0&, devName, cbData)
        RegCloseKey (hKeyDevice)
        If lRes <> ERROR_SUCCESS Then
            SetupDiDestroyDeviceInfoList (hDevice)
            Exit Function
        End If
        
        If Mid(devName, 1, 3) = "com" Then
            If Int(Val(Mid(devName, 4))) > 0 Then
                If EnumSerialPorts <> Empty Then
                    EnumSerialPorts = EnumSerialPorts + " "
                End If
                EnumSerialPorts = EnumSerialPorts + devName
            End If
        End If
    Next MemberIndex
    
End Function

<Guid("E08554F2-3571-45e5-9A18-13D4DFCCDD61"), _
    BandObject("IE Proxy Manager, CB: Omar Becerra", BandObjectStyle.Horizontal, _
        BandObjectStyle.ExplorerToolbar, HelpText = "IE Proxy Manager to change Disney Proxies")> _
...rest of code here...

<Guid("E08554F2-3571-45e5-9A18-13D4DFCCDD61"), _
    BandObject("IE Proxy Manager, CB: Omar Becerra", BandObjectStyle.Horizontal + _
        BandObjectStyle.ExplorerToolbar, HelpText = "IE Proxy Manager to change Disney Proxies")> _
...rest of code here...

TextBox1.Text = ComboBox1.SelectedItem.ToString()

    <br />
        Dim ds As new DataSet<br />
        Dim dt As DataTable<br />
        dt.TableName="InvDate"<br />
        ds.Tables.Add(dt)<br />
<br />
    Dim connection as string = "Whatever your connection string"<br />
    Dim conn As New OleDbConnection(connection)<br />
    Dim adapter As New OleDbDataAdapter()<br />
    adapter.SelectCommand = new OleDbCommand(CmdqueryInvoice, conn)<br />
    adapter.Fill(ds.tables("InvDate"))<br />
<br />
        Dim LoopRow As Data.DataRow<br />
<br />
        For Each LoopRow In ds.tables("InvDate")Rows<br />
               .....<br />
        Next<br />