ADO RecordSet open error

[James Bott]

Does anyone know why I am getting this error?

Code: Select all  Expand view

  oRs:= createObject("ADODB.RecordSet")
   msginfo( valtype(oRS) )  // returns "O"
   oRs:Open()
   
   I get this error on the last line above:

   Error description: Error ADODB.RecordSet/6  DISP_E_UNKNOWNNAME: OPEN

I am using FWH ver 10.3 with xHarbour.

Regards,
James

[Rick Lipkin]

James

Start here when you define your object .. then you can add additional parameters as I have .. I would definitly use the local cache option when you create your recordset .. being local makes listboxes just really fast.

Rick Lipkin

Code: Select all  Expand view

oRs := TOleAuto():New( "ADODB.Recordset" )
 

Code: Select all  Expand view

cSQL := "SELECT * from GAS where AGENEID = '"+xAGENEID+"' order by DATE,LICENSE desc"

oRs := TOleAuto():New( "ADODB.Recordset" )
oRs:CursorType     := 1        // opendkeyset
oRs:CursorLocation := 3        // local cache
oRs:LockType       := 3        // lockoportunistic

TRY
   oRs:Open( cSQL,'Provider='+xPROVIDER+';Data Source='+xSOURCE+';Initial Catalog='+xCATALOG+';User Id='+xUSERID+';Password='+xPASSWORD )
CATCH oErr
   MsgInfo( "Error in Opening GAS table" )
   oDlg:End()
   RETURN(.F.)
END TRY
 

[nageswaragunupudi]

Mr. Rick

When CursorLocation is 3 ( adUseClient) the RecordSet is always opened as Static. No use specifying keyset or dynamic.

After opening please check
? oRs:CursorType.

[nageswaragunupudi]

Mr James

For opening recordset, minimum *two things should be specified.
1. Source ( Sql statement, Table name, URL ). In our case mostly sql statement
2. Either connection object or connection string.

Either we can specify then initially:
oRs:Source := <sql statement>
oRs:ActiveConnection := oCon
and then
oRs:Open() .. works

Or

oRs:Open( <cSqlStatement>, <ConnObject>/<ConnString> ) also works.

Please review testxbr3.prg. Opens connection to Access database ( test.mdb ) in the \fwh\samples folder and opens recordsets.

[James Bott]

Rao,

I have tried testxbr3.prg and it works fine. This is using an Access database. I note that this code calls oRs:Open() without any parameters and it doesn't error out.

The other test code you provided is using a DBF database. This is the one that errors out on the oRs:Open() call (with or without parameters).

James

[Gale FORd]

I have to open Access databases and Progress databases. I get that error if I get the connect string wrong or the DSN entry is wrong. Those semicolons and sometimes spaces really mean something.

Here is a DSN-less connect string I use for an Access database that does not need username and password.

cConnectString := [DRIVER={Microsoft Access Driver (*.mdb)};dbq=\\Trg210\webcenter\Database\webcenter40.mdb;]
cSqlString := [Select * From Customers Where Customers.Active ='Yes' AND Customers.Customer_Username = 'gale']
oRecordSet := CreateObject( "ADODB.Recordset" )
oRs := oRecordSet:Open( cSqlString, cConnectString, 0, 1 )

[James Bott]

Gale,

I is not the connection that is the problem. The problem turns out to be that the WHERE clause in the SELECT statement is causing the crash. For more details see this thread.

viewtopic.php?f=3&t=19334&start=30

Rao, is not having the same problem. We have not figured out why I am.

Thanks for the suggestions.

James

[Enrico Maria Giordano]

Does anyone know why I am getting this error?

Can you show the exact sample you are trying?

EMG

[James Bott]

Enrico,

It is in the third message on this page:

viewtopic.php?f=3&t=19334&start=30

James

[Enrico Maria Giordano]

Your sample works fine here as it is.

EMG

[Armando]

James:

Just an idea, do have the ado heder included ?

#Include "Ado.ch"

Regards

[James Bott]

Armando,

I didn't have the ado.ch header included, but I just added it and I still get the same error.

Thanks for the idea.

James

[nageswaragunupudi]

Armando,

I didn't have the ado.ch header included, but I just added it and I still get the same error.

Thanks for the idea.

James

including or not including ado.ch does not make any difference because the program does not use any constants defined in the ado.ch.
ado.ch contains just definitions of constants.

The issue is :
No problem with connection. Connection is getting established.
Even recordset can be opened as long as sql statement does not contain 'WHERE' or 'ORDER' clause.

The reasons to be found is why WHERE and ORDER clauses are failing and that too only on Mr. James PC.

[James Bott]

Rao,

Actually, the ORDER clause is working. That error was caused by a syntax error on my part. Only the WHERE clause is not working.

James