AS/400 - as400 - xamp

Hola, entre a hacer mi practica y tengo un problemilla. La cosa es que estoy levantando un sistema en el xampp que debería conectrse a una as400. en el titulo de la pestaña del navegador sale el titulo del sistema que significa que ya entre, pero no llega a conectarse a la as400. los errores que me devuelve son sentencias, entonces me imagino que la estructura de la query es la que no pasa entre el xampp y as400. quien ha hecho este enlace alguna vez? si se necesitan mas datos por favor hacerlos llegar para resolver esto que ya me esta estresando.

ej de la funcion:

function rol()
{
try{
$usuario=$this->usuario();
$esquema_sig=$this->esquema(2);
$consulta=$this->db->query("select usu_id_rol from" .$esquema_sig."tbl_usuario
where usu_id=$usuario");
$fila=$consulta->row();
$rol=$fila->USU_ID_ROL;
return $rol;
}catch (Exception $e){
echo "Problemas con la sentencia de la funcion rol: " . $e->getMessage();
}
}

Quizas ni se puede hacer .... Pero no lo se.

Accediendo por odbc normalmente defines en el la base de datos a la que accedes, que en el caso de un as400 es la libreria , en tu caso "$esquema_sig" . No creo que te funcione en un SQL a un AS400 la nomencaltura "bbdd.tabla".

Gracias por la ayuda, la verdad es que la nomenclatura creo que seria un error, pero como parcho esto? crees en alguna posibilidad? Se agradece.

Como veo que nadie te ayuda, te lo paso en VB.net

'Declaro variable para sentecias SQL
Public strSQL As String
Public Sentecia_SQL As Odbc.OdbcCommand
Public registros As Odbc.OdbcDataReader
Public sentencia_de_conexion As String
Public usuario As String
Public contraseña As String
Public ODBC_DNS As String

Public PU_OLEDB_CONEXION As New OleDb.OleDbConnection
Public PU_OLEDB_REGISTROS As OleDbDataReader
Public PU_OLEDB_REGISTROS1 As OleDbDataReader
Public PU_OLEDB_REGISTROS2 As OleDbDataReader
Public PU_OLEDB_REGISTROS3 As OleDbDataReader
Public PU_OLEDB_SENTENCIA_SQL As New OleDbCommand
Private PR_QRY As String
Public PU_OLEDB As Boolean = True


If PU_OLEDB = True Then



Try
PU_OLEDB_CONEXION = New OleDb.OleDbConnection
PU_OLEDB_CONEXION.ConnectionString = "Provider=IBMDA400;Data source=192.168.xxx.xxx;User Id=usuario;" & "Password=contraseña;"
PU_OLEDB_CONEXION.Open()
'######################
'Cargamos el resto de parametros
'######################
'Declaro sentecia SQL
PR_QRY = "SELECT * FROM biblioteca.fichero"
PU_OLEDB_SENTENCIA_SQL = New OleDbCommand(PR_QRY, PU_OLEDB_CONEXION)
PU_OLEDB_REGISTROS = PU_OLEDB_SENTENCIA_SQL.ExecuteReader
While PU_OLEDB_REGISTROS.Read
ListView1.Items.Add(PU_OLEDB_REGISTROS(PU_OLEDB_REGISTROS.GetOrdinal("campo0")).ToString & " " & PU_OLEDB_REGISTROS.GetString(PU_OLEDB_REGISTROS.GetOrdinal("campo1")))
End While

Catch ex As Exception
MsgBox(ex.Message)
End Try


Else


'Defino el DNS de conexion via ODBC, es el que da menos problemas
usuario = " usuario "
contraseña = "contraseña"
ODBC_DNS = "biblioteca"
Dim Conexion_ODBC As New Odbc.OdbcConnection("DSN=" & ODBC_DNS & ";UID=" & usuario & ";PWD=" & contraseña)

'Conexión con la base de datos
Conexion_ODBC.Open()

'Declaro sentecia SQL
strSQL = "SELECT * FROM biblioteca.fichero"

Sentecia_SQL = New Odbc.OdbcCommand(strSQL, Conexion_ODBC)

registros = Sentecia_SQL.ExecuteReader

While registros.Read
ListView1.Items.Add(registros.GetString(registros.GetOrdinal("campo0")) & " " & registros.GetString(registros.GetOrdinal("campo1")))
End While

strSQL = "UPDATE biblioteca.fichero SET campo1 = 'zzzzzzzzzzzzzzz' WHERE campo0=5"
Sentecia_SQL = New Odbc.OdbcCommand(strSQL, Conexion_ODBC)
registros = Sentecia_SQL.ExecuteReader

Conexion_ODBC.Close()
Conexion_ODBC.Dispose()



End If