Problem with connection to AS400

[Uri Dimant]

Hello,friends
I've got this error now after user tries to connect to AS400 ("Ordinal=1
Status=UnsupportedConversion)
Can someone shed light on the problem?
Public Const CONNECTION_STRING As String = "Provider=IBMDA400;Data
Source=00000.1;User ID=KK;Password=RR"

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs)
Handles MyBase.Load

Dim sql As String

Dim strCon As String

Dim ds As DataSet = New DataSet("test")

strCon = CONNECTION_STRING

Dim cn1 As OleDb.OleDbConnection = New OleDb.OleDbConnection(strCon)

cn1.Open()

Dim adp1 As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter

Dim cmd As OleDb.OleDbCommand = New OleDb.OleDbCommand("select COL from
TABLE where COL= 8881221", cn1)

cmd.CommandType = CommandType.Text

adp1.SelectCommand = cmd

adp1.TableMappings.Add("Table", "Partner")

Try

adp1.Fill(ds)

Catch ex As Exception

MsgBox(ex.Message)

End Try

DataGrid1.SetDataBinding(ds, "Partner")

End Sub

 

[Miha Markic]

Hi Uri,

Is this happening on connect or fill?

 

[Uri Dimant]

Hi,Miha
It is happening on fill.

Hi Uri,

Is this happening on connect or fill?