RE:Conexión ASP con AS/400
Publicado por
NEISSER (1 intervención) el 04/05/2006 01:47:41
Prueba con esto:
Dim Base As ADODB.Connection
Set Base = New ADODB.ConnectionBase.Open "Provider=IBMDA400;Data Source=NOMBREMAQUINA;User ID=QSECOFR;Password="
NOMBREMAQUINA : El nombre de la máquina AS/400 a la que se quiere acceder. El nombre de la máquina es el mismo que el dado en el controlador del "Entorno primario" de Client Access
Ejemplo de una actualización / adicción
Dim Datos As ADODB.Recordset
Set Datos = New ADODB.RecordsetDatos.CursorLocation = adUseClientDatos.Open "SELECT * FROM BIBLIOTECA.ARCHIVO", Base, adOpenDynamic, adLockPessimistic