Discussion :

[bybelos33]

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
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
 
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 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

[AnneCa]

Quel est ton problème au juste? Vérifie d'abord que la connection se fait bien. Ensuite mets des lignes de debug pour connaitre les valeurs des tes variables
Voilà comment j'écrirais cette fonction...

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
Private Function returnRS() As ADODB.Recordset
Dim cnnAs400 As New ADODB.Recordset
Dim cmd As New ADODB.Command
Dim strsql As String
 
strsql = "SELECT MPDMAT.PMMSEQ,MPDMAT.PMSTRT,MPDMAT.PMPRNO FROM MVXCDTA500/MPDMAT " & _
        "WHERE MPDMAT.PMSTRT = 'ETU' AND MPDMAT.PMPRNO= 'SM01012193A' " & _
        "ORDER BY MPDMAT.PMMSEQ"
 
cnnAs400.Open "provider=IBMDA400;data source=11.1.16.1", "Login", "password"
cmd.ActiveConnection = cnnAs400
cmd.CommandTimeout = 0
cmd.CommandType = adCmdText
cmd.CommandText = strsql
 
Set returnRS = cmd.Execute
Set cmd = Nothing
Set cnnAs400 = Nothing
End Function

Bien à toi.

[bybelos33]

Ok merci j'ai trouvé une erreur dans la syntaxe de la macro ce qui faisait que cela bloquer au niveau de l'execution de la requete.
Le passage par un recordset était plus lent que ta solution que j'ai adopté.

Merci à tous.

Cordialement