need code to display a database in access using Datagrid

[rahmathmail]

hi,
i want to display one table in a access database using datagrid.
i tried to do like this.

con.open constring
set rs=con.execute("command to select the table")
set datagrid.DataSource=rs

but it shows an runtime error like this:
RunTime Error '7004'

The rowset in not bookmarkable

wats' the reason... pls post simlified answers.
coz i'm a beginer.

[ryan311]

try to use this

rs.open "command to select the table"
set datagrid.datasource = rs

regards
Ryan Riel

[rahmathmail]

hi ryan,

the error is still there.

just see the error discription i have posted.
any idea

regards,
rahmath.

[ryan311]

is the con.open is your connection?

[rahmathmail]

yes bro!
here's the complete code.

dbConStr = Connection String
DataGrid = Name of MS DataGrid Control 6.0

con.open dbConStr
rs.open "select * from <tablename>", con, adOpenDynamic, adLockOptimistic
set DataGrid.DataSource=rs

here's the error no

RunTime Error '7004'
The rowset in not bookmarkable

please help me.

[ryan311]

try this:

rs.open "select * from <tablename>", dbConStr, adOpenDynamic, adLockOptimistic
set DataGrid.DataSource=rs

regards
ryan riel

[rahmathmail]

Tried that....

now the error is........

Runtime Error '91':
Object variable or with block variable not set

what i'll do....

pls..........

[ryan311]

you should set your rs if your using adodb u can use this

set rs = new adodb.recordset
rs.open "select * from <tablename>", dbConStr, adOpenDynamic, adLockOptimistic
set DataGrid.DataSource=rs

Regards
Ryan Riel

[Joel Salvo]

'your code
dbConStr = Connection String
DataGrid = Name of MS DataGrid Control 6.0

con.open dbConStr
rs.open "select * from <tablename>", con, adOpenDynamic, adLockOptimistic
set DataGrid.DataSource=rs

'=======================
'modified version of your code
'=======================
'variable declaration

Private strSQL as string

dbConStr = Connection String
DataGrid = Name of MS DataGrid Control 6.0

strSQL = " select * from <tablename>"

'open database connection
con.open dbConStr

set rs = new Adodb.Recordset
rs.CursorLocation = AdUseClient
'only if you want to view records on datagrid
rs.open strSQL, con, AdOpenForwardonly, AdlockReadonly

'always check if there is a record
if rs.recordcount = 0 then exit sub
if rs.recordcount > 0 then
DataGrid.DataSource = rs
end if

[rahmathmail]

sorry, the error is still there.
is there any property of datagrid that must be set while designing before executing?

regards,
rahmath.

[Jx_Man]

check the references of your project.

[rahmathmail]

hi, rahmath here,
i tried many time. reffered somany books. and sites too. just for this prob. Actually i'm not student. i'a job seeking person. i'm doin this project just to improve my ability. I have tried many ways those i got from site and books. but still i cant solve the problem.
belive me....
regards,
rahmath.

[Joel Salvo]

ah okay, try using the mshflexgrid control... it works for me.

[rahmathmail]

i got it.
thanx..for all.