Problems With Mapics/Lotus Notes/ADO

[IWilson@xxxxxxxxxxxxxxxxxx]

I have managed to sort the problem myself but I would appreciate an
explanation from someone who has greater knowledge than I.

To solve the problem I changed the CCSID to 37.

All of the data files in the Mapics library appear to have a CCSID of 65535
while files in non-mapics libraries have a CCSID of 37, 285 etc.
I was able view these non-mapics files with a CCSID of 65535

This is not the same when I use Delphi/ADO or MS Access/ODBC. I have never
had to
change the CCSID connection property from 65535 to view either Mapics or
Non-Mapics files.

So can anyone offer me an explanation as to why I can view
Mapics/Non-Mapics files all of the time
then when I use the Lotus Notes (5.08)/ADO connection I can open a record
set but not read the data.


Best Regards

Iain Wilson

=====================================================================

> Problems With Mapics/Lotus Notes/ADO


> 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