OVH Cloud OVH Cloud

[DWMX] Mise à jour d'une base sous AS400

2 réponses
Avatar
paritel webforumsuser
Bonjour à tous,

J'ai créé une page en ASP pour mettre à jour des données ds une base DB2 sous AS400.
J'ai mis un script en en tete de ma page :

<!--#include file="connexion.asp"-->
<%
if request("submit")="Modifier" then
sql="Select * from PCLIENT where CLNSIR="&request("SIRET")
set rs= server.CreateObject("ADODB.Recordset")
rs.open sql, conn, 3, 3
if not rs.eof then
rs.movefirst
rs.fields("CLNMFA")=request("SOCIETE")
rs.fields("CLAPE")=request("APE")
rs.fields("CLNSIR")=request("SIRET")
rs.fields("CLADF1")=request("ADR1")
rs.fields("CLCPFA")=request("CP")
rs.fields("CLVILFA")=request("VILLE")
rs.fields("CLNTEL")=request("TEL")
rs.fields("CLFAXF")=request("FAX")
rs.fields("CLNBAN")=request("CODEBAN")
rs.fields("CLNGUI")=request("CODEGUI")
rs.fields("CLCCPT")=request("NUMCPT")
rs.fields("CLRIB")=request("RIB")
rs.fields("CLDOMB")=request("DOMBAN")
rs.update
rs.close
set rs=nothing
response.redirect("valid_modif.asp?CLNCLI="&request("codeclt"))
end if
end if
%>

Qd je clique sur le bouton modifier j'ai ce message d'erreur :

Microsoft OLE DB Provider for ODBC Drivers erreur '80040e21'

Ce pilote ODBC ne prend pas en charge les propriétés demandées.

/AS400/fiche_modif.asp, ligne 7

Où est le pb???? J'ai les droits en lecture-écriture.

Merci de vos lumières
bernard

2 réponses

Avatar
dan
aurais tu essayé créer une connection Microsoft OLE DB classique ?
...parce que pour DB2 l'on utilise pas le même provider:

providerÛ2OLEDB;Network Transport Library=TCPIP;Network
Address=CheminServeur;Package Collection=monPackage;Host CCSID42;Initial
CatalogºseDB2;User ID=nonDusager;Password=motDePasse;"

dan


"paritel" a écrit dans le message de
news:bur6p7$sku$
Bonjour à tous,

J'ai créé une page en ASP pour mettre à jour des données ds une base DB2


sous AS400.
J'ai mis un script en en tete de ma page :

<!--#include file="connexion.asp"-->
<%
if request("submit")="Modifier" then
sql="Select * from PCLIENT where CLNSIR="&request("SIRET")
set rs= server.CreateObject("ADODB.Recordset")
rs.open sql, conn, 3, 3
if not rs.eof then
rs.movefirst
rs.fields("CLNMFA")=request("SOCIETE")
rs.fields("CLAPE")=request("APE")
rs.fields("CLNSIR")=request("SIRET")
rs.fields("CLADF1")=request("ADR1")
rs.fields("CLCPFA")=request("CP")
rs.fields("CLVILFA")=request("VILLE")
rs.fields("CLNTEL")=request("TEL")
rs.fields("CLFAXF")=request("FAX")
rs.fields("CLNBAN")=request("CODEBAN")
rs.fields("CLNGUI")=request("CODEGUI")
rs.fields("CLCCPT")=request("NUMCPT")
rs.fields("CLRIB")=request("RIB")
rs.fields("CLDOMB")=request("DOMBAN")
rs.update
rs.close
set rs=nothing
response.redirect("valid_modif.asp?CLNCLI="&request("codeclt"))
end if
end if
%>

Qd je clique sur le bouton modifier j'ai ce message d'erreur :

Microsoft OLE DB Provider for ODBC Drivers erreur '80040e21'

Ce pilote ODBC ne prend pas en charge les propriétés demandées.

/AS400/fiche_modif.asp, ligne 7

Où est le pb???? J'ai les droits en lecture-écriture.

Merci de vos lumières
bernard





Avatar
paritel webforumsuser
bonjour,

j'ai refait un test sur un champ en utilisant une commande SQL de type UPDATE mabase SET nomchamp=&request("champ")& where... et ca fonctionne. je vais l'étendre à tous le formulaire et voir ce ki se passe.