I'm just tossing this code out for anyone to use. I am working on a update to the Bill Severance version of the FotoVision module (the only version that works with DNN4) to store the data in a database rather than an .xml file. I decided to use the DAL+ and realized that in my Super-Simple Module (DAL+) tutorial I don't provide an example of handling the ObjectQualifier.

Here is the code I am using

 
Imports System
Imports System.Data
Imports System.Collections.Generic
Imports DotNetNuke

Namespace SD.DNN.Modules.FotoVisionDNN

Public Class Controller

#Region "Private Members"
Private Const ProviderType As String = "data"
Private _providerConfiguration As Framework.Providers.ProviderConfiguration = Framework.Providers.ProviderConfiguration.GetProviderConfiguration(ProviderType)
Private _objectQualifier As String
#End Region

#Region "Constructors"
Public Sub New()
' Read the configuration specific information for this provider
Dim objProvider As Framework.Providers.Provider = CType(_providerConfiguration.Providers(_providerConfiguration.DefaultProvider), Framework.Providers.Provider)
' Read the attributes for this provider
_objectQualifier = objProvider.Attributes("objectQualifier")
If _objectQualifier <> "" And _objectQualifier.EndsWith("_") = False Then
_objectQualifier += "_"
End If
End Sub
#End Region

#Region "Properties"
Public ReadOnly Property ObjectQualifier() As String
Get
Return _objectQualifier
End Get
End Property
#End Region

Dim mySqlString As String = ""
Public Function GetFotoVisionSettings(ByVal PortalID As Integer, ByVal SettingID As String) As String
Dim FotoVisionInfo As SettingInfo = New SettingInfo()
mySqlString = "SELECT Setting FROM " & ObjectQualifier & "FotoVisionDNN_Settings WHERE (PortalID = " & PortalID & ") AND (SettingID = '" & SettingID & "')"
Using dr As IDataReader = CType(DataProvider.Instance().ExecuteSQL(mySqlString.ToString()), IDataReader)
While dr.Read
FotoVisionInfo.Setting = Convert.ToString(dr("Setting"))
End While
End Using
If FotoVisionInfo.Setting Is Nothing Then
FotoVisionInfo.Setting = ""
End If
Return FotoVisionInfo.Setting
End Function

Public Sub InsertFotoVisionSettings(ByVal colFotoVisionInfo As SettingInfo)
mySqlString = "INSERT INTO " & ObjectQualifier & "FotoVisionDNN_Settings (PortalID, SettingID, Setting) VALUES (" & colFotoVisionInfo.PortalID & ",'" & colFotoVisionInfo.SettingID & "','" & colFotoVisionInfo.Setting & "')"
DataProvider.Instance().ExecuteSQL(mySqlString.ToString())
End Sub

Public Sub UpdateFotoVisionSettings(ByVal colFotoVisionInfo As SettingInfo)
mySqlString = "UPDATE " & ObjectQualifier & "FotoVisionDNN_Settings SET Setting = '" & colFotoVisionInfo.Setting & "' WHERE (PortalID = " & colFotoVisionInfo.PortalID & ") AND (SettingID = '" & colFotoVisionInfo.SettingID & "')"
DataProvider.Instance().ExecuteSQL(mySqlString.ToString())
End Sub

End Class
End Namespace

When I complete the code in mid December it will be released as a free module. Bill did a lot of work on it and it finally allows you to have a picture gallery for each of the members of your site. As you can see in the code above I added the ability to indicate which Role is able to use the gallery so you could easily set up a situation where only paid members can use the gallery.

This module has a long history: