芳草苑

Tag: vba

  • recordset.clone is not working

    我修改了一段以前写的 vba，用到了 recordset.clone，没想到由于 vba 本身的 bug，克隆并没有进行，recordset.clone 返回值仍然是原记录集的引用。我在返回值记录集进行了 recordset.delete，结果把我原本想保持不动的原记录集里的记录给删了。

    那个恨啊！实在没想到 recordset.clone 只引用不克隆，害我为恢复原记录折腾了很久。我没兴趣深究原因，就当是 vba bug，就算是我调用参数配置不当，recordset.clone 克隆不成功也不能随随便便返回一个值而不抛出错误。

    既然 recordset.clone 不能用，找了一个前辈 Robert Gelb 写的函数来做真正的克隆。

    Public Function Clone(ByVal oRs As ADODB.Recordset, _
    Optional ByVal LockType As ADODB.LockTypeEnum = adLockUnspecified) As ADODB.Recordset

    Dim oStream As ADODB.Stream
    Dim oRsClone As ADODB.Recordset

    'save the recordset to the stream object
    Set oStream = New ADODB.Stream
    oRs.Save oStream

    'and now open the stream object into a new recordset
    Set oRsClone = New ADODB.Recordset
    oRsClone.Open oStream, , , LockType

    'return the cloned recordset
    Set Clone = oRsClone

    'release the reference
    Set oRsClone = Nothing
End Function

  • Workaround to row cannot be located for updating

    用ADO + ODBC操作Mysql database，用起来总不顺手。经常有莫名其妙的错误，其中不乏connector bugs。这些bugs不是我等能解决的，只有尽量不去触发bugs才是上策。

    比如，我今天在使用recordset.update时被提示”Row cannot be located for updating. Some values may have been changed since it was last read.” 我排错了好久，最后总结出以下best practices:

    • 避免使用”SELECT *”来查询，用到哪些字段就SELECT那些字段；
    • 如果SELECT中的字段中，某些值没有改变，recordset.update 可能会出错（也就是说，所有字段值都被改变后才能update）
    • Connector/ODBC Application Specific Tips特别提到Access can’t always handle the MySQL DATE column properly. If you have a problem with these, change the columns to DATETIME.
    • Float或double类型字段值，避免用Float或Double运算后的值直接去更新，应该保留必要精度后的值去更新。例如，x和y都是double类型，total字段也是double类型，不要用x+y去更新total字段，若total只要保留两位小数，就用formatnumber(x+y, 2)去更新total。

    综上，为了简单起见，如果要update a record，干脆先删除这条record，再recordset.addnew，赋予新值。对于新鲜记录的更新，以上四种可能的错误均没有出现。

  • VBA字符串精确比较

    我实在没想到在VBA里，(“abc” = “ABC”) = true。

    为了debug这个被我认为 false的判断，我找了好久。找到了已经想通了，从DOS到Windows，微软不是一直在营造一种大小写不敏感的气氛吗？只是我没估计到从程序员这么严谨的角度，竟然也是忽略字符串大小写。可能我越来越Linux了，对Windows这一套哲学越来越不适应了。

    不过，VBA里要精确比较字符串也是做得到的： StrComp(String1, String2, vbBinaryCompare).

  • 我离微软而去

    曾几何时，我是那么地崇拜Microsoft，崇拜Bill Gates，崇拜Windows, Office, Exchange，崇拜Desktop 1000/2000/4000/8000…

    现在，Windows仍然每天用，MS Office也是我用得最熟练的Office软件，vba我虽不精通，但编几个小function满足一下所谓的办公自动化的要求还是可以的。但是，考虑到将来，我今天正式作出一个痛苦的决定，不再投资时间在vba上，不再钻研Microsoft其他高深的产品，比如Microsoft Dynamics, SBS, SitePoint, etc.
    省下来的时间我要全面拥抱微软产品的替代方案。对于像我这样已经被微软洗过脑的人，可能要花较长的时间来熟悉其它产品的设计思维，那就从现在开始吧。我想从最近的一个项目入手，用OpenOffice Basic替代以前的VBA，但今天玩了一整天的OpenOffice Basic， 连个对话框也没搞出来，万事开头难啊。

    可能有些人早认为微软不是以后的主流，但我还没有100%确信这一点，现在退出我心里也忐忑，有点像赌博。我希望我的选择顺应了一种趋势， 我希望微软少了我就不行了，呵呵。