AS/400 - Drivers Client Access

   
Vista:

Drivers Client Access

Publicado por Rafael (1 intervención) el 10/12/2007 18:49:23
Favor, si alguien me puede decir donde bajar el Client Access, necesito conectarme a AS400 a traves de Visual Basic.

Gracias
Rafael
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Drivers Client Access

Publicado por ros (95 intervenciones) el 14/01/2008 13:27:31
sin odbc
no te hace falta.

Private conexion_192_168_xxx_xxx As New ADODB.Connection
Private CONEXION_LECTURA_ESCRITURA As New ADODB.Command
Private registros As New ADODB.Recordset
Private registro1 As New ADODB.Recordset
Private xqry As String

Option Explicit


Private Sub Form_Load()

'-------------------
'CONECTAR CON BASE DE DATOS
'-------------------
conexion_192_168_xxx_xxx.Open "Provider=IBMDA400;Data Source=192.168.xxx.xxx;", "user", "contraseña"
Set CONEXION_LECTURA_ESCRITURA.ActiveConnection = conexion_192_168_xxx_xxx
'-------------------
'leer empresas
'-------------------

xqry = "SELECT * FROM " & "libreria.fichero"
registros.CursorLocation = adUseServer
registros.Open xqry, conexion_192_168_xxx_xxx, adOpenDynamic, adLockPessimistic
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar