Coneccion de tablas as/400 desde VB6
Publicado por
Mario (1 intervención) el 21/02/2005 18:38:17
Private WithEvents rst As ADODB.Recordset
Private WithEvents conas400 As ADODB.Connection
Aux_DtSourceAS = "Nombre de la ODBC"
Set conas400 = CreateObject("ADODB.Connection")
Set rst = New ADODB.Recordset
///// Establece apertura de la tabla AS400 ///////
rst.Open "SELECT * FROM " +" Nombre de la tabla", Aux_DtSourceAS, adOpenDynamic, adLockOptimistic
//////////// Cuerpo de instrucciones para menejar la tabla con el recordset, (addnew-update-delete )////////////////////
conas400.Close
Set rst = Nothing
Set conas400 = Nothing