I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
pfagiolini
pfagiolini
il 12 marzo 2002 alle 16:37
5 messaggi dal 28 maggio 2001
Qualcuno ha esperienza nel collegare DB su AS 400.
Devoi leggere dei dati e visualizzarli poi sul sito Aziendale.

grazie


RispondiQuoting
biank
biank
il 13 marzo 2002 alle 00:02
1.571 messaggi dal 19 luglio 2001
www.netpointitalia.com
L'ho fatto un bel po' di tempo fa, ma posso dirti due cose:
1-devi avere ibm client access express v.4
2-posso darti uno script che mi ha aiutato molto(preso da questo sito).Non credo che in giro troverai molto altro.
file-----as_400.asp------
<HTML>
<HEAD>
<TITLE>Connessione DB AS/400 via Client Access</TITLE>
</HEAD>
<BODY>
<b>Collegamento ADO as400</b><br>
<FORM NAME="connessione" METHOD="POST" ACTION="engine.asp">
<p>  </p>
<table width="31%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="9%"><b>ip </b></td>
<td width="91%">
<input type="text" name="ip">
</td>
</tr>
<tr>
<td width="9%"><b>userid</b></td>
<td width="91%">
<input type="text" name="userid">
</td>
</tr>
<tr>
<td width="9%"><b>password</b> </td>
<td width="91%">
<input type="password" name="password">
</td>
</tr>
<tr>
<td width="9%"> <b>libreria</b></td>
<td width="91%">
<input type="text" name="libreria">
</td>
</tr>
<tr>
<td width="9%"><b>archivio/estensione</b></td>
<td width="91%">
<input type="text" name="archivio">
</td>
</tr>
</table>
<p>
<INPUT TYPE=SUBMIT NAME="invio" VALUE=" invia " ALIGN=RIGHT>
<INPUT type=reset name="reset"value=" annulla " align=RIGHT>
</p>
</FORM>
</BODY>
</HTML>
file-------engine.asp--------
<HTML>
<HEAD>
<TITLE>Risultati Connessione</TITLE>
<!-- METADATA TYPE="typelib" UUID="00000200-0000-0010-8000-00AA006D2EA4" NAME="ADO Type Library" -->
</HEAD>
<BODY>
<%
' Questo esempio permette di visualizzare qualsiasi talbella su AS/400

' Informazioni che posso essere spostate nel global.asa per applicazioni frequenti

' Libreria
' Archivio
' Userid
' Password
' ip as/400 o nome di sistema se la rete è locale

Session("AS400_Userid") = Request.Form("UserId")

Session("AS400_Password") = Request.Form("Password")

Session("Library") = Request.Form("Libreria")

Session("FileName") = Request.Form("Archivio")

Session("AS400_SystemName") = Request.Form("Ip")

' variabili

Dim AS400Connessione

Dim AS400Command

Dim AS400File_rs

Dim ConnectionString

Dim Color

Dim ColorEnd

Dim CommandText

Dim CommandType

On Error Resume Next

'----- dichiarazione di connessione ---------

ConnectionString = "Provider=IBMDA400;Data Source=" & Session("AS400_SystemName") & ";"

CommandText = "SELECT * FROM " & Session("Library") & "." & Session("FileName")

CommandType = adCmdText

'------ apertura connessione --------------

Set AS400Connection = Server.CreateObject("ADODB.Connection")

AS400Connection.Open ConnectionString,Session("As400_Userid"),Session("AS400_Password")

Set AS400Command = Server.CreateObject("ADODB.Command")

AS400Command.ActiveConnection = AS400Connection

' da questo punto in poi è inserito una porzione di codice che ci permette di visualizzare l'intero archivio

'Comandi da eseguire sul sistema AS/400

AS400Command.CommandText = CommandText

AS400Command.CommandType = CommandType

'Esecuzione comandi

Set AS400File_rs = AS400Command.Execute

If (Err.Number = 0 ) Then

Response.Write("<table border=1 cellpadding=1 cellspacing=0>")

Response.Write("<tr bgcolor=#c1d8f1>")


For Each fd in AS400File_rs.Fields

Response.Write("<td nowrap>" & fd.Name & "</td>")

Next

Response.Write("</tr>")



While NOT AS400File_rs.EOF

Response.Write("<tr>")


For Each field in AS400File_rs.Fields

Color = ""

ColorEnd = ""

If (field.Name = "CDTDUE") Then

If (CDBL(field.Value) > 0) Then

Color = "<font color=#ff0020>"

ColorEnd = "</font>"

End IF

End If

Response.Write("<td nowrap>" & color & field.Value & ColorEnd & "</td>")

Next

Response.Write("</tr>")

AS400File_rs.MoveNext

Wend


Response.Write("</table>")

Else

'------Errori

DisplayError AS400Connection, Err.Number, Err.Description, Err.Source, "Main"

End If

AS400File_rs.Close

Set AS400File_rs = Nothing

AS400Connection.Close

Set AS400Connessione = Nothing

Set AS400Command = Nothing
'--------------- Subroutine Visualizza Errori -----------------

Sub DisplayError(Connection,errNum,errDesc,errSource,proc)

On Error Resume Next

Response.Write("<br>Errore VB num. : <b>" & errNum & " [0x" & Hex(errNum) & "]</b>")

Response.Write("<br>Descrizione errore: <b>" & errDesc & "</b>")

Response.Write("<br>Sorgente Errore: <b>" & errSource & "</b>")

Response.Write("<br>Procedura: <b>" & proc & "</b>")

Response.Write("<br>Totali errori di connessione: <b>" & Connection.Errors.Count & "</b>")

If (Connection.Errors.Count > 0) Then

For Each ErrorMsg in Connection.Errors

Response.Write("<br>" & ErrorMsg.Description)

Next

End If

End Sub

session.abandon

%>

</BODY>

</HTML>
Prova con questo è l'unica cosa che trovai e mi è stata d'aiuto
Ciao da biank




Alberto Biancardo
RispondiQuoting

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.