RESPUESTA A LA PREGUNTA 4624 - VISUAL BASIC


El ejemplo que te adjunto es sobre controles RDO, y la aplicación corre sobre
WIN9x/NT, además debes saber que esta rutina (modifícala a tu gusto...) se encarga
de conectar sin que se requiera del usuario, es decir, se conecta automáticamente
con un AS/400 según los parámetros indicados en "conn$". Estos parámetros son los
utilizados en "Administración ODBC" de windows. No olvides incluir tu control de
errores con la colección "Err.xxxxx". Espero te sea de utilidad y suerte con tu
aplicación.

Public Sub ConectarAS400()

'***************  conexión al AS400 . . .
'***************  La conexión al AS400, se realizará creando una conexión de
'***************  DSN virtual, para cada ejecución con unos valores siempre FIJOS
'***************  SYSTEM=AS400xx (Sistema AS400, al que nos conectamos)
'***************  UID=USUARIO (Usuario de la conexión ODBC)
'***************  PWD=CONTRASEÑA (Contraseña del usuario ODBC)
'***************  DATABASE=QS36F (Biblioteca de acceso a Datos)

Dim SenteSQL As String
Dim Sistema As String
Dim conn As String
Dim CNTOBJ As rdoConnection
Dim Envi As rdoEnvironment
Dim Resul1 As rdoResultset

Set Envi = rdoEnvironments(0)

conn$ = "DRIVER={Client Access ODBC Driver (32-bit)};SYSTEM=" & Sistema _
            & ";UID=USUARIO;PWD=CONTRASEÑA;CMT=0;DBQ=QS36F;NAM=0;DFT=0;DSP=0;" _
            & "TFT=0;TSP=0;DEC=0;XDYNAMIC=0;RECBLOCK=1;BLOCKSIZE=8;" _
            & "SCROLLABLE=0;TRANSLATE=1;LAZYCLOSE=0;LIBVIEW=0;" _
            & "REMARKS=0;CONNTYPE=0;SORTTYPE=1;LANGUAGEID=E"
            
Set CNTOBJ = Envi.OpenConnection(dsname:="", _
            prompt:=rdDriverNoPrompt, _
            Connect:=conn$)

SenteSQL = "SELECT * FROM " & Fichero
    Set Resul1 = CNTOBJ.OpenResultset(SenteSQL)                       
End Sub


Eduardo Sánchez
summer69@navegalia.com