VB.net accéder à un fichier de l' AS400
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:
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:
Citation:
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 :)
