Combobox en vb.net con informacion del AS400

microsoft.public.dotnet.framework.adonet

7 Jul 2006 4:05 PM

Kary

Hola
Tengo un problema con una pantallita que estoy realizando, lo que
quiero es cargar un combobox con informacion de una biblioteca del
AS400 pero me marca un error, el siguiente:

" La operacion de multiples pasos de OLE DB genero errores. compruebe
los valores de estado de OLEDB si es posible. No se realizo ningun
trabajo"

El codigo que tengo para caragr el combobox es el sig:

--------------------------------------------------------------------------------------------------------------------------------------------
    Private Sub llenarcombo_partner()
        Dim cnAS400 As New OleDbConnection("Provider=
IBMDA400.DataSource.1; User ID=F48IE99;PWD=F48IE99;Data
Source=S1028R0M;persist security info=False; SSL=DEFAULT; Transport
Product=Client Access")
        Dim dadatos As New OleDbDataAdapter("select
EDIV20F.OÑPP0.PPPNBR, EDIV20F.OÑPP0.PPNAME from EDIV20F.OÑPP0 where
EDIV20F.OÑPP0.PPPTYP='1'", cnAS400)
        Dim dsdatos As New DataSet
        Try
            dadatos.Fill(dsdatos, "EDIV20F.OÑPP0")
            cboplanta.DataSource = dsdatos.Tables("EDIV20F.OÑPP0")
            cboplanta.DisplayMember =
dsdatos.Tables("EDIV20F.OÑPP0").Columns("PPNAME").ToString
            cboplanta.ValueMember =
dsdatos.Tables("EDIV20F.OÑPP0").Columns("PPPNBR").ToString
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
-------------------------------------------------------------------------------------------------------------------------------------
Si alguien me puede ayudar se los agradezco
Saludos!!
Karina