Bind data from ANY datastore to ANY server control

rania15 · Apr 28, 2012

i'm new to ASP.NET and i've been trying to figure out ways to modularize some common code that i personally run into. i came up with the following code to allow one to bind data from ANY type of datastore (ie Oracle, SQL, Access, etc) to ANY bindable server control. the following code was converted from a very good article i read about a universal data access layer component (http://www.aspnextgen.com/tutorials.aspx?tutorialid=103). ------------------------------------------------ DataAccessLayer.vb compile this VB file into a dll called DataAccessLayer.dll and put it in your application /bin directory ------------------------------------------------ Imports System Imports System.Web Imports System.Web.UI Imports System.Web.UI.WebControls Imports System.Web.UI.HtmlControls Imports System.Data Imports System.Data.OleDb Imports System.Configuration Namespace DataAccessLayer ' this class uses the iDbConnection, IDataReader, and IDbCommand interfaces ' to allow for connection to almost ANY datastore Public Class UniversalDAL Public Function GetData(conn As IDbConnection, commandText As String) As IDataReader Dim cmd As IDbCommand = conn.CreateCommand() cmd.CommandText = commandText Try conn.Open() Catch ' the connection is already open or was invalid End Try Return cmd.ExecuteReader() End Function End class Public Class DalCodeBehind : Inherits Page Public Function GetDataReader(sSQL As String) As OleDbDataReader Dim uDAL As New UniversalDAL() Dim oledbConn As New OleDbConnection(ConfigurationSettings.AppSettings("ConnectionString")) Dim myDataReader As OleDbDataReader myDataReader = uDAL.GetData(oledbConn,sSQL) Return myDataReader oledbConn.Close() End Function End Class End Namespace -------------------------------------------------- to use the above code in any web forms page, simply declare the following line at the top of the page -------------------------------------------------- <%@ Page Inherits="DataAccessLayer.DalCodeBehind" Language="VB" %> --------------------------------------------------- now all you have to do is supply the SQL query string, and set the DataSource property of the server control to the DataReader that's returned, like so... --------------------------------------------------- <script runat="server"> Dim sSQL As String = "SELECT TOP 4 Product_ID, Title FROM PRODUCTS ORDER BY Title" dgProducts.DataSource = GetDataReader(sSQL) dgProducts.DataBind() listProducts.DataSource = GetDataReader(sSQL) listProducts.DataBind() radProducts.DataSource = GetDataReader(sSQL) radProducts.DataBind() chkProducts.DataSource = GetDataReader(sSQL) chkProducts.DataBind() </script> ------------------------------------------------------- the above code will generate a DataGrid, DropDownList, RadioButtonList, and CheckBoxList all generated from the database. i'm sorry to throw a bunch of code up here, but i thought it would save some newbies like myself a little time and allow for future good coding practices. let me know if you have any questions. like i said, i'm very new to this so if any of you see ANY ways to improve this technique, please let me know. thanks, ../n1ck/

Bind data from ANY datastore to ANY server control

rania15

New Member