将结构体存入Access数据库

懒得修改了。参数里应该再加一个字段名称，有兴趣的修改一下。。。目前是根据VersionNO来判断，读的时候也可以根据数据库中流的长度来比较。。最好是通过外界手段。。自己控制吧。。。

只要是连续内存的东西,都可以拿来存...

function TDataModuleDataBase.LoadRecFromDB(const aName, TableName: string;
  var Rec; RecSize: Integer): Boolean;
var
  MS: TMemoryStream;
begin
  Result := False;
  if Trim(aName)='' then
    Exit;
  MS := TMemoryStream.Create;
  try
    try
      ADOConnection.Open;
    except
      Exit;
    end;
    with ADOQuery do begin
      Active:=False;
      SQL.Text:='SELECT * FROM '+ TableName +' WHERE Name='+''''+ aName +'''' + ' and AppVersion=' + '''' + VersionNO + '''';
      Active:=True;
      if RecordCount <> 1 then
        Exit;
      with FieldByName('RecOLE') as TBlobField do begin
        MS.Position := 0;
        SaveToStream(MS);
        MS.Position := 0;
        MS.Read(Rec, RecSize);
      end;
    end;
  finally
    ADOConnection.Close;
    MS.Free;
  end;
  Result := True;
end;

function TDataModuleDataBase.SaveRecToDB(const aName, TableName: string;
  var Rec; RecSize: Integer): Boolean;
var
  MS: TMemoryStream;
begin
  Result := False;
  MS := TMemoryStream.Create;
  try
    try
      ADOConnection.Open;
    except
      Exit;
    end;
    with ADOQuery do begin
      Active:=False;
      SQL.Clear;
      SQL.Text:='SELECT * FROM ' + TableName + ' WHERE Name='+''''+ aName + '''';
      Active:=True;
      if RecordCount>=1 then
        Exit;
      Active:=False;
      SQL.Text:='SELECT * FROM ' + TableName;
      Prepared;
      Open;
      Append;
      FieldByName('Name').Value := aName;
      FieldByName('AppVersion').Value := VersionNO;
      with FieldByName('RecOLE') as TBlobField do begin
        MS.Position := 0;
        MS.Write(Rec, RecSize);
        MS.Position := 0;
        LoadFromStream(MS);
      end;
      Post;
    end;
  finally
    ADOConnection.Close;
    MS.Free;
  end;
  Result := True;
end;