Get Data with GetString

DO recordsets have a handy little method called GetString that they inherited from RDO’s GetClipString. GetString returns the contents of a recordset into a formatted string. Here are three useful ways to use GetString. The official syntax of GetString is:

String= recordset.GetString([StringFormat], [NumRows],
 [ColumnDelimiter], [RowDelimiter], [NullExpr])

An important thing to note about GetString is that it reads the recordset by moving the cursor from its current position to the end of the recordset. Therefore you should:

• Make sure the cursor is at a valid record before calling GetString.
• Save the current cursor position if you want to return to it.
• Move to the first record if you want read the entire recordset.
• Move to a valid record after GetString moves the cursor to the EOF after reading the last record.

Quick View
To view the contents of a recordset quickly while in break mode, simply type into the Immediate window:

?rs.GetString

This will return the data in a table format using the default tab and carriage return delimiters. Remember to move back to the beginning of the recordset after you are done.

Quick Grid
To display quickly the contents of a recordset in a MSFlexGrid, follow these steps:

1. Dimension the grid by setting the Cols property to the amount of fields in the recordset. Set the Rows property to either the estimated amount of rows or move to the last record to populate the RecordCount property. Note that not all recordsets support the RecordCount property and will always return -1.

2. Select all the rows and columns of the grid using the Rowsel and Colsel properties.

3. Set the Grid’s Clip property to the return value of GetStringHere’s sample code:

With Grid1	.Cols = rs.Fields.Count	rs.MoveLast		.Rows=rs.RecordCount	rs.MoveFirst	.Rowsel= .Rows-1	.Colsel = .Cols-1	.Clip= rs.GetStringEnd With

Quick Web Page
You can turn a recordset into an HTML table quickly and display it in a Web page. All you’ve got to do is specify HTML table tags as the row/column delimiter arguments of the GetString method. The tags begin and end a cell (column). The < begin and end a row. The first column on a row will not have the column delimiter before it, nor will the last column on a row have the column delimiter after it. Therefore you must add the (end cell) before you end a row, and add the (begin cell) tag after you begin a row. Here’s the code:

ColumnD = "  " 'end a cell, begin a cell, this inserted between columnsRowD = "  " 'end a cell, end a row, 
begin a row, begin a cell, this inserted after the  '  last column on a row 
and before the first column of the subsequent rowstrHeader="
" 'begin the table, begin the first row, begin the first cellstrFooter= "
"strData = rs.GetString (ColumnDelimiter:=ColumnD, RowDelimiter:=RowD)strHTML=StrHeader & strData & strFooter