Ursäkta min okunnighet... men vad är en AS/400?
------------------
Budweiser - Slightly contaminated water... probably harmless, but I would recommend boiling before you drink it...
webEye.nu SweQuake.com
Läsa från AS/400
12 svar · 610 visningar · startad av wazid
AS/400 är väl en gammal IBM-minidator?!
som kör OS/400 som operativsystem.
Har väl ingen inbyggd databas?
Brukar väl köra DB2
också okunnig:)
rätta mig om jag har fel.
------------------
Pucko? Jag som trodde det var en dryck!
Rätt AS/400 är IBM's lösning på datasystem för affärssytem.
Det är mycket stabil (och dyra) maskiner.
Här är koden som jag försöker logga in och läsa med.
<%
response.expiresAbsolute=now()-2
%>
<html>
<body LEFTMARGIN="0" TOPMARGIN="0" RIGHTMARGIN="0" BGCOLOR="#CCCCCC">
<BASEFONT SIZE="2">
<%
Session("AS400A_ConnectionString") = "DSN=Movex001"
Session("AS400A_ConnectionTimeout") = 30
Session("AS400A_CommandTimeout") = 30
Session("AS400A_RuntimeUserName") = "USER"
Session("AS400A_RuntimePassword") = "USER"
Set AS400A = Server.CreateObject("ADODB.Connection")
AS400A.Open Session("AS400A_ConnectionString"), Session("AS400A_RuntimeUserName"), Session("AS400A_RuntimePassword")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Visa = "SELECT OKCONO FROM MVXADTA001/OCUSMA"
RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic
Do Until RecSet.EOF
%><%=RecSet("OKCUNO")%><%
RecSet.MoveNext
Loop
RecSet.Close
AS400A.Close
%>
Och här är felmedelandet :
ADODB.Recordset fel '800a0bb9'
Programmet använder felaktiga parametrar, som antingen ligger utanför tillåtet intervall, eller som skapar en inbördes konflikt.
/system01/restorderlista2.asp, rad 17
Movex001 är en fungerande DSN och
det verkar som om jag kommer åt databasen, men nåt blir ändå fel.
Då är det väl bara det att du inte har definierat konstanterna adOpenStatic och adLockOptimistic
Det finns en fil som heter adovbs.inc där dom definieras. Man kan inkludera den eller lägga in de konstanter man använder direkt i koden.
------------------
essentitia preter non sans multiplicandum
Har inkluderat adovbs.inc.
Men si, det blir samma felmeddelande ändå...
Vid en närmare besiktning så ser jag att du har
RecSet.Open Visa, [b]Connect[/b], adOpenStatic, adLockOptimistic
men det connectionobjekt som du skapar innan heter AS400A
------------------
essentitia preter non sans multiplicandum
Har fixat ett och får nu följande felmeddelande:
Microsoft OLE DB Provider for ODBC Drivers fel '80040e21'
Frågeegenskaper kan inte stödjas av denna ODBC-drivrutin.
Finns det någon som har en aning om vad man kan göra för att fixa detta?!
det kan inte vara så att den bråkar om tabellnamnet?
prova att klamra, eftersom du har en slash mitt i.
Visa = "SELECT OKCONO FROM [MVXADTA001/OCUSMA]"
------------------
<A HREF="http://cartman.nu" TARGET=_blank>
nobody expects the spanish inquisition!</A>
vad kör du för dbms förresten? db2?
------------------
<A HREF="http://cartman.nu" TARGET=_blank>
nobody expects the spanish inquisition!</A>
client access
<%
Response.expiresAbsolute=now()-2
Set AS400A = Server.CreateObject("ADODB.Connection")
AS400A.Open "DSN=Movex001;uid=ANVÄNDARE;pwd=LÖSENORD;"
visa = "SELECT OKCUNO FROM OCUSMA"
Set RS = AS400A.Execute(visa)
%>
<html>
<head>
<title>Kund</title>
</head>
<body bgcolor="#FFFFFF">
<%
RS.MoveFirst
Do While Not RS.EOF
Response.Write RS("OKCUNO") & "\<br\>"
RS.MoveNext
Loop
AS400A.Close
Set AS400A = Nothing
Set RS = Nothing
%>
</body>
</html>