Conexion AS400

[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