te paso un trozo de fuente en vb.net que llama a un procedimiento almacenado de AS/400 .
saludos
Prueba el Nuevo Correo Terra; Seguro, rápido, fiable.
Dim tx As String = "DSN=JDBAPTF;SYSTEM=xx.xx.xx.x;CMT=0;DBQ="aqui van la
bibliotecas que necesitas";NAM=0;DFT=5;DSP=1;TFT=0;TSP=0;DEC=0;
XDYNAMIC=1;RECBLOCK=2;BLOCKSIZE=32;SCROLLABLE=0;TRANSLATE=1;LAZYCLOSE=1;LIBVIEW=0;REMARKS=0;CONNTYPE=0;
SORTTYPE=0;PREFETCH=0;DFTPKGLIB=QGPL;LANGUAGEID=ENU;SORTWEIGHT=0;MAXFIELDLEN=32;COMPRESSION=0;ALLOWUNSCHAR
=0;SEARCHPATTERN=1;MGDSN=0;"
Dim cn As New System.Data.Odbc.OdbcConnection
cn.ConnectionString = (tx)
Try
cn.Open()
Catch ex As System.Data.odbc.OdbcException
Dim s As String = ex.Message
End Try
Dim CMD As New Odbc.OdbcCommand
CMD.Connection = cn
CMD.CommandType() = CommandType.StoredProcedure
CMD.CommandText = "CALL VERIFP2"
Try
CMD.ExecuteNonQuery()
Catch ex As System.Data.odbc.OdbcException
Dim s As String = ex.Message
End Try
