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,