---
title: "Läsa från AS/400"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/9408-läsa-från-as-400"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "wazid"
published: "2001-05-09T08:08:00.000Z"
updated: "2001-05-11T05:19:00.000Z"
replies: 12
views: 641
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/9408-läsa-från-as-400"
---

# Läsa från AS/400

## #1 — wazid, 2001-05-09T08:08Z

Hej 

Finns det någon som kan tipsa om hur man läser data från en databas på en AS/400?

Permalänk: https://www.webforum.nu/p/9408

## #2 — Vide, 2001-05-09T08:13Z

Ursäkta min okunnighet... men vad är en AS/400?

Permalänk: https://www.webforum.nu/p/268306

## #3 — ironhead, 2001-05-09T08:39Z

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.

Permalänk: https://www.webforum.nu/p/268307

## #4 — ironhead, 2001-05-09T08:39Z

ursäkta - dubbelpostning!

\[Redigerat av ironhead den 09 maj 2001\]

Permalänk: https://www.webforum.nu/p/268308

## #5 — wazid, 2001-05-09T08:51Z

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.

Permalänk: https://www.webforum.nu/p/268309

## #6 — LarsG, 2001-05-09T08:58Z

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.

Permalänk: https://www.webforum.nu/p/268310

## #7 — wazid, 2001-05-09T17:53Z

Har inkluderat adovbs.inc.
Men si, det blir samma felmeddelande ändå...

Permalänk: https://www.webforum.nu/p/268311

## #8 — LarsG, 2001-05-09T18:05Z

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

Permalänk: https://www.webforum.nu/p/268312

## #9 — wazid, 2001-05-10T06:00Z

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?!

Permalänk: https://www.webforum.nu/p/268313

## #10 — @nders, 2001-05-10T06:07Z

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]"
```

Permalänk: https://www.webforum.nu/p/268314

## #11 — @nders, 2001-05-10T06:24Z

vad kör du för dbms förresten? db2?

Permalänk: https://www.webforum.nu/p/268315

## #12 — vagabond, 2001-05-10T17:49Z

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\>

Permalänk: https://www.webforum.nu/p/268316

## #13 — wazid, 2001-05-11T05:19Z

1000 tack Vagabond!!!

Det fungerar nu!

Permalänk: https://www.webforum.nu/p/268317

---

Tråden på webben: https://www.webforum.nu/amne/asp/9408-läsa-från-as-400