Development Scripts

MS Access Database connection (Rated 3)

Description:

Using an Access database called Cars.mdb this little coding will connect to it.
It uses a little SQL string to sort it.
This code takes a database of cars and sort them by make. IT IS PUT INTO A HTML page.
To see it in action http://www28.brinkster.com/stixson/trythis.asp

Code starts here

Dim oConn
Dim oRS
Const adOpenStatic = 3
Const adLockReadOnly = 1
Const adCmdText=1


Set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ= " & Server.MapPath("db\Cars.mdb")

SQLString="SELECT.DISTINCT make FROM Cars ORDER BY make"

Set oRS=Server.CreateObject("ADODB.Recordset")
oRS.Open SQLString, oConn, adOpenStatic,adLockReadOnly,adCmdText

rsCount = oRS.RecordCount
Response.write("<OPTION value=" & oRS("make") & ">" & oRS("make"))

oRS.MoveNext
next

oConn.Close

Set oRS=nothing
Set oConn=nothing



Submitted by stixson on 18-02-2003 18:58

Rate This Script

User Contributed Comments

On 25-02-2003 1:33 Devscripts said:

This code snippet will use a database called cars.mdb you will need to look at the code, and rewrite it for your specific needs