Problem executing SQL Queries.
I want to know how to execute SQL queries again and again using only one recordset. When I use following code, an error is displayed saying: "Error: The rowset is not bookmarkable" at line 1 of procedure "addgrid1".
How to effectively execute SQL queries?
Code:
Private Sub SearchAll()
Dim rsGrid1 As ADODB.Recordset
Dim SearchAllQuery as String
Set rsGrid1 = New ADODB.Recordset
If rsGrid1.State = adStateClosed Then
rsGrid1.Open "Select Amount,Particular,OnDate,ModeType,Code,BankName,ChqNo,TranID from Transac where CustID = " & GlobalID, Conn, adOpenStatic, adLockReadOnly
End If
SearchAllQuery = "Select Amount,Particular,OnDate,ModeType,Code,BankName,ChqNo,TranID from transac where custid=" & GlobalID
Set rsGrid1 = conn.Execute(SearchAllQuery)
call addgrid1
End Sub
Private Sub addgrid1()
Set DataGrid1.DataSource = rsGrid1.DataSource
Call AdjustLeftSideGrid
End Sub
Re: Problem executing SQL Queries.
You can do it a few ways.
You can open a rs passing the SQL.
You can use a command object as the source for a rs when you open it.
You can execute from the connection object without returning a rs.
So it depends on what you need - rs or not.
Also it depends, if you need a rs, if it needs to be updateable or scrollable.