function AdoToJs(ado: TADOQuery): string;

var

  I, J: Integer;

  json: string;

begin

  json := '{columns:[';

  for I :=  to ado.FieldCount -  do

  begin

    json := json + '{name:"' + ado.Fields[I].FieldName + '",type:"' + DbTypeToStr(ado.Fields[I].DataType) + '"}';

    if I < ado.FieldCount -  then

      json := json + ',';

  end;

  json := json + '],rows:[';

  for I :=  to ado.RecordCount -  do

  begin

    json := json + '{';

    for J :=  to ado.FieldCount -  do

    begin

      json := json + ado.Fields[J].FieldName + ':"' + ado.FieldByName(ado.Fields[J].FieldName).AsString + '"';

      if J < ado.FieldCount -  then

        json := json + ',';

    end;

    json := json + '}';

    if I < ado.RecordCount -  then

      json := json + ',';

  end;

  json := json + ']}';

  Result := json;

end;

function AdoToXml(ado: TADOQuery): string;

begin

  Result := RecordsetToXMLString(ado.Recordset);

end;

function XmlToAdo(xml: string): TADOQuery;

var

  ado: TADOQuery;

begin

  ado := TADOQuery.Create(nil);

  ado.Recordset := RecordsetFromXMLString(xml);

  Result := ado;

end;

function RecordsetToXMLString(const Recordset: ADOInt._Recordset): string;

var

  RS: Variant;

  Stream: TStringStream;

begin

  Result := '';

  if Recordset = nil then

    Exit;

  Stream := TStringStream.Create('', TEncoding.UTF8);

  try

    RS := CreateOleObject('ADODB.Recordset');

    RS := Recordset;

    RS.Save(TStreamAdapter.Create(Stream) as IUnknown, adPersistXML);

    Stream.Position := ;

    Result := Stream.DataString;

  finally

    Stream.Free;

  end;

end;

function RecordsetFromXMLString(const xml: string): ADOInt._Recordset;

var

  RS: Variant;

  Stream: TStringStream;

begin

  Result := nil;

  if xml = '' then

    Exit;

  try

    Stream := TStringStream.Create(xml, TEncoding.UTF8);

    Stream.Position := ;

    RS := CreateOleObject('ADODB.Recordset');

    RS.Open(TStreamAdapter.Create(Stream) as IUnknown);

    Result := IUnknown(RS) as ADOInt._Recordset;

  finally

    Stream.Free;

  end;

end;

function DbTypeToStr(dbtype: TFieldType): string;

begin

  Result := GetEnumName(TypeInfo(TFieldType), Ord(dbtype))

end;

function StrToDbType(const dbtype: string): TFieldType;

begin

  Result := TFieldType(GetEnumValue(TypeInfo(TFieldType), dbtype));

end;