Getting a date out of Access 1

[mbutler55]

I have a table called CurrentDateAndTime. It consists of 1 field and 1 record. The field is called CurDateTime. It has an automatically filled in value from the function Now(). My db will be static not dynamic and this field will store when the db was last updated.

In my web page I have:
set objRS = Server.CreateObject ("ADODB.Recordset&quot
sql="SELECT CurDateTime FROM CurrentDateAndTime"
objRS.CursorLocation = adUseClient
objRS.Open sql, objConn, 3
objRS.MoveFirst
response.write objRS("CurDateTime&quot
objRS.close

This gives an error that says:
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

I know the record is in the db and the field is populated. What am I doing wrong!?

 

[palbano]

>> sql="SELECT CurDateTime FROM CurrentDateAndTime"

could be there or...

>> objRS.Open sql, objConn, 3

there since u didn't show that.

 

[mbutler55]

I don't understand what you are saying since both of those lines are included in my page.

 

[palbano]

the value of 'objConn' is not visible in your post since you did not include the code that initialized the variable.

 

[mbutler55]

Pardon me - here is the complete code:

Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection&quot
objConn.ConnectionString = "DRIVER={Microsoft Access
Driver (*.mdb)};" & "DBQ=" & Server.MapPath
("fpdb/CryoCathIPR.mdb&quot & ";"
objConn.Open
set objRS = Server.CreateObject ("ADODB.Recordset&quot
sql="SELECT CurDateTime FROM CurrentDateAndTime"
objRS.CursorLocation = adUseClient
objRS.Open sql, objConn, 3
objRS.MoveFirst
response.write objRS("CurDateTime&quot
objRS.close

 

[palbano]

>> objConn.ConnectionString = "DRIVER={Microsoft Access
>> Driver (*.mdb)};" & "DBQ=" & Server.MapPath
>> ("fpdb/CryoCathIPR.mdb&quot & ";"

that would be the first thing i would analyze... something like:

<!--
<%=Server.MapPath &quot;fpdb/CryoCathIPR.mdb&quot;%>
-->

keep in mind i don't know VBScript well ( er.. read barely)

-pete

 

[BG12424]

Why not use the following to get the lastupdated date/time for your access database. This way, you don't have to make another database call to get the necessary information.

you can make use of the FileSystemObject to handle this.

dim fs, f
set fs=Server.CreateObject(&quot;Scripting.FileSystemObject&quot
set f=fs.GetFile(Server.MapPath(&quot;/sandbox/yourdatabase.mdb&quot)

Response.Write(&quot;The database was last modified on: &quot; & f.DateLastModified)
set f=nothing
set fs=nothing
regards,
Brian
AOL IM: FreelanceGaines

 

[mbutler55]

Thanks Brian that was what I was looking for!

 

[BG12424]

No problem, glad to have helped.
regards,
Brian

AOL IM: FreelanceGaines

Get the Best Answers! FAQ333-2924
Is this an asp FAQ? FAQ333-3048
Tek-Tips Best Practices: FAQ183-3179