Simpelt Data Access Layer

Hejsa,

Jeg ville høre om der var nogen der havde gode råd omkring opbygning af et helt simpelt DAL. Altså hvor man f.eks. har en fil i sin App_Code der hedder DataClass.vb med en class, hvor der er de mest gængse funktioner/metoder, dvs med:

ExecuteReader()
ExecuteNonQuery()
ExecuteScalar()
og et der returnerer et helt DataSet.

Man kan så kalde disse (alt efter hvilken man står og skal bruge) fra hvilken som helst webform i sit projekt ved at pass'e en Sql-sætning ind som parameter.

Eksempelvis via kald som dette med funktionen GetScalarValue()der
udfører en cmd.ExecuteScalar() :

På webformen:

Dim c as new DataClass()
Dim strSql as String = "SELECT navn From Bruger WHERE Id = 4"
label1.Text = c.GetScalarValue(strSql)

I klassen DataClass:

Public function GetScalarValue(ByVal strSql as string) as String
Using con as new sqlConnection(connectionString) 
Dim cmd as sqlCommand(strSql, con)
  return = cmd.ExecuteScalar()
End Using
End Function

Her returneres jo kun én værdi, så den kunne jeg godt forestille mig. Men hvad hvis der returneres flere records fra en Reader eller et helt DataSet?

Hvordan kunne sådan noget laves mest smart, med mindre man skal over i strongly typed dataset (.xsd-filer).

Mvh. =)