Unconfigured Ad Widget

Collapse

Announcement

Collapse
No announcement yet.

Reading files (CCSID *HEX) with Ado in VB

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

  • Reading files (CCSID *HEX) with Ado in VB

    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 ' .....
Working...
X