Programación General > Visual Basic 6.0 e inferiores

 Re: BD as400

(1/1)

vgeta:
Hola:
Como puedo conectar por VB la base de datos as/400 para la lectura y escritura de esta.

Gracias.

arjmasar:
pues aqui te envio algo que estoy usando, aunque soy principiante, pues he logrado conectarme..

   Dim conImportCtas As ADODB.Connection
   Dim rstImportCtas As ADODB.Recordset
   Dim strImportCtas As String
   
   Set conImportCtas = New ADODB.Connection
   conImportCtas.ConnectionString = "DSN=CENTRO;SYSTEM=CENTRAL;CMT=0;DBQ=FACTULIB;NAM=0;DFT=5;DSP=1;TFT=0;TSP=0;DEC=0;XDYNAMIC=1;RECBLOCK=2;BLOCKSIZE=256;SCROLLABLE=0;TRANSLATE=1;LAZYCLOSE=1;LIBVIEW=0;REMARKS=0;CONNTYPE=2;SORTTYPE=0;LANGUAGEID=ENU;SORTWEIGHT=0;PREFETCH=0;DFTPKGLIB=QGPL;MGDSN=0;"
   conImportCtas.Open
   Set rstImportCtas = New ADODB.Recordset
   rstImportCtas.ActiveConnection = conImportCtas
   rstImportCtas.CursorType = adOpenStatic
   rstImportCtas.LockType = adLockReadOnly
   rstImportCtas.CursorLocation = adUseClient
   rstImportCtas.Open "Select * From UsuarLrt Where SECT = 22 AND NOMBRE Like 'RAMIREZ%'", conImportCtas, adOpenDynamic, adLockOptimistic
   rstImportCtas.MoveFirst

Navegación

[0] Índice de Mensajes