Macro connection ODBC vers As400 requete SQL insert

Version imprimable

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 :

Citation:

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:

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,

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:

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

11/09/2009, 06h49
lebelge17

Merci beaucoup...

j'ai exactement la meme erreur :

Citation:

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?
11/09/2009, 21h05
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:

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