MSFlexGrid

[dvannoy]

Does anyone know why I would get a run-time error 91 when using a MSFlexgrid. "Object Variable or with block variable not set.

heres my code below.

This code will work fine with a datagrid and a MSHFlexgrid
but not a MSFlexGrid. when I hit debug it highlites the .OPEN strRs, strCn

strRs = "SELECT wrkordno, orgdate, orgname, dept, status FROM WRKORD WHERE status = 'OPEN'"
Set rs = New ADODB.Recordset
rs.CursorType = adOpenDynamic
rs.CursorLocation = adUseClient
rs.LockType = adLockPessimistic
rs.Open strRs, strCn
Set MSFlexGrid1.DataSource = rs
rs.MoveFirst
rccount = rs.RecordCount
lblOpenWO.Caption = rccount


Thanks DVannoy
A+,Network+,CNA
dvannoy@onyxes.com

 

[gigsvoo]

Remove the line:

Set Rs = New ADODB.Recordset

should be

Dim Rs As New ADODB.Recordset Thanks

Neo

http://communities.msn.com.my/VisualBasicwithNeo

 

[dvannoy]

OK, why do I dim that as new? that code works with everything else. is it just for when i am using the MSFlexGrid?

Thanks dvannoy@onyxes.com

 

[rtshort]

Try putting the Setrs line before the SQL Statement, like this,

Set rs = New ADODB.Recordset
strRs = "SELECT wrkordno, orgdate, orgname, dept, status FROM WRKORD WHERE status = 'OPEN'"
rs.CursorType = adOpenDynamic
rs.CursorLocation = adUseClient
rs.LockType = adLockPessimistic
rs.Open strRs, strCn
Set MSFlexGrid1.DataSource = rs
rs.MoveFirst
rccount = rs.RecordCount
lblOpenWO.Caption = rccount

I think what was happening was after your sql statement complteted, you were resetting your recordset, therefore there was no information from the select statement left. It had been reset.

Also check and make sure you have your strCn connection open when your statement executes. Rob
Just my $.02.

 

[dvannoy]

I can make it work with any other grid...just not this one.
Heres my entire code:

Private Sub Form_Load()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strCn As String
Dim strRs As String

strCn = "driver={SQL Server};" & _
"server=server;uid=sa;pwd=;database=workorder"

Set cn = New ADODB.Connection

With cn
.ConnectionString = strCn
.Provider = "msdasql"
.ConnectionTimeout = 60
.Open strCn
End With

Set rs = New ADODB.Recordset
strRs = "SELECT wrkordno, orgdate, orgname, dept, status FROM WRKORD WHERE status = 'OPEN'"
rs.CursorType = adOpenDynamic
rs.CursorLocation = adUseClient
rs.LockType = adLockPessimistic
rs.Open strRs, strCn
Set MSFlexGrid1.DataSource = rs
rs.MoveFirst
rccount = rs.RecordCount
lblOpenWO.Caption = rccount

I dont understand why it wont work dvannoy@onyxes.com

 

[gigsvoo]

Any error messages? Maybe try to put this:

Set DataGrid.DataMember = "" Thanks

Neo

http://communities.msn.com.my/VisualBasicwithNeo

 

[Praveenk00]

hi

Your problem lies in fact that u can not switch ur datasource for flexigrid at runtime using ADO.
if u must-- u should try DAO .

 

[Nill]

yep the recordset object is not recognised as a datasource for some reason I am having the same problem

 

[gigsvoo]

Hi there,

Could you please show me where is the error fall into which line? Thanks

Neo

http://communities.msn.com.my/VisualBasicwithNeo

 

[Guest_imported]

you must have a data source control for the MSFlexGrid. see here for details :

http://pages.cpsc.ucalgary.ca/~saul/vb_examples/tutorial2/

The MSHFlexGrid does not require this data source. If the MSHFlexGrid is too slow around 10,000 lines ~ you need to buy a control like those from component one. The component one controlis expensive but has been able to handle lots of rows fast.

 

[Sum77]

Hi!

I have that same problem. I have to use ado recordset, so control isn't option.

If I use MSHFlexGrid, can I get that working so that it won't show data hierachically? That would be anserw to my problem.

 

[gigsvoo]

I made some codes here uses MSFlexGrid.

Email me for my sample codes. Thanks

Neo

http://communities.msn.com.my/VisualBasicwithNeo

 

[Sum77]

Sorry, don't undestand what you mean?
Email what?

 

[gigsvoo]

I have a sample form that uses MSFlexGrid, you wanna see the codes? I have no way to upload attachment here, so if u want it, just email me at gigsvoo@yahoo.com or post ur request at my website at

http://communities.msn.com.my/VisualBasicwithNeo

ok? Thanks

Neo

http://communities.msn.com.my/VisualBasicwithNeo