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 |
