' Copy the field structure of a Recordset to a new Recordset.'' The original code has been improved to account for Numeric and Decimal' fields, that also require the setting of Precision and Numeric Scale ' properties.' Thanks to Robert Gelb for this suggestion.Function CloneFieldStructure(rs As ADODB.Recordset) As ADODB.Recordset Dim fld As ADODB.Field Set CloneFieldStructure = New ADODB.Recordset ' create a set of fields with same attributes For Each fld In rs.Fields CloneFieldStructure.Fields.Append fld.name, fld.Type, fld.DefinedSize, _ fld.Attributes 'special handling for data types with numeric scale & precision Select Case fld.Type Case adNumeric, adDecimal With CloneFieldStructure .Fields(.Fields.Count - 1).Precision = fld.Precision .Fields(.Fields.Count - 1).NumericScale = fld.NumericScale End With End Select NextEnd Function


GM Creates Open Source uProtocol and Invites Automakers to Adopt It: Revolutionizing Automotive Software Development.
General Motors (GM) recently announced its entry into the Eclipse Foundation. The Eclipse Foundation is a prominent open-source software foundation. In addition, GMC announced its contribution of “uProtocol” to facilitate