Reference to be add (1 Viewer)

[SLKDS]

Which reference to be added to use Recordset object in Excel VBA. I added "Microsoft DAO 3.6 Object Library" reference but still its not working.

Plz help me on this.

Thank in advance

 

[GohDiamond]

What Error are you getting? Show your DAO Opening code.

Goh

 

[SLKDS]

I declare recordset as below and tried to set its value:

Dim rst As Recordset

strSQL = "SELECT * FROM Product WHERE OrderNo" _
& " ='" & Order_No & "';"


Set rst = dbs.OpenRecordset(strSQL) ----Error line say Object doesn't support this method

 

[namliam]

where do you declare and define your dbs?

 

[SLKDS]

Dim dbs As Object


Set dbs = CreateObject("Access.Application")
dbs.OpenCurrentDatabase "..Path of DB.accdb"


Dim rst As Recordset

strSQL = "SELECT * FROM Product WHERE OrderNo" _
& " ='" & Order_No & "';"


Set rst = dbs.OpenRecordset(strSQL) ----Error line say Object doesn't support this method

 

[namliam]

one thing that jumps to mind... Order_no is generaly a number field...
If it is too in your case... try

strSQL = "SELECT * FROM Product WHERE OrderNo" _
& " = " & Order_No & ""

 

[SLKDS]

No,Its text field in my case

 

[vbaInet]

It's referencing the ADODB Recordset object.
Be explicit:

Dim rst As DAO.Recordset
----Error line say Object doesn't support this method

 

[SLKDS]

I'll try that and get back to you.

thank you