Scriptaty.net - Refer Dataaccess layer to a friend!

New Listings

Most Popular

Top Ranked

Link to Us

Site Map

Categories

	Ajax Scripts

	ASP NET Scripts

	ASP Scripts

	C and C++ Scripts

	Coldfusion Scripts

	Flash Scripts

	Java Scripts

	JavaScript Scripts

	Perl Scripts

	PHP Scripts

	Python Scripts

	Remotely Hosted Scripts

	Tools and Utilities Scripts

	XML Scripts

Most Popular This Week

1. ASPProtect	4
2. ASP Login	3
3. X-Login	1

Most Popular This Month

1. Remember Me!	21
2. ASPProtect	18
3. Dataaccess layer	11
4. ASP Login	10
5. X-Login	9

Refer Dataaccess layer to a friend!

If you have a friend that you would like to recommend this page to, or if you just want to send yourself a reminder, here is the easy way to do it!

Simply fill in the e-mail address of the person(s) you wish to tell about Dataaccess layer, your name and e-mail address (so they do not think it is spam and can reply to you directly with gracious thanks), and click the SEND button.

If you want to, you can also enter a message that will be included on the e-mail.

After sending the e-mail, you will be transported back to the page you recommended!

Resource title:	Dataaccess layer
Resource URL:	http://www.scriptaty.net/dataaccess-layer.html
Description:	Imports SystemImports System.DataImports System.Data.SqlClientImports System.DiagnosticsNamespace DAL Public Class DataAccess Implements IDisposable Private strConnection As String = ConfigurationSettings.AppSettings("conString") Private command As SqlCommand Public Sub New(ByVal sprocName As String, ByVal commandType As CommandType, Optional ByVal parameters As SqlParameter() = Nothing) command = New SqlCommand(sprocName, New SqlConnection(strConnection)) command.CommandType = commandType If Not IsNothing(parameters) Then Dim parameter As SqlParameter For Each parameter In parameters command.Parameters.Add(parameter) Next End If command.Connection.Open() End Sub Public Sub New(ByVal sprocName As String, ByVal parameters As ArrayList) command = New SqlCommand(sprocName, New SqlConnection(strConnection)) command.CommandType = CommandType.StoredProcedure Dim parameter As SqlParameter For Each parameter In parameters command.Parameters.Add(parameter) Next command.Connection.Open() End Sub Public Function runNonQuery_Int() As Int32 If IsDBNull(command) Then Throw New ObjectDisposedException("Object is disposed") End If Dim retVal As Integer = 0 retVal = command.ExecuteNonQuery() Return retVal End Function Public Function runUpadateQuery_Int(Optional ByVal strRetParamName As String = "") As Int32 If IsDBNull(command) Then Throw New ObjectDisposedException("Object is disposed") End If Dim i As Integer i = command.ExecuteNonQuery() If i = 0 Then Return 0 Else If strRetParamName = "" Then Return i Else Return command.Parameters("@" & strRetParamName).Value End If End If End Function Public Function runScalar_Obj() As Object If IsDBNull(command) Then Throw New ObjectDisposedException("Object is disposed") End If Return (command.ExecuteScalar()) End Function Public Function runReader_Rd() As SqlDataReader Dim rdr As SqlDataReader If IsDBNull(command) Then Throw New ObjectDisposedException("Object is disposed") End If rdr = command.ExecuteReader() Return rdr End Function Public Function runAdapter_Dt() As DataTable 'hh If IsDBNull(command) Then Throw New ObjectDisposedException("Object is disposed") End If Dim dataAdapter As SqlDataAdapter Dim dataTable As DataTable dataAdapter = New SqlDataAdapter dataTable = New DataTable dataAdapter.SelectCommand = command dataAdapter.Fill(dataTable) dataAdapter.Dispose() Return dataTable End Function Public Sub Dispose() Implements System.IDisposable.Dispose If Not IsDBNull(command) Then Dim tmpsqlcon As SqlConnection tmpsqlcon = command.Connection Debug.Assert(Not IsDBNull(tmpsqlcon)) command.Dispose() tmpsqlcon.Dispose() End If End Sub End ClassEnd Namespace

	Name	E-mail
You
Friend 1
Friend 2
Friend 3
Friend 4
Friend 5
Your message:

NOTE: To avoid spammers and robots please anwer this question:
What is 3-2?

Sponsored Ads

Partner Links

SEO Consulting UK

Newsgroups Archives

Optel

Paracoda Web

Software Download

Hardware Keylogger

Mirroraty

Cruised Web Directory

Targeted Website Traffic

Free Web Hosting