Conexion AS400

[mixmanq]

Amigos .tengo un problema y quizas me puedan ayudar .. necesito generar un consulta desde asp a un AS400 ..... alguien sabe de que manera se puede conectar


graciasQ

[bakanzipp]

AS400 + ASP...

SI SE PUEDE...TB ME GUSTARIA SABER

[mixmanq]

de hecho se puede amigos pero algo me falta ,....... es por eso la pregunta!

[maestro]

Vamos a ver una cosa.

ASP es un lenguaje interpretado por el servidor, es decir, que da los mismo (o casi lo mismo) la plataforma sobre la que lo ejecutes WINDOWS / UNIX /LINUX /BEOS/ ETC.

Del mismo modo da lo mismo el servidor sobre el que lo ejecutes sea APACHE, PWS, IIS o algun otro servidor que soporte secuencias de comandos ASP

Por tanto para ejecutar ASP en un ASP400 de IBM solo deberas colocar los ficheros en el ROOT del directorio WEB de la publicacion y asegurarte de tener permisos para ejecutar scripts o escribir en los directorios.

[tolotoco]

El primer parámetro es la biblioteca donde está el archivo, el segundo parámetro es la consulta SQL.

Se puede eliminar el primer parámetro si se añade en la consulta SQL la biblioteca de la siguiente manera:

SELECT * FROM BIBLIOTECA.ARCHIVO

Adjunto código de ejemplo de conexión. La función devuelve un Dataset con los datos recuperados de la consulta SQL.

Public Function Conecta400(ByVal vBiblio As String, ByVal vSQL400 As String) As DataSet
Dim conectaCOM As OleDb.OleDbConnection
Dim adapt As OleDb.OleDbDataAdapter
Dim ds400 As DataSet

conectaCOM = New OleDb.OleDbConnection("Provider=HiTOLEDB400.1;Pass word=Clave;Persist Security Info=True;User ID=Usuario;Data Source=Nombre_AS400;Mode=Read;Libraries=" + vBiblio + ";Host Code Page=284 - Spanish;LangID or Table=ESP - Spanish")
adapt = New OleDb.OleDbDataAdapter(vSQL400, conectaCOM)
ds400 = New DataSet
'Controla los errores de apertura de la base de datos
Try
conectaCOM.Open()
adapt.Fill(ds400)
conectaCOM.Close()
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Function
End Try
Conecta400 = ds400
End Function