Hi
Recently i got the chance to work with IBM AS400-iSeries-System database i.e mainframe database. Process is very much similar to ado.net approach.
Firstly you have to install drive i.e IBM i Access for Windows
Then add the IBM.Data.DB2.iSeries dll in your application.
Now you can write the code like this.
Imports IBM.Data.DB2.iSeries Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim con As New iDB2Connection("Data source=000.100.00.11;User Id=Test;Password=Test") con.Open() Dim cmd As New iDB2Command() cmd = con.CreateCommand() cmd.CommandText = "trs.Test" cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.AddWithValue("@lib1", "TEL") cmd.Parameters.AddWithValue("@sUser", "admin") cmd.Parameters.AddWithValue("@ErrorMsgId", "") cmd.Parameters.AddWithValue("@ErrorMsg", "") cmd.Parameters("@ErrorMsgId").Direction = ParameterDirection.Output cmd.Parameters("@ErrorMsg").Direction = ParameterDirection.Output Dim da As New iDB2DataAdapter(cmd) Dim dt As New DataTable() da.Fill(dt) Dim msg As String = cmd.Parameters("@ErrorMsgId").Value Dim msg1 As String = cmd.Parameters("@ErrorMsg").Value End Sub End Class
It will fetch the data from database.