RE: Problems With Mapics/Lotus Notes/ADO

Try using AMAPICS as the user profile.



-----Original Message-----
From: mapics-l-bounces@xxxxxxxxxxxx
[mailto:mapics-l-bounces@xxxxxxxxxxxx] On Behalf Of
IWilson@xxxxxxxxxxxxxxxxxx
Sent: Wednesday, February 18, 2004 11:20 AM
To: mapics-l@xxxxxxxxxxxx
Subject: Problems With Mapics/Lotus Notes/ADO



Hi All

Hope someone can help me here as I am losing the plot fast.
I am attempting to import data from an AS400 table (The application is
Mapics)
into forms in a Lotus Notes application
Below is the code that I use to connect to the AS400. However when I
attempt to display any value from the record set I get a type mismatch
error. If I change the connection to point to a table in a non-mapics
library I am able to display the value with no problem. The user profile
I am logging on with has the required authority. I have retrieved data
using ADO and Delphi before so this should work. Has anyone any ideas
please. Thanks in advance for any help.

' ============================================
' The code used
' ============================================
Dim workspace As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim OpDoc As NotesDocument
Dim mConn As Variant
Dim mRS As Variant
Dim OperationsView As NotesView
Dim LString As String

Set db = session.CurrentDatabase
Set mConn = createobject("ADODB.Connection")
With mConn
.Provider = "IBMDA400.DataSource.1"
.Properties("Data Source") = "IP ADDRESS"
.Properties("User Id") = "USERNAME"
.Properties("Password") = "PASSWORD"
.Properties("Transport Product") = "Client Access"
.Properties("SSL") = "DEFAULT"
.Properties("Force Translate") = "65535"
.Properties("Convert Date Time To Char") = "TRUE" .Properties("Catalog
Library List") = "AMFLIBA" .Open End With

Set mRS = createobject("ADODB.Recordset")
Set mRS.ActiveConnection = mConn
LString = "select * From AMFLIBA.MOMAST"
mRS.Open LString

Set OperationsView = db.GetView("DTrackingByLineItem")
If (Not OperationsView Is Nothing) Then
Do While Not mRS.eof
                  ' I Get A Type Mismatch here
Messagebox  Cstr(mRS.fields("CALD").Value)
mRS.movenext
Loop
End If

mRS.close
Set mRS =Nothing

mConn.close
Set mConn = Nothing


Best Regards

Iain

Here is my disclaimer

_______________________________________________
This is the MAPICS ERP System Discussion (MAPICS-L) mailing list To post
a message email: MAPICS-L@xxxxxxxxxxxx To subscribe, unsubscribe, or
change list options,
visit: http://lists.midrange.com/mailman/listinfo/mapics-l
or email: MAPICS-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/mapics-l.


************************************
This email and any files transmitted with it are proprietary and intended 
solely for the use of the individual or entity to whom they are addressed. If 
you have received this email
in error please notify the sender. Please note that any views or opinions 
presented in this email are solely those of the author and do not necessarily 
represent those of ITT Industries, Inc.
The recipient should check this email and any attachments for the presence of 
viruses. ITT Industries accepts no liability for any damage caused by any virus 
transmitted by this
email.
************************************