June 1999
Intermediate to advanced
1368 pages
29h 45m
English
The routines in Listing 27.2 reflect their DAO counterparts with the names ap_SetDatabaseProp and ap_GetDatabaseProp.
Sub ap_SetDatabaseProp(strPropertyName As String, varValue As Variant) Dim rstDBProps As New ADODB.Recordset rstDBProps.Open "ztblDatabaseProperties", CurrentProject.Connection, _ adOpenDynamic, adLockOptimistic rstDBProps(strPropertyName) = varValue rstDBProps.Update rstDBProps.Close End Sub Function ap_GetDatabaseProp(strPropertyName As String) As Variant Dim rstDBProps As New ADODB.Recordset rstDBProps.Open "ztblDatabaseProperties", CurrentProject.Connection, _ adOpenStatic ap_GetDatabaseProp = rstDBProps(strPropertyName) ... |
Read now
Unlock full access