connecte til AS/400 fra ASP (via ODBC)

2 min. så finder jeg et frem...

de er gået ;)

Nej spøg til side.. Lyder kanon, jeg kan bare ikke lige finde et eksempel

http://www.able-consulting.com/ADO_Conn.htm

Kanon side forresten...

Dette script er rimelig generisk og udskriver en tabel incl. header for alle felter i det recordset der returneres. Eksemplet bruger Client Access Express OLEDB provideren, men den linie der er kommenteret ud, anvender en DSN med Client Access ODBC driveren.

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Set rs = Server.CreateObject(\"ADODB.RecordSet\")

\'Conn.Open \"DSN=AS400SVR;UID=USER;PASSWORD=PASS;\"
Conn.Open \"Provider=IBMDA400;Data Source=AS400SVR;\", \"USER\", \"PASS\"

sql = \"SELECT * FROM LIBRARY.FILE\"


RS.Open sql, Conn

if not RS.EOF then
        Response.Write(\"<TABLE>\" & vbCrLf)
    Response.Write(\"<TR>\" & vbCrLf)
    for each item in RS.Fields
        Response.Write(\"<TH align=left bgcolor=lightgrey>\" & item.name & \"</TH>\" & vbcrlf)
    next   
    Response.Write(\"</TR>\")
end if

Do While Not RS.EOF
    Response.Write(\"<TR>\" & vbcrlf)

        for each item in RS.Fields
            Response.Write(\"<TD nowrap align=left>\" & item.value & \"</TD>\" & vbcrlf)
        next
        RS.MoveNext
    Response.Write(\"</TR>\" & vbcrlf)
Loop

Response.Write(\"</TABLE>\" & vbcrlf)

if rs.State <> 0 then rs.Close
if Conn.state <> 0 then Conn.Close

Jeg antager at du kunne bruge det, selv om der gik lidt mere end 2 min. :-)

Microsoft OLE DB Provider for ODBC Drivers error \'80004005\'

[IBM][Client Access ODBC (32-bit)][DB2/400 SQL]Fejl ved kommunikationsforbindelse. COMM RC=0x5

Hvad kan det være for en fejl? Søger jeg på nettet er der nogen der skriver installer client access express

Hvordan ser din connection ud i ASP ?