VBScript runtime error '800a01fb' again

Try this connection string

cnnSimple.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/_database/Data_site.mdb"))



quote:Originally posted by Santor

hi, I do have problems accessing my access database.
I use Access 2000, and copied the example code, making the necessary changes, getting a result like this:

Dim cn
Dim rs
set cn=server.CreateObject("ADODB.Connection")
set rs=server.CreateObject("ADODB.RecordSet")
cn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("/_database/Data_site.mdb") & ";Persist Security Info=False"
cn.Open
Response.Write cn.state & "
" & cn.ConnectionString
set rs=cn.Execute("Select * from qTreeview")

the execute-statement (or having tried the rs.open as well) results in an error:

1
Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=E:\web\bolharat000\htdocs\_database\Data_site.mdb;Mode=Share Deny None;Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDBatabase Password="";Jet OLEDB:Engine Type=5;Jet OLEDBatabase Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDBon't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False
Microsoft VBScript runtime error '800a01fb'

An exception occurred: 'Execute'

/Einstieg/Default.asp, line 9

So the connection seems to be open. But I don't get a recordset back.
Interestingly the connection worked once. The mdb has still its lock-file in the directory and I am not able to delete it.
Perhaps somebody can help me with this.
Thx in advance.
Santor

</blockquote id="quote"></font id="quote">