Bonjour,

J'essaie de pointer directement sur une base SQL dans un AS400. La première méthode fonctionne (la requête SQL est bonne), la même requête dans une autre méthode ne fonctionne pas ?
Qui peut mé'aider ?

PREMIERE METHODE

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
20
 
Dim as400 As New cwbx.AS400System
Dim dlr As New cwbx.DatabaseDownloadRequest
Dim dt As New cwbx.DatabaseTransfer
 
as400.Define "11.1.16.1"
 
Set dlr.system = as400
dlr.AS400File = "mvxcdta500/mpdmat,"
 
dlr.pcFile = "C:\Temp\APPROS_TEMP00.xls"
dlr.pcFile.FileType = cwbdtBIFF8
 
dlr.QueryDataTransferSyntax = False
 
dlr.Query = "SELECT MPDMAT.PMMSEQ,MPDMAT.PMSTRT,MPDMAT.PMPRNO FROM MVXCDTA500/MPDMAT " _
& "WHERE MPDMAT.PMSTRT = 'ETU' AND MPDMAT.PMPRNO= 'SM01012193A' " _
& "ORDER BY MPDMAT.PMMSEQ"
 
dlr.Download
SECONDE METHODE
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
20
21
22
23
 
Dim CnnAs400 As ADODB.Connection
Dim RsAs400 As ADODB.Recordset
Dim Cnndb As New ADODB.Connection
Dim Rsdb As New ADODB.Recordset
Dim Champ1, Champ2 As String
Dim Champ3, Champ4, Champ5, Champ6 As Variant
Dim i As Integer
 
Set CnnAs400 = CreateObject("ADODB.connection")
CnnAs400.Open "provider=IBMDA400;data source=11.1.16.1", "Login", "password"
 
'Set Cnndb = CurrentProject.Connection
 
 
Set RsAs400 = CreateObject("ADODB.recordset")
RsAs400.ActiveConnection = CnnAs400
 
strSql = "SELECT MPDMAT.PMMSEQ,MPDMAT.PMSTRT,MPDMAT.PMPRNO FROM MVXCDTA500/MPDMAT " _
& "WHERE MPDMAT.PMSTRT = 'ETU' AND MPDMAT.PMPRNO= 'SM01012193A' " _
& "ORDER BY MPDMAT.PMMSEQ"
 
RsAs400.Open strSql