p2p.wrox.com Forums

Need to download code?

View our list of code downloads.


  Return to Index  

access thread: Opening an ADO recordset question


Message #1 by "Carl Schwarcz" <carl@s...> on Sat, 9 Jun 2001 13:06:43 -0700

I've made two different ways of opening an ADODB record set which I

thought were equivalent.  However the first generates the following

run-tim error: 

	Run-time error '-2147467259(80004005)

	The database has been placed in a state by user "Admin' 

	on machine 'CARL' that prevents it from being opened or locked.



	(By the way I am the ADMIN user and have the database open as

this code gets invoked from)



Here's the code which generates the error:

	Dim cnn As ADODB.Connection

    	Dim recset As ADODB.Recordset

    

    	Set cnn = New ADODB.Connection

    	Set recset = New ADODB.Recordset

    

        ' open connection and then use it

        cnn.Open CurrentProject.Connection

        recset.Open "Select * From tblCompany", cnn



However, the following code works fine.  What am I missing?



    	Dim recset As ADODB.Recordset



    	Set recset = New ADODB.Recordset



        ' just use Current Project

        recset.Open "Select * From tblCompany",

CurrentProject.Connection

    



Any pointers would be appreciated...



Message #2 by "Jonathan Smith1" <jts_2k@h...> on Mon, 18 Jun 2001 13:18:50
With the first method you could try Dimming the connection and recordset 

with a new method IE



Dim cnn As New ADODB.Connection

Dim recset As New ADODB.Recordset



This should initialise these as new connections and recordsets



If not u might not be able to define the connection process unless you 

speify the usual connections needed.



J



> I've made two different ways of opening an ADODB record set which I

> thought were equivalent.  However the first generates the following

> run-tim error: 

> 	Run-time error '-2147467259(80004005)

> 	The database has been placed in a state by user "Admin' 

> 	on machine 'CARL' that prevents it from being opened or locked.

> 

> 	(By the way I am the ADMIN user and have the database open as

> this code gets invoked from)

> 

> Here's the code which generates the error:

> 	Dim cnn As ADODB.Connection

>     	Dim recset As ADODB.Recordset

>     

>     	Set cnn = New ADODB.Connection

>     	Set recset = New ADODB.Recordset

>     

>         ' open connection and then use it

>         cnn.Open CurrentProject.Connection

>         recset.Open "Select * From tblCompany", cnn

> 

> However, the following code works fine.  What am I missing?

> 

>     	Dim recset As ADODB.Recordset

> 

>     	Set recset = New ADODB.Recordset

> 

>         ' just use Current Project

>         recset.Open "Select * From tblCompany",

> CurrentProject.Connection

>     

> 

> Any pointers would be appreciated...

> 


  Return to Index