ADODB.Recordset을 ReST Call에서 ADODB.Recordset으로 되 돌리십시오.

Question

현재의 기술로 점차적으로 기존 응용 프로그램을 가져 오려고합니다. 서버에서 ADO를 사용하는 C++ COM + 라이브러리가 있습니다. VB6 응용 프로그램은 위에서 언급 한 라이브러리를 기반으로 COM + 개체의 Recordset을 사용하고 있습니다. COM + 레이어를 제거하여 ASP.NET 웹 API 프로젝트 유형으로 ReST 웹 서비스를 만들었습니다. C#에 내장 된 HTTP 결과 (예 : Ok 및 BadRequest)를 사용하는 다른 데이터 유형처럼 Recordset을 반환 할 수 없습니다. 나는 Recordset 지속성을 통해 이것을 달성하려고 노력 해왔다. 내가 도착, 마지막 줄에

_Recordset ret = null; 
string strResponse = string.Empty; 
Does things to call out to the ReST web service... 
ret = new Recordset(); 
byte[] rsByteArray = Encoding.ASCII.GetBytes(strResponse); 
ret.Open(new MemoryStream(rsByteArray)); 

:

ADODB._Recordset rs; 
string rsString; 
SomeLibrary sl = new SomeLibrary(); 
rs = (ADODB._Recordset)sl.SomeMethod(); 
Stream stream = new Stream(); 
rs.Save(stream, PersistFormatEnum.adPersistXML); 
rs.Close(); 
rsString = stream.ReadText(); 
return Ok(rsString); 

는 C# 클라이언트는이 ADO 레코드 지속 등과 같은 오브젝트를 재 작성 걸릴하려고 다음과 같이 나는 스트림으로 레코드를 저장 다음과 같은 오류 :

<xml xmlns:s='uuid:BDC6E3F0-6DA3-11d1-A2A3-00AA00C14882' xmlns:dt='uuid:C2F41010-65B3-11d1-A29F-00AA00C14882' xmlns:rs='urn:schemas-microsoft-com:rowset' xmlns:z='#RowsetSchema'> 
<s:Schema id='RowsetSchema'> 
    <s:ElementType name='row' content='eltOnly' rs:CommandTimeout='600' rs:ReshapeName='DSRowset1'> 
     <s:AttributeType name='ID' rs:number='1'> 
      <s:datatype dt:type='int' dt:maxLength='4' rs:precision='10' rs:fixedlength='true' rs:maybenull='false'/> 
     </s:AttributeType> 
     <s:AttributeType name='c1' rs:name='Some Date' rs:number='2' rs:nullable='true'> 
      <s:datatype dt:type='dateTime' rs:dbtype='timestamp' dt:maxLength='16' rs:scale='3' rs:precision='23' rs:fixedlength='true'/> 
     </s:AttributeType> 
     <s:AttributeType name='Status' rs:number='3' rs:nullable='true'> 
      <s:datatype dt:type='ui1' dt:maxLength='1' rs:precision='3' rs:fixedlength='true'/> 
     </s:AttributeType> 
     <s:AttributeType name='c3' rs:name='File Name' rs:number='4' rs:nullable='true'> 
      <s:datatype dt:type='string' rs:dbtype='str' dt:maxLength='2000'/> 
     </s:AttributeType> 
     <s:AttributeType name='c4' rs:name='User ID' rs:number='5'> 
      <s:datatype dt:type='string' rs:dbtype='str' dt:maxLength='32' rs:maybenull='false'/> 
     </s:AttributeType> 
     <s:extends type='rs:rowbase'/> 
    </s:ElementType> 
</s:Schema> 
<rs:data> 
<z:row ID='3319' c1='2017-06-26T08:14:46' Status='2' 
    c3='somefile.XML' c4='domain\\user'/> 
</rs:data> 
</xml> 

:

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

는 지속 된 XML은 다음과 같습니다

목적은 COM + 라이브러리 대신 새로운 C# 라이브러리에 대한 새로운 참조가 아닌 다른 구현이 변경되었음을 결코 알 수 없도록 VB6 응용 프로그램에 다시 보내는 ADO 레코드 집합을 갖는 것입니다.

내가 작성한 것에 버그가 있습니까? 그렇지 않습니다. 가능하지 않다면 누구든지이 작업을 수행하기 위해 취할 수있는 다른 경로를 알고 있습니까?

편집 :
이 질문에 대한 대답은 분명 도움이되었습니다.

ADODB.Stream stream = new ADODB.Stream(); 
rs.Save(stream, PersistFormatEnum.adPersistXML); 
rs.Close(); 
rsString = stream.ReadText(); 
return Ok(rsString); 

그리고 다음 클라이언트 : 그것은로부터받은 것처럼

이

_Recordset ret = null; 
string strResponse = string.Empty; 
Does things to call out to the ReST web service... 
if (!string.IsNullOrEmpty(strResponse)) 
{ 
    strResponse = strResponse.Replace("\\t", " ").Replace("\\r\\n", " ").Replace("\"", ""); 
    ret = new Recordset(); 
    ADODB.Stream stream = new ADODB.Stream(); 
    stream.Open(); 
    stream.WriteText(strResponse); 
    stream.Position = 0; 
    ret.Open(stream); 
} 

return ret; 

VB6 모듈은 이제 데이터를 받아 들일 수 나는 마침내 작업 왔을 때, 나는 다음에 서버를 변경 COM + 개체. 나는이 기술이 저렴한 비용으로 기술을 업데이트해야하는 다른 사람들에게 도움이되기를 바랍니다.

Answer 1

당신은 같은 레코드 개방 방법에 ADODB.Stream 개체를 전달해야뿐만 아니라 작동하지 않습니다 (Stream 개체를 사용하여) 위의

ADODB.Stream strm = new ADODB.Stream(); 
strm.Open(); 
strm.LoadFromFile(@"D:\XMLRecordset.xml"); 
Recordset rs = new Recordset(); 
rs.Open(strm); 

그러나 - 그나마 이유를 알고있다. 그러나 당신이 레코드를 열려면 파일 경로를 사용할 수 있습니다과 같이 작동합니다 : 당신이 레코드를 처리하지 않으려는 경우 또한

Recordset rs = new Recordset(); 
rs.Open(@"D:\XMLRecordset.xml"); 

, 당신은 JSON 문자열을 구문 분석 웹 API에서와 VB6 응용 프로그램에서 객체의 목록을 전달할 수 있습니다 결과를 얻으려면 (Ben의 대답을 확인하십시오. Is There a JSON Parser for VB6/VBA?)