Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Create a connection to an AS400
How-to
Create a connection to an AS400 and fill a list view with results
Copy all the steps into an event and try it ....
Step 1
Step 2
Step 3
Step 4
Step 5
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]](/data/assets/smilies/2thumbsup.gif "[2thumbsup] [2thumbsup]")
Copy all the steps into an event and try it ....
Step 1
Code:
'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.ExecuteReaderStep 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 TryStep 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!