SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: vgeta en Miércoles 17 de Abril de 2002, 15:48

Título: Re: BD as400
Publicado por: vgeta en Miércoles 17 de Abril de 2002, 15:48
Hola:
Como puedo conectar por VB la base de datos as/400 para la lectura y escritura de esta.

Gracias.
Título: BD as400
Publicado por: arjmasar en Miércoles 14 de Agosto de 2002, 19:01
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