Free for PREMIUM members
Go Premium for a chance to win a PS4. Enter to Win
AStream := TMemoryStream.Create;
AStream.Position := 0;
Open in new window
function RecordsetFromXML(const XML: string): _Recordset;
Result := nil;
if XML = '' then Exit;
Stream := TStringStream.Create(XML);
Stream.Position := 0;
RS := CreateOleObject('ADODB.Recordset');
RS.Open(TStreamAdapter.Create(Stream) as IUnknown);
Result := IUnknown(RS) as _Recordset;
TransformationXML := TXMLDocument.Create(Self);
XMLTransform1.TransformationDocument := TransformationXML.DOMDocument;
Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!
Learn how Concerto can help you.
Work with freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely, and get projects done right.