Resumen Abrir base de datos de AS/400   (2 mensajes )

Mensaje enviado por "Victor Lema Leon" <vlemal@almaperu.com.pe> el 20/03/2002

Kike :
     Ojala te sirva. Esta la conección y el recordset que creas.

     Global Con400 As ADODB.Connection 'Conexion General
     Dim RstAux As ADODB.Recordset

     Set Con400 = New ADODB.Connection
     Set RstAux = New ADODB.Recordset
     Con400.ConnectionString = "Provider=MSDASQL" _
                & ";Data Source= " & Trim(sODBC) _
                & ";User ID= " & Trim(sUsuario) _
                & ";Password= " & Trim(sPassword)
     Con400.Open

     strSql = "SELECT AOP.CCLNAN, CLI.TCMPCL " & _
             "FROM " & Libreria & ".ZZWT55 AOP " & _
             "LEFT OUTER JOIN " & Libreria & ".RZZM01 CLI ON AOP.CCLNAN = CLI.CCLNT " & _
             "WHERE AOP.NOPRCN = 100000"
     TraerDatos RstAux, strSql

'Esta es la funcion que realmente te trae el RecordSet a la Máquina.

Public Sub TraerDatos(ByRef rec As ADODB.Recordset, strSql As String)

    Set rec = New ADODB.Recordset

    rec.CursorLocation = adUseClient
    rec.CursorType = adOpenStatic
    rec.LockType = adLockOptimistic
    rec.Open strSql, Con400

End Sub


Saludos.
                  Ing. Víctor Lema León
                  Analista de sistemas
                Almacenera del Peru S.A.
                   Teléfono : 453 3997
                        Anexo : 1480


-------------------
Alguien me puede ayudar quiero abrir una Base de sin el Control Data, Se puede?

Con el Control Data la abro asi:

BaseAs.Connect = "odbc"
BaseAs.DatabaseName = "pwd=sap;dsn=as400"
BaseAs.RecordSource = "select * from PUPART"
BaseAs.Refresh

Como la abro sin usar el Control Data, lo hago de la siguiente manera pero me da error:

Set dbsBaseAs = OpenDatabase("PUPART","ODBC;PWD=sap;DSN=as400")
Set rstBaseAs = dbsBaseAs.OpenRecordset("PUPART", dbOpenTable)
rstBaseAs.Index = "PUPART50"


Enrique Gavidia Cabrera
Dpto. de Sistemas
Mitsui Automotriz S.A.

Mensaje enviado por "Victor Lema Leon" <vlemal@almaperu.com.pe> el 11/04/2002

Para la conección en el AS/400 y visual Basic se puede utilizar el Client Access. Ahora lo puedes hacer en forma de ODBC o con OleDB.
Yo utilizo el ODBC del Cliente Access.

Para mayor información te envio la cadena de conección y un SQL hecho de acuerdo a como lo utilizo yo.

    Set rec = New ADODB.Recordset
    Set Con400 = New ADODB.Connection

    Con400.ConnectionString = "Provider=MSDASQL" _
            & ";Data Source = " & Tu ODBC & _
            & ";User ID= " & Usuario & _
            & ";Password= " & Password
    Con400.Open

    strsql = "SELECT * " & _
             "FROM " & libreria & ".ZZM04 " & _
             "WHERE CTPCTR = '" & Aux & "'"
    TraerDatos rec, strsql


Public Sub TraerDatos(ByRef rec As ADODB.Recordset, strsql As String)

    rec.CursorLocation = adUseClient
    rec.CursorType = adOpenStatic
    rec.LockType = adLockOptimistic
    rec.Open strsql, Con400

End Sub


                  Ing. Víctor Lema León
                  Analista de sistemas
                Almacenera del Peru S.A.
                   Teléfono : 453 3997
Anexo : 1480



Resumen Resumen

Visual Basic Página de Visual Basic

Página principal Página principal

www.jrubi.com