'Define the ODBC Connection string
Dim MyODBCConnection As New OdbcConnection("Driver={Client Access ODBC Driver (32-bit)};" & _
        "System=AS400Name;" & _
        "TRANSLATE=1;" & _
        "Uid=UserID;" & _
        "Pwd=User Password")
'Open the connection
        MyODBCConnection.Open()

Step 2

CODE

'Define the SQL statement to extract the data from the AS400
Dim selectCMD As OdbcCommand = New OdbcCommand("SELECT * FROM LIBRARY.FILE WHERE FILEFIELD='YourChoice' order by FILEFIELD", MyODBCConnection)

Step 3

CODE

'Initialize the reader
Dim dr As OdbcDataReader = selectCMD.ExecuteReader

Step 4

CODE

Try
'Set the mouse to show a Wait cursor
            Me.Cursor = Cursors.WaitCursor
'start the Read loop
            While dr.Read
'Note: the numbers in double quotes represent the column number from the AS400 database
'Add the data to the list view
                Dim listItem As New ListViewItem(dr.GetString("2"))
                listItem.SubItems.Add(dr.GetString("3"))
                ListView1.Items.Add(listItem)
'End the loop
            End While
'Reset the cursor
            Me.Cursor = Cursors.Default

        Catch ex As Exception
        End Try

Step 5

CODE

'Close the connection
MyODBCConnection.Close()
MyODBCConnection.Dispose()

And that's all there is to it. Of course, this is probably the simplest scenario, but you get the idea - you can build on this!

2thumbsup

Back to Visual Basic(Microsoft) -VB.NET 2002-2008 FAQ Index
Back to Visual Basic(Microsoft) -VB.NET 2002-2008 Forum
My FAQ Archive

Email This FAQ To A Friend

My Archive

My FAQ Archive