Re: module

I'm not sure what it could be. Maybe a problem with your declarations. Something that confused me about your other posts is:

Dim adoConnection As ADODB.connection
Set adoConnection = New ADODB.connection

I don't understand why connection is not written Connection - that should be automatic. So it suggests something funny is going on to me.

I would break down the .Open line in an attempt to work out where the trouble is. See below, and find out what line it trips up on.

'--------------
connectString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=C:\Documents and Settings\My Documents\System\yDatabase.mdb"

'open the connection with the above string
adoConnection.Open connectString

If adoconnection.State <> adStateOpen Then
msgbox "problem connecting"
exit function 'or sub
end if

adoRecordset.Open ("Select * From Product"), adoConnection, ,
With adoRecordset
set .ActiveConnection = adoconnection
.CursorLocation = adUseClient
.CursorType = adOpenForwardOnly
.LockType = adLockPessimistic
.Open "Select * From Product"
End With

'-----------------------

Also, if you post your full code (including declarations) it would be easier to nail down the problem.


Pinto1uk wrote:
Hi, thank you for pointing me on the right direction. I have managed to solve the problem and the error does not occur anymore. But now i come across another error: Object Required.

This line below is the cause of the error:

adoRecordset.Open ("Select * From Product"), adoConnection, , adLockPessimistic

this is because i am trying to use the recordset object that has been declared and set in the module. cannot find any solutions using google.

regards

regards






"Gman" wrote:


I can probably help you help yourself. You have to report the correct error message to the group. I don't think your error message is "variable or procedure expected not module"

I think it's "Expected Variable or Procedure not Module"

Copy that into google, including quotes. The very first result has someone explaining the likely cause of the error.

It took me about 10" to google it. That's got to be a fraction of the time it takes to write a post (or rather copy and repost your earlier post) and wait for a response.

So as part of the google training exercise I'm not going to tell you the answer - it's on google: clue.... it involves module names. If that's not it... then post back. :-)


Pinto1uk wrote:

Hi, i am using the code below over and over again to connect to my database. I have tried to place in within a module and call it from whereever i need it, but i get the error stating: variable or procedure expected not module. can anyone help.

Dim adoConnection As ADODB.connection
Dim adoRecordset As ADODB.Recordset

Set adoConnection = New ADODB.connection
Set adoRecordset = New ADODB.Recordset

'build our connection string to use when we open the connection

connectString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=C:\Documents and Settings\My Documents\System\yDatabase.mdb"
'open the connection with the above string
adoConnection.Open connectString

.

Relevant Pages

  • ADO Connection Failure
    ... Connection Failure error message. ... ADOConnection Status is still "Connected" erroneously. ... ADOConnection Level? ... without Closing all of the active Queries using that connection? ...
    (borland.public.delphi.database.ado)
  • Re: ADOConnection fail after a while in TThread
    ... I, as Martin, do not think it is wise to use so much of objects (both ADO and thread), Nevertheless you might increase the socket count etc. ... If you do not use Transactions and have only one Query per Connection you even do not need the Connection. ... The simpliest the best:) Solve the problem with "not permanent" connection to your stores. ... One strange thing is that I have a ADOConnection in the main thread as well. ...
    (borland.public.delphi.database.ado)
  • ADOConnection - odd problem solved but why?
    ... I have a form with an ADOconnection and two tables. ... Set to True at design time, ... Maybe an application cannot handle more than one ADO connection at once ...
    (alt.comp.lang.borland-delphi)
  • ADOConnection.Connected does not show lost connection.
    ... I am using ADOConnection object in order to connect to an MS SQL Server 2000 ... I am using the ADOConnection.Connected property to see if the connection is ... still active, but once connected, event if I loose internet connection, it ...
    (borland.public.delphi.database.ado)
  • Connection terminated by server problem
    ... database terminates abnormal or is stopped or for what ever reason, ... read the connected property of the ADOConnection it still shows ... "Communication link failure: Connection was terminated" error. ... know even before I execute or better trap it when it happens. ...
    (borland.public.delphi.database.ado)