grid

[Karina Gámez]

hi..
how can i put my columns headers from my database table into a msflexgrid..

i already fill it with a recordset.. but i wish to give it just a little more of presentation..

Thanks a lot..!

[Iouri]

DId you try
msfg.TextMatrix(0,0) = rs!Field1

Iouri Boutchkine
[email protected]

[Karina Gámez]

hi..

i try to use this code.. but send me this error message "object requiered", then i try ur code that i find here.. but..dont display my columns headers...




Dim Rs as ADODB.Recordset
Dim currentPage as Long
Dim recordsinpage as Integer
Dim i as Integer
Dim l as Integer


private Sub Command1_Click()
If currentPage > 1 then currentPage = currentPage - 1
Rs.AbsolutePage = currentPage
ShowRecords
End Sub

private Sub Command2_Click()
currentPage = currentPage + 1
If currentPage = Rs.PageCount then currentPage = Rs.PageCount - 1
Rs.AbsolutePage = currentPage
ShowRecords
End Sub

private Sub Form_Load()
Dim s as string
Grid.Clear
set Rs = new ADODB.Recordset
Grid.Height = frmmsflexgrid.Height - 1100
Grid.Width = frmmsflexgrid.Width - 350


Rs.ActiveConnection = cn
s = "select * from tmpresptodas order by empresa "
Rs.CursorLocation = adUseClient
Rs.CursorType = adOpenStatic
Rs.LockType = adLockReadOnly
Rs.CacheSize = 20
Rs.Open s
Rs.AbsolutePage = 1
currentPage = 1
Rs.PageSize = 20

ShowRecords

End Sub

Sub ShowRecords()
me.Caption = "Página Actual = " & Rs.AbsolutePage & _
" a la " & Rs.PageCount - 1
recordsinpage = Rs.PageSize
If currentPage * Rs.PageSize > Rs.RecordCount - Rs.PageSize then
recordsinpage = Rs.RecordCount - (currentPage * Rs.PageSize)
End If

' for i = 0 to recordsinpage - 1
' Grid.AddItem rs.Fields(0) & _
' vbTab & rs.Fields(1) & _
' vbTab & rs.Fields(2) & _
' vbTab & rs.Fields(3) & _
' vbTab & rs.Fields(4) & _
' vbTab & rs.Fields(5) & _
' vbTab & rs.Fields(6) & _
' vbTab & rs.Fields(7) & _
' vbTab & rs.Fields(8) & _
' vbTab & rs.Fields(9) & _
' vbTab & rs.Fields(10) & _
' vbTab & rs.Fields(11) & _
' vbTab & rs.Fields(12) & _
' vbTab & rs.Fields(13) & _
' vbTab & rs.Fields(14) & _
' vbTab & rs.Fields(15) & _
' vbTab & rs.Fields(16) & _
' vbTab & rs.Fields(17) & _
' vbTab & rs.Fields(18) & _
' vbTab & rs.Fields(19) & _
' vbTab & rs.Fields(20) & _
' vbTab & rs.Fields(21)

for i = 1 to recordsinpage - 1
for l = 0 to 21
If Rs.Fields(l) is null Or Rs.Fields(l) = " " then
Grid.TextMatrix(i, l) = " "
else
Grid.TextMatrix(i, l) = Rs.Fields(l)
End If
next l
Rs.MoveNext

next

' next
' rs.AbsolutePage = rs.AbsolutePage + 1

'End Function
End Sub
private Sub Form_Resize()
Grid.Height = frmmsflexgrid.Height
Grid.Width = frmmsflexgrid.Width
End Sub