Vincular Tabla AS400 – JDE en Access

8 enero, 2018

Manuales, Off-Topic

Requisitos mínimos: Client Access V6.1, Windows SO, MS Access, conexión con el AS400

Para que el siguiente código funcione deben tener instalado el “client access V6.1” .Este programa instala el driver ODBC.

Creamos un archivo txt con la extensión .reg con los parámetros de abajo.

Deben indicar en los parámetros la ip vuestra del sistema AS400 y el nombre de libreria. Una vez creado el archivo .reg guardarlo y ejecutarlo.

Se crea una conexión ODBC a AS400 llamada AS400READ

 

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\ODBC\ODBC.INI\AS400READ]
“Driver”=”C:\\Windows\\SysWOW64\\cwbodbc.dll”
“Description”=””
“System”=”<ip del sistema>”
“Signon”=”0”
“UserID”=”GD17”
“SSL”=”2”
“SQLConnectPromptMode”=”1”
“Naming”=”0”
“CommitMode”=”0”
“DefaultLibraries”=”<nombre libreria>”
“Database”=””
“ConnectionType”=”0”
“AllowProcCalls”=”0”
“DateFormat”=”5”
“DateSeparator”=”1”
“TimeFormat”=”0”
“TimeSeparator”=”0”
“Decimal”=”0”
“MaximumDecimalPrecision”=”31”
“MaximumDecimalScale”=”31”
“MinimumDivideScale”=”0”
“ConvertDateTimeToChar”=”0”
“Graphic”=”0”
“DecFloatRoundMode”=”0”
“MapDecimalFloatDescribe”=”1”
“ExtendedDynamic”=”1”
“DefaultPkgLibrary”=”<nombre libreria>”
“DefaultPackage”=”<nombre libreria>/DEFAULT(IBM),2,0,1,0,512”
“LazyClose”=”1”
“PreFetch”=”0”
“AllowDataCompression”=”0”
“Concurrency”=”0”
“ExtendedColInfo”=”0”
“QueryTimeout”=”1”
“BlockSizeKB”=”512”
“MaxFieldLength”=”32”
“BlockFetch”=”1”
“CursorSensitivity”=”0”
“QueryOptimizeGoal”=”0”
“QueryStorageLimit”=”-1″
“TrueAutoCommit”=”0”
“SortSequence”=”0”
“SortTable”=””
“SortWeight”=”0”
“LanguageID”=”ENU”
“LibraryView”=”0”
“ODBCRemarks”=”0”
“SearchPattern”=”1”
“CatalogOptions”=”3”
“DelimitNames”=”0”
“ForceTranslation”=”1”
“TranslationDLL”=””
“TranslationOption”=”0”
“CCSID”=”0”
“AllowUnsupportedChar”=”0”
“UnicodeSQL”=”0”
“HexParserOpt”=”0”
“Trace”=”0”
“QAQQINILibrary”=””
“SQDiagCode”=””
“PackageLOCAL DATA”=”<nombre libreria>/LOCAL_D(FBA),2,0,1,0,512”
“PackageMSACCESS”=”<nombre libreria>/MSACCES(FBA),2,0,1,0,512”
“PackageEXCEL”=”<nombre libreria>/EXCEL(FBA),2,0,1,0,512”

[HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\ODBC\ODBC Data Sources\]
“AS400READ”=”iSeries Access ODBC Driver”

 

Codigo VBA

Función que vincula la una tabla de AS400 – JDE en Access

 

‘Proposito Crear una tabla vinculada a AS400 desde Access que permite modificar los registros

Public Function CreateLinkTables()

Dim Mytdf As TableDef, MyLocal As String, MySource As String, MyConnectStr As String

MySource = “<nombre de la tabla que necesitamos vincular>” ‘ nombre de la tabla fuente
MyLocal = “<nombre de la tabla vinculada en Access>” ‘nombre de la tabla en Access
MyConnectStr = “ODBC;DSN=AS400READ;DESC=iSeries Access ODBC Driver;System=<la ip del sistema AS400>;UserID=<vuestro usuario de conexión a AS400>;PASSWORD=<vuestra contraseña de conexion a AS400>;”

GoSub MakeItNow ‘ salto para crear la vinculación con la tabla

Exit Function

MakeItNow:

‘Crea la vinculación con la tabla AS400 en MSACCESS

Set Mytdf = CurrentDb.CreateTableDef(MyLocal) ‘ define la base de datos local
Mytdf.connect = MyConnectStr
Mytdf.SourceTableName = MySource
CurrentDb.TableDefs.Append Mytdf
Return

End Function

 

Por cualquier duda o información pueden contactar directamente conmigo.

, ,

No comments yet.

Leave a Reply

Verificación Humana * Límite de tiempo se agote. Por favor, recargar el CAPTCHA por favor.