Discussion :

[jacko842]

Bonjour,

j'essaye d'accéder à un fichier de l'AS400(j'ai très peu de connaissance de l'os400).

J'ai réussi a accéder au fichier CLISIG de la librairie SBCPT

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Dim conn As New OleDbConnection
    Dim sConnString As String = "Provider=IBMDA400;" & _
                                "Password=PSWD;" & _
                                "User ID=QSECOFR;" & _
                                "Data Source=192.168.250.10;"
    Dim cmd As New OleDbCommand
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        conn = New OleDbConnection(sConnString)
        '//Bibliothèque.fichier
        'Dim str_requete As String = "SELECT * FROM SBCPT.CLISIG"
        Dim str_requete As String = "SELECT * FROM archives.qrglesrc"
        Dim da = New OleDbDataAdapter(str_requete, conn)
        Dim dts = New DataSet("test")
        da.Fill(dts, "test")
        Dim bdsrc = New BindingSource()
        bdsrc.DataSource = dts.Tables("test")
        DataGridView1.DataSource = bdsrc
    End Sub

Ca ça fonctionne, mais j'ai un autre fichier dans l'as400 que j'aimerais bien aussi y accéder: fichier QPRGLESRC bibliothèque: ARCHIVES

Voici le message d'erreur:

SQL0204: OPRGLESRC de type *FILE dans ARCHIVE non trouvé.
Cause . . . . . : OPRGLESRC de type *FILE dans ARCHIVE n'a pas été trouvé. Si *ALL est le nom du membre, la table n'est pas partitionnée. S'il s'agit d'une instruction ALTER TABLE et que le type est *N, aucune contrainte ou aucune partition n'a été trouvée. S'il ne s'agit pas d'une instruction ALTER TABLE et que le type est *N, une fonction, une procédure, un déclencheur ou un objet séquence est introuvable. Si aucune fonction n'a été trouvée, OPRGLESRC est le programme de service contenant la fonction. La fonction ne sera pas trouvée, à moins que le nom externe et le nom d'usage ne correspondent exactement. Recherchez dans l'historique du travail un message donnant plus de détails sur la fonction recherchée et le nom qui ne correspondait pas. Que faire . . . : Modifiez le nom, puis renouvelez votre demande. Si l'objet est un groupe de noeuds, vérifiez que le produit DB2 Multisystem est installé sur votre système et créez un groupe de noeuds à l'aide de la commande CL CRTNODGRP. Si aucune fonction externe n'a été trouvée, assurez-vous que la casse de EXTERNAL NAME dans l'instruction CREATE FUNCTION correspond exactement à la casse du nom exporté par le programme de service.

D'avance merci

[jacko842]

Ok en me rendant sur l'as400 sur le fichier j'ai fait:

shift+esc
option 3
option 14

et je me suis rendu compte que je ne pointé pas vers le bon fichier dans mon code.