Discussion :

[lebelge17]

Bonjour à tous,

vous n'etes pas mon dernier espoir mais pas loin :d

J'ai une erreur dont je n'arrive pas à trouver un historique sur le net :

Erreur d'execution '-2147467259(80004005)'
[IBM][PILOTE ODBC System i Access][DB2 for i5/OS]SQL7967 - PREPARE de l'instruction executee

voici le code ou j'ai l'erreur :

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 Conn As String
Dim UID As String
Dim PWD As String
Dim SqlB As String
Dim cnn As New ADODB.Connection
Dim objcmd As New ADODB.Command
 
...
 
cnn.Open "DRIVER={Client Access ODBC Driver (32-bit)};UID=" & UID & ";PWD=" & PWD & ";SYSTEM=As400server;DBQ=QGPL ;DFTPKGLIB=QGPL;LANGUAGEID=ENU;PKG=QGPL/DEFAULT(IBM),2,0,1,0,512;TRANSLATE=1;SIGNON=1;"
 
SqlB = "insert into ....."
 
objcmd.ActiveConnection = cnn
objcmd.CommandText = SqlB
objcmd.Prepared = False
objcmd.CommandType = adCmdText
 
objcmd.Execute , adExecuteNoRecords
 
cnn.Close
Set cnn = Nothing
Set objcmd = Nothing

l'erreur se produit sur la methode execute. et le plus bizarre c'est que lorsque j'ai la fenetre d'erreur si je clique sur Debogage il passe a l'instruction suivante et fait correctement le INsert.

j'espere avoir ete assez claire et que vous pourrez m'aider...

cordialement,

[jfontaine]

Bonjour,

J'utlise régulièrement le SQL pour manipuler des tables AS400 mais je n'utilise pas d'objet Command pour cela

Essai sans l'object command en utilisant directement la méthode execute de la connection

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
24
25
Dim Conn As String
Dim UID As String
Dim PWD As String
Dim SqlB As String
Dim cnn As New ADODB.Connection
'Dim objcmd As New ADODB.Command
 
...
 
cnn.Open "DRIVER={Client Access ODBC Driver (32-bit)};UID=" & UID & ";PWD=" & PWD & ";SYSTEM=As400server;DBQ=QGPL ;DFTPKGLIB=QGPL;LANGUAGEID=ENU;PKG=QGPL/DEFAULT(IBM),2,0,1,0,512;TRANSLATE=1;SIGNON=1;"
 
SqlB = "insert into ....."
 
cnn.Execute SqlB
 
'objcmd.ActiveConnection = cnn
'objcmd.CommandText = SqlB
'objcmd.Prepared = False
'objcmd.CommandType = adCmdText
 
'objcmd.Execute , adExecuteNoRecords
 
cnn.Close
Set cnn = Nothing
'Set objcmd = Nothing

[lebelge17]

Merci beaucoup...

j'ai exactement la meme erreur :

Erreur d'execution '-2147467259(80004005)'
[IBM][PILOTE ODBC System i Access][DB2 for i5/OS]SQL7967 - PREPARE de l'instruction executee

je clic sur debogage et il fait qd meme l'insert...

n'y a t il pas moyen de le forcer?

[jfontaine]

Désolé, mais je n'ai jamais eu ce problème.

As tu essayé en créant l'ODBC "AS400' manuellement dans les outils d'administration

puis en utilisant la connexion

Code :

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

cnn.Open "DSN=AS400;UID=" & UID & ";PWD=" & PWD