redis缓存数据表

直观上看,数据库中的数据都是按表存储的;更微观地看,这些表都是按行存储的。每执行一
次select查询,数据库都会返回一个结果集,这个结果集由若干行组成。所以,一个自然而然
的想法就是在Redis中找到一种对应于数据库l行的数据结构。Redis中提供了五种基本数据结构
,即字符串(string)、列表(list)、哈希(hash)、集合(set)和有序集合(sorted
set)。经过调研,发现适合存储行的数据结构有两种,即string和hash。
要把数据库的行数据存入string,首先需要对行数据进行格式化。事实上,结果集的
每一行都可以看做若干由字段名和其对应值组成的键值对集合。这种键值对结构很容易让我们
想起Json格式。因此,这里选用Json格式作为结果集每一行的格式化模板。根据这一想法,我
们可以实现将结果集格式化为若干Json对象,并将Json对象转化为字符串存入Redis。

 

要把数据库的行数据存入hash,过程要比把数据存入string直观很多。这是由hash的结构性质 

决定的——hash本身就是一个键值对集合:一个“父键”下面包含了很多“子键”,每个“子 

键”都对应一个值。根据前面的分析可知,结果集中的每一行实际上也是键值对集合。用
Redis键值对集合表示数据库键值对集合应该再合适不过了:对于结果集中的某一行,字段对应
于hash的“子键”,字段对应的值就是hash“子键”对应的值,即结果集的一行刚好对应一个
hash

 

Redis hash是一个string类型的field和value的映射表.一个key可对应多个field,一个field对应一个value。将一个对象存储为hash类型,较于每个字段都存储成string类型更能节省内存。

procedure TForm2.Button1Click(Sender: TObject);
var
  lData: TRedisString;
  lCacheKey: string;
  lStream: TStringStream;
begin
  lCacheKey := 'goods';
  lStream := TStringStream.Create;
  try
    lData := FRedis.GET(lCacheKey);
    if lData.HasValue then
    begin
      lStream.WriteString(lData);
      lStream.Position := 0;
      FDQuery1.LoadFromStream(lStream, sfJSON);
    end
    else
    begin
      FDQuery1.Open('SELECT * FROM tgoods');
      FDQuery1.SaveToStream(lStream, sfJSON);
      lStream.Position := 0;
      FRedis.&SET(lCacheKey, lStream.DataString, 30);
    end;
  finally
    lStream.Free;
  end;
end;

  

posted @ 2015-04-01 11:36  delphi中间件  阅读(11917)  评论(0编辑  收藏