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