Macro connection ODBC vers As400 requete SQL insert

Question

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

georhan · Answer

Bonjour,

As-tu vérifié ça :

Macro connection ODBC vers As400 requete SQL insert

1 réponse

Votre réponse

Discussions similaires