Hello all. I tried reading files from the AS400 via Ado. All works fine with one exeption. When I try to read a file with CCSID *HEX. How can I reach a result. Is there any parameter or something else ? Thank, juergen ps: The VB looks like: ' ---------------------------------- Dim loAdoConnection As ADODB.Connection Dim loAdoCommand As ADODB.Command Dim loAdoRecordSet As ADODB.Recordset Set loAdoConnection = New ADODB.Connection Call loAdoConnection.Open("Provider=" & ctProvider & ";Data Source=" & ctSystem & " ;", "", "") Set loAdoCommand = New ADODB.Command ' ----- With loAdoCommand .ActiveConnection = loAdoConnection .CommandType = adCmdText ltSql = "Select ..." .CommandText = ltSql Set loAdoRecordSet = .Execute End With ' ----- llRowIdx = 0 If Not (loAdoRecordSet Is Nothing) Then ' ..... End If ' .....
Unconfigured Ad Widget
Collapse
Announcement
Collapse
No announcement yet.
Reading files (CCSID *HEX) with Ado in VB
Collapse