I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
xamax
xamax
il 21 gennaio 2003 alle 10:46
15 messaggi dal 20 gennaio 2002
Con Asp.Net non si connette
Salve a tutti, spero che qualcuno mi possa dare una mano...
il problema è il seguente. Sto riscrivendo in ASP.Net una pagina ASP che mi connetteva ad un db AS400 (che supporta OLe DB) ma pur impazzendonon arrivo a capo di nulla...Per far meglio comprendere posto entrambi i codici:

Vecchio ma funzionante ASP
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxxxxxxxxxxx

<%
Dim AS400Connessione
Dim AS400Command
Dim AS400File_rs
Dim ConnectionString
Dim CommandText
Dim CommandType
On Error Resume Next
'----- dichiarazione di connessione ---------
ConnectionString = "Provider=IBMDA400;Data Source=192.168.0.51;"
CommandText = "SELECT * FROM YFILEURO.ARTIC00F "
CommandType = adCmdText
'------ apertura connessione --------------
Set AS400Connection = Server.CreateObject("ADODB.Connection")
AS400Connection.Open ConnectionString,"USR","PASS"
Set AS400Command = Server.CreateObject("ADODB.Command")
AS400Command.ActiveConnection = AS400Connection
'Comandi da eseguire sul sistema AS/400
AS400Command.CommandText = CommandText
AS400Command.CommandType = CommandType
'Esecuzione comandi
Set AS400File_rs = AS400Command.Execute
************************ rs output esempio

******************** fine output
If (Err.Number = 0 ) Then
Else
'------Errori
DisplayError AS400Connection, Err.Number, Err.Description, Err.Source, "Main"
End If
AS400File_rs.Close
Set AS400File_rs = Nothing
Set AS400Command = Nothing
AS400Connection.Close
Set AS400Connessione = Nothing
session.abandon
%>

Nuovo ma non funzionante ASPX
-------------------------------------------------------------------

<@ Page Language="VB" %>

<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>

<html>
<script runat="server">
Sub Page_Load(Sender As Object, E As EventArgs)
Dim objconn As new OleDbConnection _
("Provider=IBMDA400;Data Source=192.168.0.51;","","")
Dim ObjCmd As new OleDbCommand_
("Select * From YFILEURO.TA00000F")

Dim ObjReader as new OleDbReader
ObjConn.Open ObjConn("WEBUSR","WODSWEB")
ObjReader=ObJCmd.ExecuteReader

While ObjReader.Read
response.write (ObjReader.Getstring(0)&"<br>")
end While
ObjConn.close
end sub
</script>
<body>
</body>
</html>

Forse chiedo troppo... ma se avete qualche suggerimento vi ringrazio anticipatamente.

Ciao a tutti


Xamax
RispondiQuoting
hyppos
hyppos
il 21 gennaio 2003 alle 11:08
1.818 messaggi dal 21 giugno 2001
Contributi
Le connessioni ad AS/400 col Client Access sono sempre una croce!
Fatta questa premessa indispensabile passiamo a noi .

Dim ObjReader as new OleDbReader

Non esiste alcuna classe che si chiami OleDbReader. Forse volevi scrivere OleDbDataReader

ObjConn.Open ObjConn("WEBUSR","WODSWEB")

Questa riga mi è oscura... Il metodo Open della classe OleDbConnection non accetta nessun parametro.

Se vuoi utilizzare il DataReader prova a scrivere così:
Anzitutto passa i valori di UserId e Password nella stringa di connessione
Dim strConn as String="Provider=IBMDA400; Data Source=192.168.0.51; User ID=WEBUSR; Password=WODSWEB"

Dim strSQL="Select * From YFILEURO.TA00000F"


Poi prova a scrivere così:
Dim Connection as OleDbConnection  
Dim Command As OleDbCommand
Dim ObjReader as OleDbDataReader

Connection= New OleDbConnection(strConn)
Connection.Open
Command=New OleDbCommand(StrSQL, Connection)
ObjReader =Command.ExecuteReader()

While ObjReader.Read 
response.write (ObjReader.Getstring(0)&"<br>") 
end While 

ObjReader.Close
Command.Dispose
Connection.Close
Connection.Dispose



hyppos
<code> in giro torte sol ciclos et rotor igni</code>
RispondiQuoting
xamax
xamax
il 22 gennaio 2003 alle 12:42
15 messaggi dal 20 gennaio 2002
Grazie innanzitutto dei suggerimenti ed effettivamente il problema più grosso sta proprio nella riga sotto:

ObjConn.Open ObjConn("WEBUSR","WODSWEB")
'errata
ObjConn.Open
'corretta

ma è che l'AS400 richiede il passaggio della Username e password subito dopo dopo l'apertura della Connessione

Avete qualche suggerimento ulteriore a parte il suicidio.....

grazie 1000
Xamax
RispondiQuoting
hyppos
hyppos
il 22 gennaio 2003 alle 12:49
1.818 messaggi dal 21 giugno 2001
Contributi
veramente io gliela passo abiutualmente nella stringa di connessione e funziona alla grande:

Dim strConn as String="Provider=IBMDA400; Data Source=192.168.0.51; User ID=WEBUSR; Password=WODSWEB"

Che versione del Client Access hai?
hyppos
<code> in giro torte sol ciclos et rotor igni</code>
RispondiQuoting
xamax
xamax
il 22 gennaio 2003 alle 14:54
15 messaggi dal 20 gennaio 2002
hyppos 10.000 grazie..... avevo fatto un po di casino... ora mi sembra doveroso postare il codice funzionante:::::::>


<%@ Page Language="VB" Debug="true" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>

<html>
<script runat="server">
Sub Page_Load(Sender As Object, E As EventArgs)
dim objConn as new OleDbConnection("Provider=IBMDA400; Data Source=(indirizzo IP); User ID=USERID; Password=PASSWORD")
Dim objCmd as new OleDbCommand ("SELECT * FROM LIBRERIA.FILE", objConn)
Dim objReader as OleDbDataReader
objConn.open
objReader= objCmd.ExecuteReader
While objReader.Read
Response.Write(objReader.GetString(0)&"<br>")
end while
objConn.close
End sub
</script>
<body>ciao</body></html>
Funziona

Ancora grazie
Xamax
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.