Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
'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()
'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)
'Initialize the reader
Dim dr As OdbcDataReader = selectCMD.ExecuteReader
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
'Close the connection
MyODBCConnection.Close()
MyODBCConnection.Dispose()