Published:
13 Nov 2003
|
Abstract
This tutorial is an attempt to simplify and standardize database access within ASP applications. The examples can be used in any ASP application. While working with RecordSets, the GetRows method is used, thus releasing the database connection immediately. |
 |
by Justin Owens
Feedback
|
Average Rating: This article has not yet been rated.
Views (Total / Last 10 Days):
48201/
84
|
|
|
|
| Database Class Code |
-- Database Class --
In order to return data, the data is returned from the class with an array using getrows, so the array must be erased after use to free up memory.
<%
‘Usage
‘Returning Data
‘Set db = New dbaccess
’Call db.DBOpenAccess("/dblocation/dbfile.mdb")
’Call db.OpenRec()
’arrArray = db.ExecuteSQL("SELECT * FROM [widgets];")
’Call db.CloseRec()
’Call db.DBClose()
’Response.Write(arrArray(0,0))
’Erase arrArray
‘-----------OR-------------
‘Update Functions
‘Set db = New dbaccess
’Call db.DBOpenAccess("/dblocation/dbfile.mdb")
’Call db.ExecuteUpdateSQL("DELETE FROM [widgets] WHERE [ID] = 1;")
’Call db.DBClose()
'++----------------------------------------------------------------
'++Class dbaccess
'++Author: Justin Owens
'++Date: 08/01/2002
'++You may use this class when developing your own applications
'++as long as this section of comments remains with the class.
'++----------------------------------------------------------------
Class dbaccess
'Declarations
Private cnnObj
Private objRec
Private strConnStr
'Subs
'Class Initialization
Private Sub Class_Initialize()
'Empty
End Sub
'Terminate Class
Private Sub Class_Terminate()
'Empty
End Sub
'Open Access Database
Public Sub DBOpenAccess(strDBLoc)
strConnStr = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="
strConnStr = strConnStr & server.mappath(strDBLoc) & ";"
Set cnnObj = server.CreateObject("ADODB.Connection")
cnnObj.Open strConnStr
End Sub
'Open SQL Database
Public Sub DBOpenSQL(strSERVER,strDATABASE,strUID,strPWD)
strConnStr = "DRIVER={SQL Server};SERVER=" & strSERVER & ";UID=" & strUID & ";PWD=" & strPWD & ";DATABASE=" & strDATABASE & ";"
Set cnnObj = server.CreateObject("ADODB.Connection")
cnnObj.Open strConnStr
End Sub
'Close Database
Public Sub DBClose()
cnnObj.Close
Set cnnObj = Nothing
End Sub
'Functions
'Open Recordset
Public Function OpenRec()
Set objRec = server.CreateObject("ADODB.Connection")
End Function
'Execute SQL
'Returns GetRows array - if no recset returned, it returns false.
Public Function ExecuteSQL(strSQLStatement)
Set objRec = cnnObj.Execute(strSQLStatement)
If Not objRec.EOF Then
ExecuteSQL = objRec.GetRows()
Else
ExecuteSQL = False
End If
End Function
'Execute SQL
'Updates, inserts or deletes records in tables
Public Function ExecuteUpdateSQL(strSQLStatement)
Set objRec = cnnObj.Execute(strSQLStatement)
End Function
'Close RecordSet
Public Function CloseRec()
objRec.close
Set objRec = Nothing
End Function
End Class
%> |
|
|
|
|
Article Feedback
User Comments
Title:
2012 NFL jerseys
Name:
NIKE NFL jerseys
Date:
5/20/2012 11:32:19 PM
Comment:
[/pre]Cheap NFL,NBA,MLB,NHL
[url=http://www.jersey2shop.com/]Jerseys From China[/url]
[url=http://www.jersey2shop.com/]2012 nike nfl Jerseys[/url]
[url=http://www.jersey2shop.com/]cheap China Jerseys[/url]
[url=http://www.jersey2shop.com/]Sports Jerseys China[/url]
[url=http://www.jersey2shop.com/NFL-Jerseys-c68/]NFL Jerseys China[/url]
[url=http://www.jersey2shop.com/NBA-Jerseys-c77/]NBA Jerseys China[/url]
NHL Jerseys China
[url=http://www.jersey2shop.com/MLB-Jerseys-c94/]MLB Jerseys China[/url]NFL jerseys For Sale online.All Our Jerseys Are Sewn On and Directly From Chinese Jerseys Factory
[/pre]
[pre]We Are Professional China jerseys Wholesaler
[url=http://www.cheapjersey2store.com/]Wholesale cheap jerseys[/url]Cheap mlb jerseys
[url= http://www.cheapjersey2store.com/]2012 mlb all atar jerseys[/url]
[url= http://www.cheapjersey2store.com/ [/url]Cheap China Wholesael[/url]
[url= http://www.cheapjersey2store.com/]Wholesale jerseys From China[/url]
[url=http://www.cheapjersey2store.com/]2012 nike nfl Jerseys[/url]Free Shipping,Cheap Price,7 Days Deliver
[/pre]
[/pre]
We are professional jerseys manufacturer from china,wholesal
sports [url= http://www.cheapjersey2store.com/]Jerseys From China[/url]
[url=http://www.cheapjersey2store.com/NFL-Jerseys-c68]NFL jerseys China[/url]
[url=http://www.cheapjersey2store.com/NHL-Jerseys-c96/]NHL Jerseys China[/url]
[url=http://www.cheapjersey2store.com/NBA-Jerseys-c77/]NBA Jerseys China[/url]
[url=http://www.cheapjersey2store.com/MLB-Jerseys-c94/]MLB Jerseys China[/url]
[url= http://www.cheapjersey2store.com/]China Jerseys[/url],Free Shipping
[/pre]
[/pre]
We are professional jerseys manufacturer from china,wholesal
sports [url= http://www.jerseycaptain.com/]cheap jerseys sale online [/url]
[url= http://www.jerseycaptain.com/]2012 nike nfl Jerseys[/url]
[url=http://www.jerseycaptain.com/NFL-Jerseys-c68]cheap NFL jerseys China[/url]
[url=http://www.jerseycaptain.com/NHL-Jerseys-c96/]NHL Jerseys C
|
Title:
Database Class in Classic ASP
Name:
BENITO NAVARRO MARTINEZ
Date:
10/15/2010 2:13:10 PM
Comment:
¡Excellent, good job!
|
Title:
wonder code
Name:
haruto kurasakii
Date:
11/23/2009 11:02:00 AM
Comment:
this the very good code!!!
i wana cry! T-T
why??
i don´t ASP and
code im happy!!
|
Title:
Remove comment lines
Name:
aravinda
Date:
10/23/2009 3:13:44 AM
Comment:
Remove comment lines this..
‘Set db = New dbaccess
..
...
’Call db.DBClose()
|
Title:
well done!
Name:
ashok
Date:
6/19/2008 5:17:57 AM
Comment:
This is wonderful code! Though it could be more readable, it covered everything I needed to create my database class for my website! Thanks so much for posting it!
|
Title:
It is correct
Name:
Jim
Date:
4/23/2008 3:01:24 AM
Comment:
Baldev Rawat,,
The code is correct as posted.
|
Title:
Very well done!
Name:
stars2night
Date:
12/19/2007 2:35:47 PM
Comment:
This is wonderful code! Though it could be more readable, it covered everything I needed to create my database class for my website! Thanks so much for posting it!
|
Title:
Re : Ed
Name:
Martin
Date:
3/23/2007 5:56:43 AM
Comment:
You can use the IsArray() function to check if the array exist ;o)
|
Title:
bass
Name:
saamy
Date:
2/20/2007 6:51:27 AM
Comment:
very nice work.thank you , will be useful for all
|
Title:
Re: Ed
Name:
Justin
Date:
2/15/2006 2:18:59 AM
Comment:
I think the issue you are running into is the error handling for the returned array outside of the class.
If you are using the example code, you should notice I did not include error handling for uninitialized arrays (null recordsets). If the array is uninitialized and you try to erase the array, it will raise an error.
|
Title:
Great
Name:
Ed
Date:
2/14/2006 6:32:03 PM
Comment:
Works ok,
However if no results returned it should return false, instead the script fails. Anyone have a clue?
|
Title:
great
Name:
smail
Date:
6/11/2005 7:02:59 AM
Comment:
goooooooooooob & tk u very much
|
Title:
Database Class Code
Name:
Rudi
Date:
4/3/2005 4:57:49 PM
Comment:
After spending 6 hours trying to find the correct syntax for setting up reads from an Access database, I came accross this code sample. What a find! Of all the code samples I tried (an could not get to work), this was that only one that worked right away (just adding my variable names). Thanks a million!
|
Title:
great
Name:
ben
Date:
3/9/2005 4:51:20 PM
Comment:
great little pioece of code, thanks very much
|
|
|
|
|
|
