' 更改数据表的来源
' wb：工作表对象
' connectionName：数据来源连接名称
' strSQL：新查询语句（修改SQL的查询代码）
' strSQLConnection：新连接语句（修改来源数据库，在对DBF数据库操作时非常有用）
' author: zhang@zhiqiang.org, 2010
Public Sub ChangeODBCConnection(wb As Excel.Workbook, connectionName As String, _
        Optional strSQL As String = "", Optional strSQLConnection As String = "")

    With wb.Connections(connectionName).ODBCConnection
        If Len(strSQLConnection) Then .CommandText = SplitString(strSQLConnection)
        If Len(strSQL) Then .Connection = SplitString(strSQL)
    End With
    wb.Connections(connectionName).Refresh
End Sub

' 更改数据表的来源
' pc：数据透视表的PivotCache对象 （例如：ActiveSheet.PivotTables(1).PivotCache）
' connectionName：数据来源连接名称
' strSQL：新查询语句（修改SQL的查询代码）
' strSQLConnection：新连接语句（修改来源数据库，在对DBF数据库操作时非常有用）
' author: zhang@zhiqiang.org, 2010
Public Sub ChangePivotConnection(pc As Excel.PivotCache, Optional strSQLConnect, _
        Optional strSQL As String = "")
    Dim blnODBCConnect As Boolean

    With pc
        If .QueryType = xlODBCQuery Then
            blnODBCConnect = True
            If Len(strSQLConnect) = 0 Then strSQLConnect = .Connection
            strSQLConnect = Replace(strSQLConnect, "ODBC;DSN", "OLEDB;DSN", 1, 1, vbTextCompare)
        End If

        If StrComp(.Connection, strSQLConnect, vbTextCompare) <> 0 And Len(strSQLConnect) Then
            .Connection = strSQLConnect
        End If

        If StrComp(.CommandText, strSQL, vbTextCompare) <> 0 And Len(strSQL) Then
            .CommandText = (strSQL)
        End If

        If blnODBCConnect = True Then
            .Connection = Replace(.Connection, "OLEDB;DSN", "ODBC;DSN", 1, 1, vbTextCompare)
        End If

        .Refresh
    End With
End Sub

' 将字符串分割成短字符串的数组
Private Function SplitString(ByVal s As String) As Variant
    Dim ss() As Variant
    Dim i As Long

    ReDim ss(0 To Len(s) \ 200) ' note: it is not 256
    For i = 0 To UBound(ss)
        ss(i) = Array(Mid(s, i * 200 + 1, 200))
    Next i

    SplitString = ss
End Function

以上代码在Office 2007版通过测试，其余版本未知。

© zhiqiang for 阅微堂, 2010. | 链接 | 1条评论

一个查询的例子：NOT (AND ((C1>5), OR ((C2<6),(C3<>9))))

问题1：给出两个这样的查询Q1和Q2，如何确定Q1的结果是否是Q2结果的子集？

上面两篇文章主要是讨论实际工作中怎么解决问题1。下面从理论上分析一下这个问题。

问题2：判断Q1查询结果是否为空集。

在问题1中让Q2查询结果为空集，故问题1是比问题2更难的一个问题。

论断：问题2是NP-hard的。

证明：从3SAT问题很容易规约到问题2。

结论：问题1是NP-Hard的，除非NP=P，不可能有多项式级别的解。也就是理论上而言，解决上面的问题除了枚举没有别的好方法了。

当然以上只是理论，实际应用中，的计算速度和的计算速度还是有很大的区别。如何解决NP-Hard问题也是一个被广泛研究的课题，毕竟实际工作中很多问题都是NP-Hard的。

© zhiqiang for 阅微堂, 2009. | 链接 | 2 条评论

监测WordPress的数据库查询

WordPress内置了数据库缓存系统，安装插件WordPress Cache Inspect，它会告诉你这个系统的效率（命中效率），主要为下面四个指标：

持续更新ing...

© zhiqiang for 阅微堂, 2007. | 链接 | 2 条评论

先说一下我是怎么解决数据库乱码问题的。最开始的时候在phpmyadmin里面直接导入备份文件（使用WordPress自带的database backup生成），最后文章里面大部分显示正常，但是间或的有些汉字变成了乱码（在FireFox下变成两个?号）。在无数次失败的尝试和Baidu的帮助下，最后找到解决方案：

1. 使用WordPress自带的database backup生成备份文件（打开这个文件，里面中文是正常的，而如果直接从phpmyadmin里面导出数据库，中文都是乱码）。
2. 在phpMyadmin中设定MySQL 字符集: UTF-8 Unicode (utf8) （一般来说默认就是这个）
3. 在phpMyadmin中设定MySQL 连接校对: utf8_general_ci
4. 用文本编辑器如EditPlus 打开备份的数据库文件，查找"DEFAULT CHARSET=latin1" 用"DEFAULT CHARSET=utf8"替换。
5. 用phpMyadmin导入上面修改过的备份文件。
6. 修改wp-includes/wp-db.php內的资料连线设定。详细的修改方式是这样的：
   $this->dbh = @mysql_connect($dbhost,$dbuser,$dbpassword);
   //加上下面这行
   $this->query("SET NAMES 'utf8'" );

这样做之后，不但页面上没有乱码，在数据库里面也可以直接看到中文。另外，在解决过程中得到了Lucifer和Sunwell帮助，关键的一步从wordpress恢复数据库后乱码问题的解决看来的，一并表示感谢。

我和Dreamhost：

• 我上Dreamhost还是太慢了，特别是它的FTP，无法忍受。
• Dreamhost的CPU速度比我原来的实验室的服务器还要慢，看看页面生成时间，有时候竟然需要2秒以上，郁闷。
• Dreamhost的服务器在国外，教育网访问需要代理，包括我自己，:(。
• 不用担心备案问题了，不过我担心Dreamhost整体被封。
• 十个月后空间到期后咋办呢？对我来说，搬家很快的，拎着数据库跑就行了。图片啥的我都放到Flickr和Picasa Web上了。不过寻找新空间是个大问题，暂时不管了。

另外，Dreamhost的unix主机的文件名是分大小写的，结果导致我有些ajax程序异常，不过现在已修正。

© zhiqiang for 阅微堂, 2006. | 链接 | 46 条评论