Description
| Returns a parameters and values string for use in combination with the HtmParseFile method. All fields in the current record in the ADODB.recordset variable are used as a source with the field names as the parameters. The values are automatically formatted, based on the field type and, ocassionally and when needed, also based on parts of the field names.
Parameter
| Description
| rs
| A reference to the current record a previously opened ADODB.Recordset.
|
|
Example
|
Sub Main
Dim rs as ADODB.Recordset, OrderNr As Variant
OrderNr = HtmGetField(OrderNummer)
SQL.RunRecordset "SELECT PJ.KlantCode, WH.OrderInput, WH.Datum, WH.LeverDatum, WH.Omschrijving, WH.WerkAdres1, WH.WerkAdres2, WH.Postcode, WH.Plaats, WH.Land " & _
"FROM ProjectHeaders PJ WITH (READUNCOMMITTED) INNER JOIN WerkorderHeaders WH WITH (READUNCOMMITTED) " & _
"ON PJ.Admin = WH.Admin AND PJ.Nummer = WH.ProjectNummer " & _
"INNER JOIN PaklijstHeaders PH WITH (READUNCOMMITTED) " & _
"ON PH.Admin = WH.Admin AND PH.WOnummer = WH.Nummer " & _
"WHERE WH.Admin = 1 " & _
"AND ISNULL(PJ.Status, '') NOT IN ('H') " & _
"AND ISNULL(WH.Status, '') NOT IN ('H') " & _
"AND WH.Nummer = " & OrderNr, rs, adOpenKeyset, adLockReadOnly, adUseClient
HtmParseFile "tablet\loodslijst.htm", HtmBuildFields(rs)
rs.Close
Set rs = Nothing
End Sub
|