getting data from the grid to labels using ADO ****SOLVED****

[WiseGuy]

Howdy,

I'm having some troubles converting my DAO program to an ADO program. Here's the situation:

The program used to get information from the grid and put it to a few labels on top of the form. That was done by simply fill in the Datasource and the datafield in the properties box. Now that I'm using ADO, I don't have a datacontrol anymore.

How do I get my data from the grid (MSHFlexgrid) to the labels as I select a record?

If you need to see any code on how I acces my DB let me know

WiseGuy

[Ecniv]

Fill in the flexgrid via code (you've done this I expect). Ensure all data you need is in there.

Hide columns you don't want seen by changing the column width on opening the form/filling the list (Flexgrid.ColWidth(<column number>)=0)

When the row is selected (by a click) use the click event to grab all the data from the columns to the labels

lngRowSel = FlexGrid.row '(or RowSel - can't rememebr which)
labeltodisp(0).caption = flexgrid.textmatrix(lngRowSel,0)
labeltodisp(1).caption = flexgrid.textmatrix(lngRowSel,1)
labeltodisp(2).caption = flexgrid.textmatrix(lngRowSel,2)

Something like that.

Vince

[WiseGuy]

Thanks for the code but how do I define 'lngRowSel'
Is it just a string variable or what?


WiseGuy

[Ecniv]

Dim lngRowSel as Long

Vince

[WiseGuy]

I get the Error Type mismatch on the second line.

Any solutions or Ideas?

WiseGuy

[Ecniv]

The second line - of the one I typed ?

I assumed you had label controls on there...

labeltodisp.caption = flexgrid.textmatrix(lngRowSel,0)


Paste your code up please.


I am writing from my head, no vb here. Wish I could have it though.

Vince

[WiseGuy]

Okey here's the code:

Private Sub grdDatagrid_Click()
Dim lngRowSel As Long
 
lngRowSel = grdDataGrid.RowSel 
grdDataGrid.TextMatrix(lblProcesInstellingId, 1) = lblProcesInstellingId.Caption
grdDataGrid.TextMatrix(lblNaam, 2) = lblNaam.Caption
grdDataGrid.TextMatrix(lblType, 3) = lblType.Caption
 
End Sub

WiseGuy

[Ecniv]

ummmmmmmmmmmmmmm

Private Sub grdDatagrid_Click()
Dim lngRowSel As Long
 
lngRowSel = grdDataGrid.RowSel 
grdDataGrid.TextMatrix(lblProcesInstellingId, 1) = lblProcesInstellingId.Caption
grdDataGrid.TextMatrix(lblNaam, 2) = lblNaam.Caption
grdDataGrid.TextMatrix(lblType, 3) = lblType.Caption
 
End Sub

How do I get my data from the grid (MSHFlexgrid) to the labels as I select a record?

Change to :

Private Sub grdDatagrid_Click()
Dim lngRowSel As Long
 
lngRowSel = grdDataGrid.RowSel 
lblProcesInstellingId.Caption=grdDataGrid.TextMatrix(lngRowSel, 1)
lblNaam.Caption=grdDataGrid.TextMatrix(lngRowSel, 2)
lblType.Caption=grdDataGrid.TextMatrix(lngRowSel, 3) 
End Sub

Vince

[WiseGuy]

Thanks that was the trick


WiseGuy

[Ecniv]

OK, one last thing to help ppl helping others in the forum. Once your post is complete (ie the problem has been solved)
Look at your posts, on the first one, click edit button (bottom of the first post) then change the topic/title to include "**resolved**" at the end

Then ppl like me who are ahem *coughboredcough* at work and helping others know that its complete


Vince