ODBC connection error...

[Atomsk]

"The database has been placed in a state by an unknown user that prevents it from being opened or locked."


The above is the error that I frequently get when some script of mine runs that creates ADO connections. Apparently, the reason is that I'm creating the connection implicitly (as opposed to explicitly)...too bad I don't know what the difference is. The code snippet is as follows:




'implicit connection w/ recordset (I think)

Dim db_00, rs_00

Set db_00 = CreateObject("ADODB.Connection&quot

db_00.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\Program Files\Access Pages\GAPS_db01\GAPS_db01.mdb" & ";UID=;PWD="

Set rs_00=db_00.execute("SELECT * FROM recordsCurrentYear&quot

"
"
"

rs_00.Close
db_00.Close




Any help is greatly appreciated. Thanks.

 

[JaneB19]

I don't think you're quite closing the connection properly. The follow coding is some I used in an ASP to connect to a database, you'll have to change bits, like the database name. I think this is the same sort of thing that you're wanting to do?

' create an ADO object to represent the connection to the database
Set adoDataConn = Server.CreateObject("ADODB.Connection&quot

' Database connection info and driver
strConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("[db_name].mdb&quot & ";"

' Open the database connection
adoDataConn.Open strConnectionString

strQuery = "SELECT * FROM [table_name]"
Set objEmployeesRS = adoDataConn.Execute(strQuery)
.
.
.
objEmployeesRS.close
Set objEmployeesRS = Nothing

' Once you have finished with a connection you should close it
adoDataConn.Close
Set adoDataConn = Nothing

Hope this solves your error?

[PC2]